طلب كود بسيط ان شاء الله

وعليكم السلام

ضع هذا الكود في الحدث KeyPress التابع للأداة Text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
		KeyAscii = 0
	End If
End Sub

هذا الكود يمنع المستخدم كتابة اي شيئ الا ارقام

السلام عليكم ورجمة الله

في كمان الدالة التاليه اذا كان النص موجود

text1=replace(text1,"/","")

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

انا على ما فهمت انه المدخل مثلاا على صوره تاريخ والمطلوب حذف ال"\" لاستعمالها فى البرنامج....

ممكن تعلم لووب تشوف المحتويات حرف حرف لو كان النوع رقم اضافته لمتغير ولو غير كده عدم اضافته...

ولو معرفتش الكود انا ممكن اكتبهولك بس حاول..وممكن يكون فيه طريقه اسهل , الله اعلم

خد يا سيدي الكود ده

If IsNumeric(Text1.Text) = False Then

SendKeys "{backspace}"

End If

والكود ده بيعمل الآتي انه بيخليك تكتب ارقام بس في التكست ومينفعش تحط اي حاجة ولو حتي اي علامة في التكست ده يعني ارقام فقط لا غير وجرب بنفسك ورد عليا انا في الخدمة

اتمني لك التوفيق