+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة في أداة combotext (/showthread.php?tid=8653)
مساعدة في أداة combotext - صقر الجزيرة - 26-04-13
السلام عليكم
أخواني أنا قربت على إنهاء مشروعي وبقيت لدي إشكالية عويصة
لم استطع حلها أبداً
وهي
أنه يوجد لدي مربع text وفيه ناتج أحد العمليات الحسابية
أردت أن أضيف أداة combobox وجعل الوحدات فيها
بحيث أن الناتج الموجود في التكست يكون بوحدة المتر (مثلاً)
والcombo يوجدفيها mm ,cm ,dm وهكذا
وعند اختيار الوحدة من الكومبو يتم عرض النتيجة في التكست مباشرة
هل من حل أرجوكم
هذه النقطة عقدتني وأخرت إنهائي للبرنامج
مساعدة في أداة combotext - صقر الجزيرة - 26-04-13
للرفع
آسف أقصد أداة الcombobox
مساعدة في أداة combotext - المبرمج البسيط - 26-04-13
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
مساعدة في أداة combotext - صقر الجزيرة - 26-04-13
المبرمج البسيط كتب :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
أسأل الله العلي العظيم أن يفرج همك وييسر أمرك ويرزقك من حيث لا تحتسب
وفرت علي عناء كبير لأني بحثت لمدة يومين ولم أجد
فبارك الله فيك