[هاوي1995]

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


عندي تكست بوكس واريد اظهار رسالة تنبيه اذا المستخدم قام باضافة اي جمل
حيث ان التكست بوكس لا يقبل الا ارقام
وجزاكم الله خير

[LoveVb]

تفضل

كود :

  Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = Char.IsLetter(e.KeyChar)
    End Sub

[هاوي1995]

جزاك الله خيرا
وكود رائع بس هل يوجد كود اخر ينبه المستخدم على شكل رسالة ان هذا التيكست بوكس لا يقبل الا الارقام

[LoveVb]

كود :

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsLetter(e.KeyChar) Then
            e.Handled = True
            MsgBox("أرقام فقط")
        End If
    End Sub

[هاوي1995]

شكرا لك معلومه جديده وطيبة

بس لو استخدم التكس بوكس في حالات متعدده
يعني case 1
ابيه فقط يقبل الارقام
case2
يقبل الحروف والارقام

[LoveVb]

العفو
أضف اداتين RadioButton
الاول ارقام والثاني ارقام وحروف

كود :

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsControl(e.KeyChar) = True Then Exit Sub
        If RadioButton1.Checked = True AndAlso Char.IsDigit(e.KeyChar) = False Then
            MsgBox("ارقام فقط")
            e.Handled = True
        ElseIf RadioButton2.Checked = True AndAlso Char.IsLetterOrDigit(e.KeyChar) = False Then
            MsgBox("ارقام او حروف فقط")
            e.Handled = True
        End If
    End Sub

[هاوي1995]

تسلم وجزاك الله خير

هل توجد طريقة اخرى بدون اضافة اي ازرار

[LoveVb]

تقدر تعتمد على قيمة متغير
او عند انتهاء تنفيذ اكواد في الزر
؟

[هاوي1995]

(24-10-16, 02:12 AM)LoveVb كتب : تقدر تعتمد على قيمة متغير
او عند انتهاء تنفيذ اكواد في الزر
؟

ممكن مثال على كيفية الاعتماد على قيمة متغير
وجزاك الله خير