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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17740)

تكست بوكس اذا بها جمل اظهر رسالة - هاوي1995 - 21-10-16

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


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

RE: تكست بوكس اذا بها جمل اظهر رسالة - LoveVb - 21-10-16

تفضل

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


RE: تكست بوكس اذا بها جمل اظهر رسالة - هاوي1995 - 22-10-16

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

RE: تكست بوكس اذا بها جمل اظهر رسالة - LoveVb - 22-10-16

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


RE: تكست بوكس اذا بها جمل اظهر رسالة - هاوي1995 - 22-10-16

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

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

RE: تكست بوكس اذا بها جمل اظهر رسالة - LoveVb - 23-10-16

العفو
أضف اداتين 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


RE: تكست بوكس اذا بها جمل اظهر رسالة - هاوي1995 - 23-10-16

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

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

RE: تكست بوكس اذا بها جمل اظهر رسالة - LoveVb - 24-10-16

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

RE: تكست بوكس اذا بها جمل اظهر رسالة - هاوي1995 - 24-10-16

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

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