23-08-16, 09:50 AM
23-08-16, 11:21 AM
تفضل
Textbox1.text = combobox1.selecteditem.tostring
Textbox1.text = combobox1.selecteditem.tostring
23-08-16, 01:54 PM
السّلام عليكم و رحمة الله و بركاته
إضافة لما تفضّل به الأخ و الأستاذ الكريم LoveVb .. جزاه الله خيرًا و زادها بموازين حسناته .. هذه طريقة أخرى حسب ما فهمته لعلّها تفي بالغرض إن شاء الله
فائق إحتراماتي
إضافة لما تفضّل به الأخ و الأستاذ الكريم LoveVb .. جزاه الله خيرًا و زادها بموازين حسناته .. هذه طريقة أخرى حسب ما فهمته لعلّها تفي بالغرض إن شاء الله
فائق إحتراماتي
كود :
Private Sub Form_Load()
Combo1.AddItem (111)
Combo1.AddItem (222)
Combo1.AddItem (333)
Combo1.AddItem (444)
Combo1.AddItem (555)
End Sub
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub
24-08-16, 11:47 AM
(23-08-16, 11:21 AM)LoveVb كتب : [ -> ]تفضل
Textbox1.text = combobox1.selecteditem.tostring
السلام عليكم ورحمة الله وبركاته
اخي الكريم LoveVb هذ الكود خاص بال net. ولا يخص vb6
24-08-16, 01:08 PM
اسف لم انتبه للقسم