View Single Post
Old 15-11-2006, 22:03   #3
wingman87
Senior Member
 
Iscritto dal: Nov 2005
Messaggi: 2778
Ho provato adesso, probabilmente non è la soluzione ottimale ma la logica penso sia questa:
Nel form ci sono solo 2 textbox e la scrollbar verticale. I valori in neretto li metti come sei + comodo tu
Codice:
Dim TOP1 As Integer, TOP2 As Integer
Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = 20
TOP1 = Text1.Top
TOP2 = Text2.Top
End Sub

Private Sub VScroll1_Change()
Text1.Top = TOP1 - VScroll1.Value * 80
Text2.Top = TOP2 - VScroll1.Value * 80
End Sub

Private Sub VScroll1_Scroll()
Call VScroll1_Change
End Sub
wingman87 è offline   Rispondi citando il messaggio o parte di esso