سؤال في كيفية وضع ماسك للتكست بوكس أي قناع إدخال

يا أما تصمم أداه لنفسك , يا أما تستخدم أداه Microsoft Masked Edit Control

أخي الكريم سؤال خارج الموضوع هل تصميم الأدوات صعب وهل يجب أن أكون محترفا في الفيجيوال.

وشكرا...

لأ مش صعب ده لذيذ جدا و مش محتاج غير أنك تكون أقل من المتوسط فى الـ VB , راجع قسم الدروس هتلاقى دروس كويسه , أذكر أنى شفت منهم درس فوق الممتاز.

و لولا أنك بتعمل برنامج بالـ VB6 كنت نصحتك بأداه عملها أحمد بروف لكن أعتقد أنه عملها بالدوت نت و طبعا مش معقول تجبر مستخدم على أنه ينزل الـ Framework كله علشان أداه فى برنامج.

يمكنك أستخدم دالة الفورمات لذلك :

Text1 = "11223333"
Text1 = Format(Text1, "@@/@@/@@@@")

أو أستخدم هذه الطريقة:

Private Sub Form_Load()
Text1 = ""
Text1.MaxLength = 10
End Sub

Private Sub Text1_Change()
	Select Case Len(Text1)

		Case Is = 2
		Text1 = Text1 & "/"
		Text1.SelStart = Len(Text1)
		Text1.SelLength = Len(Text1)

		Case Is = 5
		Text1 = Text1 & "/"
		Text1.SelStart = Len(Text1)
		Text1.SelLength = Len(Text1)

	End Select
End Sub

طبعا والكعاده مش عارف اسق استزتي معلميني في اي شيء بس ممكن اضيف حاجه صغيره

وهو استخدام

 instr()

وهي داله للبحث عن حرف او رمز ضمن text

ويحدد وايضا بأستخدام الدوال

	left()   right()

والله اعلم

أشكر الجميع على المشاركة ولقد كان الحل الفعال لمشكلتي حل الأستاذ عبدالعزيز اليوس الحل الثاني أما الحل الأول لم ينفع وعلى العموم شكرا للجميع

أخواني واجهة مشكلة بالكود حيث لما أحذف التاريخ لا يحذف لي العلامة التالية( / ) وأرجو معرفة السبب وشكرا....

مادام نفعك الكود فعدله على الشكل التالي ليناسبك:

Private Sub Form_Load()
Text1 = ""
Text1.MaxLength = 10
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim Len_Text As Integer
Len_Text = Len(Text1)

If KeyCode = 8 And (Len_Text = 5 Or Len_Text = 2) Then SendKeys "{BackSpace}": Exit Sub

	Select Case Len_Text

		Case 2
		Text1 = Text1 & "/"
		Text1.SelStart = Len_Text + 1
		Text1.SelLength = Len_Text

		Case 5
		Text1 = Text1 & "/"
		Text1.SelStart = Len_Text + 1
		Text1.SelLength = Len_Text

	End Select
End Sub

لاحظ أنه تم تغيير الحدث ل KeyUp

1- قم بإضافة الأداة Microsoft Masked Edit Control

2- استخدم هذه الأداة لوضع تكست بوكس على الفورم

3- قم بتغيير خاصية mask إلى ##/##/####

بالتوفيق ..........