تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] احتاج كود (طلب ادخال عمر المستخدم )
#1
السلام عليكم 

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

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

وشكراً
الرد
تم الشكر بواسطة:
#2
وعليكم السلام اخي


 
كود :
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
الرد
#3
(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
  




شكرررا جزيلا ماقصرت 
اشتغل الكود
الرد
تم الشكر بواسطة: asemshahen5
#4
تدلل اخي الكريم
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad احتاج الى مساعدة في list box malek369 11 169 02-12-19, 04:08 AM
آخر رد: malek369
  [VB.NET] احتاج الي تحويل هذا المشروع من السي شارب الي الفيجوال بيسك مشروع صغير abo3li8555 5 243 21-11-19, 02:07 AM
آخر رد: Benmouha
  ادخال الوقت الحالى + تاريخ الادخال mmali127 3 189 03-11-19, 12:14 PM
آخر رد: mmali127
  [VB.NET] احتاج الي كودين اليوم السابع 4 205 27-10-19, 04:39 PM
آخر رد: ابو روضة
  احتاج كود اذا كان الداتا جريد فيو فارغ يرسل رساله mostafa12 1 153 04-10-19, 05:34 AM
آخر رد: asemshahen5
  فكرة لصلاحيات المستخدم SaedAmer 1 173 21-09-19, 06:22 PM
آخر رد: baha
  [سؤال] فورم ادخال بيانات للمرة الاولى فقط SEDMED 2 188 21-09-19, 03:39 PM
آخر رد: SEDMED
  [سؤال] احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser dametucorazon 7 335 25-08-19, 11:22 PM
آخر رد: dametucorazon
Exclamation [VB.NET] منع ادخال اكثر من مسافه بين الكلمات في التكست بوكس سميـر 9 355 22-08-19, 01:57 AM
آخر رد: ابراهيم ايبو
  ادخال بيانات لقاعدة بيانات عن طريق عداد bassant 7 360 07-08-19, 01:59 AM
آخر رد: Beginer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم