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

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

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 


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

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