+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] طلب كود كومبو بوكس (/showthread.php?tid=6700)
[تم الحل] طلب كود كومبو بوكس - nablion - 26-10-12
السلام عليكم ورحمه الله وبركاته
كل عام وانتم بخير
اخواني الاعزاء
اريد منكم لو سمحتم كود لزر الكومبو بوكس
هذه صورة البرنامج
[ATTACH=CONFIG]1131[/ATTACH]
بحيث ان لو المستخدم اختار الترجمه من العربي الى الانكليزي يعمل الكود الاول
ولو ان المستخدم اختار الترجمه من الانكليزي الى العربي يعمل الكود الثاني
يعني مثلا اختار المستخدم الخيار الترجمه من العربي الى الانكليزي تضهر رساله تمت الترجمه مثلا
ولو اختار المستخدم الخيار الترجمه من الانكليزي الى العربي تضهر رساله تمت الترجمه بنجاح
وهذا كل شيى
ويعطيكم العافيه
[تم الحل] طلب كود كومبو بوكس - nablion - 26-10-12
تم الحل شكرا للجميع
وهو من خلال هذا الكود
If Combo1.Text = "الترجمه من العربي الى الانكليزي Then
[تم الحل] طلب كود كومبو بوكس - 3amo - 26-10-12
nablion كتب :تم الحل شكرا للجميعالسلام عليكم ورحمة الله
وهو من خلال هذا الكود
If Combo1.Text = "الترجمه من العربي الى الانكليزي Then
عيد مبارك سعيد وكل عام وانتم بخير
اللهم انصر اخواننا في سوريا يا رب العالمين
وهذا كود اخر بالتوفيق
PHP كود :
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Text1.Text = Combo1.Text
'ضع الكود المناسب
End If
If Combo1.ListIndex = 1 Then
Text1.Text = Combo1.Text
'ضع الكود المناسب
End If
End Sub