استخدام مفيد من استخدامات Select

  • طباعة
التفاصيل
الزيارات: 4287


Select Case Val(Text1.Text)

   Case 1 To 12

      MsgBox "قيمة مقبولة"

   Case Else

      MsgBox "قيمة غير مقبولة"

End Select

 



http://www.arabteam2000-forum.com/