انا عملت صندوق نص
وعدلت علي maxlength خليته 6 بس
عايز لما ادخل رقم يكتبه زي كدة
مثلا 2
000002
333
000333
4567
004567
يعني المقصود انه يكمل الخانات الفاضية ب صفر
ولكم جزيل الشكر
تسلم استاذ ممدوح
الكود تمام
ممكن تعمل الكود التالي:
كود لجعل صندوق النص لا يكتب إلا أرقاماً:
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Dim txt As String = "0123456789"
If txt.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If
End Sub
الكود الثاني لجعل صندوق النص يضيف لك الأصفار:
كود :
Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
TextBox1.Text = Strings.RSet(TextBox1.Text, 6)
TextBox1.Text = Strings.Replace(TextBox1.Text, " ", "0")
End Sub