ياخبراء أنقذوني في كتابة الأكواد

اتمنى ايجاد الاجابه ايضا

عندك واجب زي واجبي يانيران

إدعمني إذا وأصرح بأعلى صوتك ساعدوني يا الفريق العربي ;)

على العموم يانيران انا حليت الشياء إلي ما تحتها خط إذا تبيني أشرحلك إياها أنا مستعد

صحيح واجب مبتدئ لكني محترفة اصدار 6

فشكرا شكرا ع المبادره

ويوجد كود لكن لايطبق ع 7

وهو

============

Private Sub Textbox1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

End Sub

==============

الألأخوه الكرام نريد جواب عاجل

:s

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

علشان تاكد انة دخل ارقام مش حروف اكتب الكود التالى

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If IsNumeric(Me.TextBox1.Text.Trim) Then
        Else
            MessageBox.Show("خطأ - الرجاء إدخال قيمة عددية في هذا الحقل")
            Me.TextBox1.Clear()
            Me.TextBox1.Focus()

        End If
    End Sub

الله يعطيك الف الف عافيه اخوي ضبط معي

لكن الافضيله رفع me لأنها تجبر الادخال بمجرد وضع الماوس حتى بعد اغلاق الفورم

تظهر الرساله

كذا اوكيه وتمام بس بقى حاجه اخيره وهي كيف احدد انو المدخله ضروري تكون اكبر من الصفر ولاتزيد عن 100

السلام عليكم

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If Me.TextBox1.Text.Trim = 0 Or Me.TextBox1.Text.Trim > 100 Then
            MessageBox.Show("TextBox1")
        Else
            Me.TextBox2.Focus()
        End If
    End Sub

الله يعطيك الف عافيه ضبط

بس آخرطلب اجمع لي الكودين

حاولت وماضبطت

لأنها ستطبق على textbox واحد يكون فيه نفس الشرطين

أخواني الكرام...

أفضل Event للتأكد من شرط معين في TextBox هي ال Validating وإليك المثال التالي:

   Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validating
       if IsNumeric(TextBox1.Text) =True then
           Select Case Val(TextBox1.Text)
                 Case Is < 0
                      MessageBox.Show (" أدخل رقم أكبر من صفر")
                 Case Is > 100
                      MessageBox.Show("أدخل قيمة أقل من صفر")
           End Select
       Else
           e.Cancel=True
           TextBox1.Text=Nothing
       End If
   End Sub

شكرا على تعاونكم معي لكن ما ضبطت معي يمكن عشان انا مبتدئ

وأكرر شكري

تمام التمام ضبط معي مع بعض التغيرات البسيطه

ألله يجزاك كل خير اخي الفاضل حمزه والأخ وليد استفدت من كلا الكودين

الأخ خطير اون لاين تفضل الكود

Private Sub TextBox7_Validating(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox7.Validated
        If IsNumeric(TextBox7.Text) = True Then
            Select Case Val(TextBox7.Text)
                Case Is <= 0
                    MessageBox.Show(" أدخل رقم أكبر من صفر")
                    Me.TextBox7.Clear()
                Case Is > 100
                    MessageBox.Show("أدخل قيمة أقل من 100")
                    Me.TextBox7.Clear()
            End Select
        Else
            Me.TextBox7.Clear()
            MessageBox.Show("فضلا ادخل ارقام الدرجات بدون حروف")

        End If
    End Sub

واريد منك اعطائي كود اسم الفورم بشكل شفاف

والأخوه لو احد لديه طريقه لأجعل زر botton & label & groubbox شفاف بدون لون ؟