[Lathe1]

(19-07-21, 12:01 PM)Lathe1 كتب :

(02-05-20, 07:46 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته
هذا الكود في المديول وهو إضافة فاصله واحده وارقام فقط 

كود :

Public Sub PointTxt(ByVal e As KeyPressEventArgs, txtPoint As TextBox)

       If Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or (e.KeyChar = "." And txtPoint.Text.IndexOf(".") = -1) Then
           e.Handled = False
       Else
           e.Handled = True
       End If
           End Sub

يمكنك وضع هذا الكود في Events Keypress

كود :

PointTxt(e, TextBox1.Text)

الكود لم يعمل معى لانه فى حدث تغير تكست اعترض على اسم التكست بوكس وطلع رسالة value of type string csnnot be converted to system .windows .forms.textbox

ما الجديد فى الكود