سؤال حول التيكست بوكس

يمكنك استخدام الطريقة التالية

مثلا تريد اجبار المستخدم على ادخال ارقام فقط فى التكست بوكس يكمنك كتابة الكود التالى فى الحدث change للتكست بوكس:

If Not IsNumeric(Text4.Text) Then

SendKeys "{backspace}"

Beep

End If

كده انت لن تسمح للمستخدم الا كتابة ارقام فقط

اما عن الحروف فارجو من الاخوة المبرمجين الرد عليك فيه لانى لا اعرفه

:wacko:

اخي العزيز الكود التالي لكي يجعل ال textbox يستقبل ارقام فقط :

اكتب الكود الملحق في module

Public Function WriteNumbersOnly(Y As Integer)

Dim Allowed As String

Allowed = "0123456789."

If Y <> 8 Then

If InStr(Allowed, Chr(Y)) = 0 Then

WriteNumbersOnly = 0

Beep

Else

WriteNumbersOnly = Y

End If

Else

WriteNumbersOnly = Y

End If

ثم اكتب امر الاستدعاء مع اي textbox

امر الاستدعاء لهذه الfunction هو call WriteNumbersOnly

في طريقه ديما تعملهاوتريح بالك في مشروع بعد كده انت هتعمل class جديد يورث ال controls.textbox ويعدل البروبرتي الي اسمها text يخليها ارقام بس او حروف بس ووتعمل Build وخليه ال dll بقا في جيبك عشان هتعوزو كتير :D