منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : احتاج كود (طلب ادخال عمر المستخدم )
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

احتاج طريقه كتابه الاكواد لform يحتوي على textbox يدخل فيه المستخدم عمره 
وعلى اساس العمر يوجه المستخدم لفورم معين 

* العمر نوعين
 اما من 8 الى 18 
 او من 19 - 70
 

وشكراً
وعليكم السلام اخي


 
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        On Error Resume Next
        Select Case Val(TextBox1.Text)
            Case 8 To 18
                ' هنا خلي كود الانتقال للفورم 8 -18
                MsgBox("انتقل لفورم العمر 8 - 18")
            Case 19 To 70
                ' هنا خلي كود الانتقال للفورم 19 -70
                MsgBox("انتقل لفورم 19 - 70")
            Case Else
                ' في حالة القيمة المدخلة اقل من 8 او اكثر من 70
                MsgBox("يجب ان يكون العمر محصور بين 8 - 70")
        End Select
    End Sub
(12-11-19, 11:35 AM)علي نوري كتب : [ -> ]وعليكم السلام اخي


 
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        On Error Resume Next
        Select Case Val(TextBox1.Text)
            Case 8 To 18
                ' هنا خلي كود الانتقال للفورم 8 -18
                MsgBox("انتقل لفورم العمر 8 - 18")
            Case 19 To 70
                ' هنا خلي كود الانتقال للفورم 19 -70
                MsgBox("انتقل لفورم 19 - 70")
            Case Else
                ' في حالة القيمة المدخلة اقل من 8 او اكثر من 70
                MsgBox("يجب ان يكون العمر محصور بين 8 - 70")
        End Select
    End Sub
  




شكرررا جزيلا ماقصرت 
اشتغل الكود
تدلل اخي الكريم