[ تمت الإجابة ]كيف يتم كتابة أرقام فقط فى تيكست ولا يقبل اى حروف او علامات اخرى

Private Sub text1_KeyPress(KeyAscii As Integer)

If Val(KeyAscii) > 47 And Val(KeyAscii) < 58 Or KeyAscii = 8 Then Else KeyAscii = 0

End Sub

ممكن مثل ما قال الأخ hythamzero وممكن إذا كنت تقوم بعمل آلة حاسبة أن تجعل الـEnabled للتيكست بوكس False ثم تضع أوامر بكتابة الأرقام، مثلاً:

Select Case KeyAscii
Case 48
Text1 = Text1 & "0"
Case 49
...............................

ممكن هذا الكود، أو مثل كود الأخ

الف شكر للأخوة الافاضل

الأستاذ هيثم والاستاذ عبود

وبارك الله لكم .. وسلمت يداكم الكريمة

والكود يعمل يا استاذ هيثم وبكفاءة .. وياريت لو تكمل جميلك وازاى اخليه يكتب حروف بس

معلش انا مبتدىء .. وشكرا ليك ولكل اعضاء المنتدى الكرام

لو اردنا العكس على ان يكتب بالتكست احرف فقط كيف يكون الكود؟؟

اقتباس

لو اردنا العكس على ان يكتب بالتكست احرف فقط كيف يكون الكود؟؟

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then  KeyAscii = 0
End Sub

أيضا للمعلومة يمكن استعمال دالة Not IsNumeric للأحرف أو IsNumeric للأرقام ولكنها تبقي بعض أزرار الكيبورد كالمسطرة وتراجع الحذف والفاصلة وأخرى .. ويمكن عمل تفقيط لهذه الحروف

حيث تستعمل مع الحدث Change لمعرفة حالة صندوق النص عند أي تغير فيه كعمل لصق (Ctrl + V) من الكيبورد أو بقائمة زر الماوس الأيمن

ٍسلمت يداك أخ عبد العزيز اليوسفى

شكرا على المعلومة الجميلة الف شكر لك