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

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

مساعدة فيما يخص الكتابة في textbox - ahmedfa71 - 01-04-18

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام
أما بعد
كيف يمكنني إجبار التكست بوكس على كتابة رقم id
مثلا عوض أن يكتب 01 يكتب  000001 ومن ثم حفظها في قاعدة البيانات بهذا الشكل 000001
كود :
Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <oledb>
                   SELECT
                       Nem                    
                   FROM
                       EmpEmp;
               </oledb>.Value
       DtR = cmd.ExecuteReader
       While DtR.Read
           N = DtR(0)
       End While
       TextBoxNem.Text = (N + 1).ToString
       cn.Close()
   End Sub

ومشكورين مسبقا

RE: مساعدة فيما يخص الكتابة في textbox - سعود الشامان - 01-04-18

وعليكم السلام ورحمة الله وبركاته

أستخدم MaskedTextBox بدل TextBox


MaskedTextBox أحداث وخصائص الأداة

https://youtu.be/9pBlYH0AJFo

RE: مساعدة فيما يخص الكتابة في textbox - ahmedfa71 - 02-04-18

السلام عليكم ورحمة الله وبركاته
تم الحل فيما يخص إجبار التيكست بوكس على كتابة 0000001 بدلا من 01
وذلك كمايلي
كود :
Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <oledb>
                   SELECT
                       Nem                    
                   FROM
                       EmpCcp;
               </oledb>.Value
       DtR= cmd.ExecuteReader
       While DtR.Read
           N = DtR(0)
       End While
       N += 1
       TextBoxNem.Text = N.ToString("000000")
       cn.Close()
   End Sub

شكرا على الردود