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
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