[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