select case

[amaali20]

سلام
من از روش select case در برنامه استفاده کرده ام
زمانیکه مثلا می نویسم case 345 TO 400 دستورات برای اعداد دو رقمی مثل 35 و 36و 37و ... هم عمل می کند
لطفا راهنمایی کنید

[mostafa_bahar]

از ifelse استفاده کن

[amaali20]

ببخشید ifelse را کجا باید نوشت



Select Case Textss.Text
Case 18
TxtSS(0).Text = 11
Case 19
TxtSS(0).Text = 14
Case 200 To 345
TxtSS(0).Text = 34
End Select

[xxxxx_xxxxx]

شما باید عبارت مقابل Select Case را به درستی وارد کنید. اگر منظورتان محتوای عددی آن است باید Val آن را برگردانید.
این مشکل به دلیل این که محتوای عبارت مقابل Select Case از نوع رشته ای است رخ میدهد.

بنابراین یک Select Case صحیح به شکل زیر است:


Select Case Val(Text1.Text)
Case 345 To 400
MsgBox "...."
End Select


موفق باشید/