منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة ادخال ارقام في صندوق نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة ادخال ارقام في صندوق نص (/showthread.php?tid=12390)

طريقة ادخال ارقام في صندوق نص - hatem555 - 31-05-15

انا عملت صندوق نص
وعدلت علي maxlength خليته 6 بس
عايز لما ادخل رقم يكتبه زي كدة
مثلا 2
000002
333
000333
4567
004567
يعني المقصود انه يكمل الخانات الفاضية ب صفر

ولكم جزيل الشكر

RE: طريقة ادخال ارقام في صندوق نص - ممدوح الخطيب - 31-05-15

جرب الكود دة
PHP كود :
For i As Integer = 1 To 100
            ListBox1.Items.Add(Format(i, "000000"))
        Next 


RE: طريقة ادخال ارقام في صندوق نص - hatem555 - 31-05-15

تسلم استاذ ممدوح
الكود تمام

RE: طريقة ادخال ارقام في صندوق نص - rafaag777 - 27-10-16

ممكن تعمل الكود التالي:
كود لجعل صندوق النص لا يكتب إلا أرقاماً:

كود :
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