ورود

View Full Version : زدن یک بار (. ) در رویداد keypress



amini699
پنج شنبه 01 شهریور 1386, 00:48 صبح
ممنون میشم یک کد در رویداد keyperss textbox بنویسم که فقط یک بار بشه ایزن یا (.) رو زد چون من هر کار کردم نمی تونم چه مشکل دارم مثلا 125.63

killer-star
پنج شنبه 01 شهریور 1386, 14:55 عصر
ممنون میشم یک کد در رویداد 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
شنبه 03 شهریور 1386, 00:30 صبح
ممنون عزیز ولی وقتی که اعداد رو پاک می کنی و دوباره مینویسی تایپ نمی شه من میخوام دقیقا مثل ماشین حساب عمل کنه

TheMatrix
شنبه 03 شهریور 1386, 00:45 صبح
لذا:


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