[Microformt]

(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 


اخي العزيز: احمد منصور
السلام عليكم ورحمة وبركاته
 اسل الله الا يحرمك اجر ما تقوم به
والف شكر لك اخي العزيز

تحياتي