10-02-15, 08:25 PM
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء تحياتي لكم جميعاً
هذا كود وظيفته ادخال ارقام من نوع Double في تكست بوكس
If e.KeyChar = "." Then
If InStr(Me.TextBox5.Text, ".") > 0 Then
e.Handled = True
End If
Else
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
End Select
End If
اريد كود وظيفته ادخال ارقام من نوع Double في خلية داتا كريد فيو فيجوال بيسك 2008
يعني يقبل الارقام من نوع Int وكذلك يقبل الارقام من نوع Double ويقبل ادخال الفاصله مره واحده وشكرا