منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كود الاضافة

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

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

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

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

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

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