حركت دادن اسكرول لسيت باكس در vb

[Jaf@r]

سلام
من دو تا Listbox دارم مي خوام وقتي Scroll(اسكرول) ليست باكس اولي رو حركت دادم ليست باكس دومي نيز اسكرولش حركت كن
يعني هر دو ليست باكس با هم بالا و پايين بروند با يك اسكرول
ممنون

 

[saalek110]

دو ليست باكس كه با هم اسكرول مي شوند.

Suppose you have two list boxes side by side-one to display the name of a person, the other to display his or her e-mail address. If the boxes contain several entries, you want both boxes to scroll at the same time. For example, when the user uses the scrollbar of the Names list box, the lines of the e-mail list box remain at the level of the corresponding Names list-box lines.
Set the Interval Property of the Timer To 50, and Type this simple line of code in
the Timer event:

Private Sub Timer1_Timer()

    If List1.TopIndex <> List2.TopIndex Then _
    List2.TopIndex = List1.TopIndex
End Sub

Disable List2 so that the user is forced To use only the scrollbar of List1, but still
sees the information displayed in List2.

​

اينتروال تايمر را من 50 گرفتم ولي ليست باكس 2 را غيرفعال نكردم.

​

.