First line in ListBox

D

Daniele

Hi,
i have VBAProject with this caracteristics
Userform1 with Listbox1.
Private Sub UserForm_Activate()
UserForm1.ListBox1.ColumnCount = 1
UserForm1.ListBox1.ColumnWidths = "400"
UserForm1.ListBox1.BoundColumn = 1
UserForm1.ListBox1.Clear

UserForm1.ListBox1.AddItem ("RIGA 11")
UserForm1.ListBox1.AddItem ("RIGA 12")
UserForm1.ListBox1.AddItem ("RIGA 13")
UserForm1.ListBox1.AddItem ("RIGA 14")
UserForm1.ListBox1.AddItem ("RIGA 15")
UserForm1.ListBox1.AddItem ("RIGA 16")
UserForm1.ListBox1.AddItem ("RIGA 17")
UserForm1.ListBox1.AddItem ("RIGA 18")
UserForm1.ListBox1.AddItem ("RIGA 19")
End Sub

UserForm1 also have
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

Userform2 have a listBox2
Private Sub UserForm_Activate()
UserForm2.ListBox1.ColumnCount = 1
UserForm2.ListBox1.ColumnWidths = "400"
UserForm2.ListBox1.BoundColumn = 1
UserForm2.ListBox1.Clear

UserForm2.ListBox1.AddItem ("RIGA 1")
UserForm2.ListBox1.AddItem ("RIGA 2")
UserForm2.ListBox1.AddItem ("RIGA 3")
UserForm2.ListBox1.AddItem ("RIGA 4")
UserForm2.ListBox1.AddItem ("RIGA 5")
UserForm2.ListBox1.AddItem ("RIGA 6")
UserForm2.ListBox1.AddItem ("RIGA 7")
UserForm2.ListBox1.AddItem ("RIGA 8")
UserForm2.ListBox1.AddItem ("RIGA 9")

UserForm2.ListBox1.ListIndex = 0
End Sub

Reply a problem when the two listbox of the two useform the other and
both
are posizionate to video exactly over has a sure number of lines,
therefore making double click on line 5 of the Userform1.ListBox1,
me selected meeting also line 5 of the Userform2.ListBox1, also being
to us the instruction UserForm2.ListBox1.ListIndex = 0.
The are no problems if as an example Userform1.ListBox1 has 10 lines
and Userform2.ListBox1 have three lines and I make double
click on line 9 of the Userform1.ListBox1.

I hope of to have been clear.

Salutes waiting for one your answer.
Daniele
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top