22-12-18, 01:31 AM
اخي شغلت التطبيق ولم افهم ماذا تريد بالضبط ؟
بخصوص رقم الهويه لا يقبل ارقام ولا يزيد عن 9 خانات كالتالي :
الصق هذي الاسطر في الفورم الموجود فيه تكست الهوية :
الأمور الأخرى وضح اكثر .. بذكر اسم الفورم واسم التقرير .....
بخصوص رقم الهويه لا يقبل ارقام ولا يزيد عن 9 خانات كالتالي :
الصق هذي الاسطر في الفورم الموجود فيه تكست الهوية :
كود :
Private Sub IdTextBox_TextChanged(sender As Object, e As EventArgs) Handles IdTextBox.TextChanged
If IdTextBox.TextLength > 9 Then IdTextBox.Text = Mid(IdTextBox.Text, 1, IdTextBox.TextLength - 1) : IdTextBox.SelectAll() : MsgBox("تسعة ارقام فقط")
End Sub
Private Sub IdTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles IdTextBox.KeyPress
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
Case Else
e.Handled = True
End Select
End Subالأمور الأخرى وضح اكثر .. بذكر اسم الفورم واسم التقرير .....
يا رحمن الدنيا والآخرة ورحيمهما

