[m-shrif]

كود الاضافة

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
text21.Mask = "##/##/####"
text21.Text = "__/__/____"
text21.Mask = "##/##/####"
text22.Mask = "##/##/####"
text22.Text = "__/__/____"
text22.Mask = "##/##/####"
Text1.SetFocus
End Sub

[KamelArab]

نعم هناك خطى لأن الخاصية Mask ليست من خصائص التكست بوكس

[m-shrif]

معنو في الفورم الاول عملتها بنفس الطريقة واشتغل معايا
وفي الفورم الثاني نفس الطريقة

لكن في الفورم الثالث اعطاني خطاء

[Ahmed_Mansoor]

اهلا ، هل أنت تستخدم أداة التكست بوكس العاديه أم أداة الريتش تكست بوكس ؟

[m-shrif]

ان باستخدم اداة
masked edit control 6.0

[Amir_Alzubidy]

ليس هناك اية مشاكل