[صقر الجزيرة]

السلام عليكم
أخواني أنا قربت على إنهاء مشروعي وبقيت لدي إشكالية عويصة
لم استطع حلها أبداً
وهي
أنه يوجد لدي مربع text وفيه ناتج أحد العمليات الحسابية
أردت أن أضيف أداة combobox وجعل الوحدات فيها
بحيث أن الناتج الموجود في التكست يكون بوحدة المتر (مثلاً)
والcombo يوجدفيها mm ,cm ,dm وهكذا
وعند اختيار الوحدة من الكومبو يتم عرض النتيجة في التكست مباشرة
هل من حل أرجوكم
هذه النقطة عقدتني وأخرت إنهائي للبرنامج

[صقر الجزيرة]

للرفع

آسف أقصد أداة الcombobox

[المبرمج البسيط]

PHP كود :

Private Sub Combo1_Click()
If Text1.Text = "" Then MsgBox "لا يوجد قيمه رقميه في مربع النص"
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (1000)
If Combo1.Text = "cm" Then Text1.Text = (Text1.Text) / (100)
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (10)

End Sub

Private Sub Form_Load()
On Error Resume Next
Text1.Text = ""
Combo1.Clear
Combo1.AddItem "mm"
Combo1.AddItem "cm"
Combo1.AddItem "dm"
End Sub 


[صقر الجزيرة]

المبرمج البسيط كتب :

PHP كود :

Private Sub Combo1_Click()
If Text1.Text = "" Then MsgBox "لا يوجد قيمه رقميه في مربع النص"
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (1000)
If Combo1.Text = "cm" Then Text1.Text = (Text1.Text) / (100)
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (10)

End Sub

Private Sub Form_Load()
On Error Resume Next
Text1.Text = ""
Combo1.Clear
Combo1.AddItem "mm"
Combo1.AddItem "cm"
Combo1.AddItem "dm"
End Sub 


أسأل الله العلي العظيم أن يفرج همك وييسر أمرك ويرزقك من حيث لا تحتسب
وفرت علي عناء كبير لأني بحثت لمدة يومين ولم أجد

فبارك الله فيك