كار با ليست باكس فوري

[SilverLearn]

با سلام خدمت دوستان من در حال ساخت برنامه اي هستم كه تويه يكي از قسمت هاش مي خوام اين كار رو بكنم مي خوام يك ليست باكس باشه كه محتويات داخل آن يك فيلد از كل ركورد هاي بانك باشه بعد كاربر با مثلا دوتا كليك كردن روي هر كدام از فيلد ها اون رو به تكست اضافه كنه مثلا كاربر روي عبدالهي كليك ميكنه و بعد محتويات تكست ميشه عبدالهي بعد دوباره كاربر روي محمدي كليك ميكنه حالا محتويات تكست بايدشده باشه عبدالهي - محمدياگه كسي مثالي چيزي داره لطف كنه بذاره خيلي لازمش دارم

[M.T.P]

نحوه اضافه کردن رکوردها به لیست باکس:


While Not (Adodc1.Recordset.EOF)
List1.AddItem Adodc1.Recordset.Fields!Field_Name
Adodc1.Recordset.MoveNext
Wend

کد لیست باکس:


Private Sub List1_Click()
Text1.Text = Text1.Text & List1.List(List1.ListIndex) & " - "
End Sub

[javadt]

منظور شما اين بود؟
يك ليست باكس و يك تكست باكس به فرمت اضافه كن

Private Sub Form_Load()
List1.AddItem "عبدالي"
List1.AddItem "حسني"
List1.AddItem "حسيني"
End Sub

Private Sub List1_DblClick()
Text1.Text = List1.Text
End Sub