אני מתכנת בויזואל בייסיק, ולא מצליח למצוא את התכונה או הקוד, שיבדקו מה המשתמש רושם בתיבת הטקסט.

במילים אחרות אני רוצה שבתיבת טקסט המיועדת למספרים המשתמש לא יצליח לרשום אות או תו..

תודה רבה.

אתה יכול לעשות את זה על ידי 2 תנאים:

קוד:

 Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii < 48 Then
		KeyAscii = 0
	End If
	If KeyAscii > 57 Then
		KeyAscii = 0
	End If
End Sub
 

תשים לב!. ניתן לעקוף את זה על ידי שליחת הודאה. לכן תיצתרך ליבדוק האם הערך הוא מספרי ליפני השימוש...

טעות.

קוד:

Private Sub Text1_KeyPress(KeyAscii As Integer)

	KeyAscii = GetIntValues(KeyAscii)
	If KeyAscii = 13 Then
		MsgBox Text1.Text
	End If
	
End Sub

Private Function GetIntValues(ByVal Key As Integer) As Long

	If Key = 0 Then Exit Function
	If Key = 46 Then Exit Function
	
	If (Key >= 48 And Key <= 57) Or (Key = 8 Or Key = 13) Then
		GetIntValues = Key
	End If
	
End Function

http://www.a1vbcode.com/snippet-4131.asp

הורדת סרטונים

אין יתרונות של הקוד הזה על שלי... הם עושים אותו דבר בדיוק...

ציטוט:

במקור נכתב על ידי רמי ד אין יתרונות של הקוד הזה על שלי... הם עושים אותו דבר בדיוק...

לא ראיתי את הקוד שלך כשכתבתי את ההודעה. רק אחרי שפרסמתי את ההודעה ראיתי את ההודעה שלך.

הורדת סרטונים