Ciao a tutti
Ho un form con dentro degli oggeti e un timer...
Ne form ho una barra di scorrimento verticale, perche ho una lista di oggetti e senza barra non li vedo tutti... quando clicco sopra la barra di scorrimento mi conpare il seguente errore: "Impossibile leggere la proprietà 'Top' in fase di esecuzione"... (errore run-time 393)
ho provato a cancellare il timer e funziona...
questo è il codice che gestisce la barra di scorrimento:
Private Sub Form_Load()
TotAltForm = Me.Height '3765
TotVisualizza = Me.VScroll1.Height ' 1900
Me.Height = TotVisualizza
With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = TotAltForm - TotVisualizza
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = .SmallChange
End With
End Sub
Private Sub ScrollForm()
Dim ctl As Control
For Each ctl In Me.Controls
If Not (TypeOf ctl Is VScrollBar) And _
Not (TypeOf ctl Is CommandButton) Then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
Next
oldPos = VScroll1.Value
End Sub
Private Sub VScroll1_Change()
Call ScrollForm
End Sub
Private Sub VScroll1_Scroll()
Call ScrollForm
End Sub
il problema secondo me è proprio il timer, ho provato a cancellarlo e la barra funziona, però anche se lo metto con interval 0 e disable, lui si blocca lo stesso
Grazie