لو سمحتم طلب صغير في text

السلام عليكم ورحمة الله وبركاته .

بالنسبة للسؤال الأول فضع الكود في حدث ماوس داون للتيكست الثالث بالشكل التالي :

Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

أما بالنسبة لسؤالك الثاني فضع الأمر التالي في حدث شانج بالشكل التالي :

Private Sub Text1_Change()

 If IsNumeric(Text1.Text) = False Then

 MsgBox "WORNG"

Text1.SetFocus

SendKeys "{BKSP}"

End If

End Sub

وإيضا للسؤال الثاني :

Dim strValid As String

strValid = "0123456789."

'

If KeyAscii > 26 Then

If InStr(strValid, Chr(KeyAscii)) = 0 Then

KeyAscii = 0

End If

End If

'

شكرااااااااان :)

اخواني

وجزاكم الله الف خيرررر

ويعطيكم العافيه

بجد مشيت معي الطريقه :D

واشكركم

تقبلوا فائق احترامي

اختكم

آنين الصمت