زدن یک بار (. ) در رویداد keypress

[amini699]

ممنون میشم یک کد در رویداد keyperss textbox بنویسم که فقط یک بار بشه ایزن یا (.) رو زد چون من هر کار کردم نمی تونم چه مشکل دارم مثلا 125.63

[killer-star]

ممنون میشم یک کد در رویداد keyperss textbox بنویسم که فقط یک بار بشه ایزن یا (.) رو زد چون من هر کار کردم نمی تونم چه مشکل دارم مثلا 125.63

سلام

اینکه خیلی سادس !!!


Dim sth As Boolean

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Then

If sth = True Then
KeyAscii = 0

Else

sth = True

End If

End If

End Sub

[amini699]

ممنون عزیز ولی وقتی که اعداد رو پاک می کنی و دوباره مینویسی تایپ نمی شه من میخوام دقیقا مثل ماشین حساب عمل کنه

[TheMatrix]

لذا:


Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, Text1.Text, ".") <> 0 And KeyAscii = 46 Then KeyAscii = 0
End Sub