[حل شده] لیست باکس

[mahdiyar11]

سلام
من یه یوزرفرم دارم که داخلش یک لیست باکس و چند تا تکس باکس هستش
داخل لیست باکس ایتم های زیادی وجود داره 5 تا ستونه و 200 سطر
چطوری میشه بازدن روی یک سطر در لیست باکس محتویات اون سطر توی تکس قرار بگیره
مثلا توی لیست باکس سطر 2 رو انتخاب کردم میخوام ستون 1 تو تکس 1 ستون 2 تو تکس 2 ستون 3 تو تکس 3 و ..... قرار بگیره ممنون میشم کمک کنید

[iranweld]

با سلام

برای چهار تا تکست باکس از کدهای ذیل استفاده کنید

Private Sub ListBox1_Click()

        For i = 0 To ListBox1.ListCount - 1    
        If ListBox1.Selected(i) Then _      

                    msg = ListBox1.List(i, 0) 
            msg1 = ListBox1.List(i, 1)      
       msg2 = ListBox1.List(i, 2)  
           msg3 = ListBox1.List(i, 3)        


                            
      End If  
      Next i

TextBox1 = msg
TextBox2 = msg1
TextBox3 = msg2
TextBox4 = msg3

End Sub