• 0
AbuHazem.vb2012

منع التكست بوكس من رقم صفر في بداية رقم الجوال

سؤال

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

 

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

 

اشكر لكم ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

تفضل أخي

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged        Dim X As String = TextBox1.Text        X = X.TrimStart("0"c)        TextBox1.Text = X    End Sub
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

رحم الله والديك استاذنا الكبير   محمد التركي 

 

طيب  لو بمنعه من الصفر بعد رمز المنطقة مثلا  966 ..

 

الله يبارك فيك  .. استاذنا ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يا اخوة ارغب في منع الصفر بعد رمز المنطقة .. بحيث يبدأ برقم 966505

المهندس محمد تركي بارك الله في علمه  ماقصر حل لي مشكلة الصفر في بداية الرقم وباقي علي هذه النقطة .. 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم اخي حاول أستخدام ComboBox فهي افضل بنظري وستغنيك عن الكثير

 

تقوم بأدراج الدول والمفتاح الخاص لكل دولة فعندما يختار المستخدم دولة العراق مباشرتا سيتم سيتم دمج مفتاح العراق مع رقم المستخدم

 

انا بنظري هذه الطريقة افضل

 

عملت لك مثال بسيط وقمت بتبسيط الكودات لكي يسهل عليك فهمها والتعديل عليها

 

 

Public Class Form1    Dim y As String    Dim X As String    Dim z As String    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged        Dim X As String = TextBox1.Text        X = X.TrimStart("0"c)        TextBox1.Text = X    End Sub        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        If ComboBox1.SelectedItem = "IRAQ" Then            y = "+964"        End If        X = TextBox1.Text        z = String.Concat(y, X)        MsgBox(z)    End SubEnd Class

فهنا قمت بأستخدام طريقة الاخ محمد وعملية دمج لمتسلسلتين

 

بأمكانك استخدام case بدل عن if في حالة الشرط فهي افضل لك

 

وايضا هذه رابط لعدد من functions على المتغيرات اتمنى ان تفيدك

 

http://msdn.microsoft.com/en-us/library/aa903372(v=vs.71).aspx

 

 

وايضاً تجد المثال كاملاً في المرفقات

 

تحياتي

WindowsApplication11.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك اخي الفاضل  Mr Wolfعلى المثال استفدة منه ...

طبعا جعلته في حدث الكي برس ومشي معاي

 

نفع الله بك ..

 

 

 If e.KeyChar = Chr(13) Then

            If ComboBox1.SelectedItem = "KSA" Then
                y = "966"
            End If
            X = TextBox1.Text
            z = String.Concat(y, X)
            TextBox1.Text = z
            ComboBox1.Select()
        End If
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

كيف يمنكنني ان تعديل حقل الجوال لجميع الاشخاص ..باضافة مفتاح المنطقة دفعة واحدة حيث ان السجلات لدي اكثر من 7000 شخص ..

 

عملت الطريقة التاليه ولم تنفع معي ::

 

 Dim str1 As String = "966"
        Try
            MyCmd1 = New OleDbCommand("Update DataInfo1 set Mob = " & str1 & " + Mob ", MyCon1)
            If MyCon1.State = ConnectionState.Closed Then
                MyCon1.Open()
            End If
            MyCmd1.ExecuteNonQuery()
            MyCon1.Close()
            MsgBox("تم تعديل مفتاح المنطقة بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية التعديل")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            MyCon1.Close()
 
        End Try
امل الرد بارك الله فيكم وفي علمكم 
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هل من ايجابة .. تراني محتاج الكود ضروري .. ياحضرات المستشارين .... وفقكم الله .. لاتبخلوا علينا بندعوا  لكم ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحمد لله تم حل المشكلة ...

 Dim str1 As String = "966"
        Dim Fld1 As String = "Mob"
        Dim SQLsrt As String = "Update DataInfo1 set Mob= " & str1 & " & " & Fld1 & "   Where Grp = '" & COGruop.Text & "'"
        MyCmd1 = New OleDbCommand(SQLsrt, MyCon1)
        If MyCon1.State = ConnectionState.Closed Then
            MyCon1.Open()
        End If
        MyCmd1.ExecuteNonQuery()
        MyCon1.Close()
        MsgBox("تم تعديل مفتاح المنطقة بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية التعديل")

 

تم تعديل بواسطه AbuHazem.vb2012
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .