Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0: Exit Sub
If InStr(1, "0123456789", Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub
If Text1.SelStart >= Len(Trim$(Text1.Text)) Then KeyAscii = 0: Exit Sub
Dim Text1Text As String: Text1Text = Text1.Text
Dim Text1SelStart As Integer: Text1SelStart = Text1.SelStart
Mid$(Text1Text, Text1SelStart + 1, 1) = Chr$(KeyAscii)
Text1.Text = Text1Text
Text1.SelStart = Text1SelStart
KeyAscii = 0
End Sub
(08-05-21, 08:02 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم, أضف Text1 في برنامجك وضع أرقام معينة في التكست ثم أضف كود حدث الـKeyPress لهذا التكست كما يلي ثم جرب تغيير الأرقام :
PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0: Exit Sub
If InStr(1, "0123456789", Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub
If Text1.SelStart >= Len(Trim$(Text1.Text)) Then KeyAscii = 0: Exit Sub
Dim Text1Text As String: Text1Text = Text1.Text
Dim Text1SelStart As Integer: Text1SelStart = Text1.SelStart
Mid$(Text1Text, Text1SelStart + 1, 1) = Chr$(KeyAscii)
Text1.Text = Text1Text
Text1.SelStart = Text1SelStart
KeyAscii = 0
End Sub
(15-05-21, 07:29 PM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .