全角文字の範囲の指定の仕方

質問

初心者ですが、
VB.NETプログラミングをしています。

ある文字列に次のように
テキストボックスの値を代入し
この全角文字の種類に応じて
処理を変化させたいと考えています。
String型のsDataの値が"０"から"９"の範囲の場合
一律同一の命令を実行するようにするには
どのようにしたら良いでしょうか？
一応、下のようにやってみたのですが、うまくいきません。
ご教示ください。

Dim sData as String
sData = textbox1.Text

If sData<"０" or sData>"９" Then
Elsif
（処理命令)
Endif

回答No.1

AloneAgain · ベストアンサー

こんにちは。

VB.NETは使ったことがないので、まちがっていたらゴメンナサイ。

--------
文字列をCInt関数などを使って、数値に変換する必要があると思いますよ。

CInt(sData）・・というように。

IF文よりはSelect Caseを使った方が簡単です。

Select Case CInt(sData)
　Case 0 To 9
　　＜0から9の場合の処理＞

　Case Else
　　＜それ以外の処理＞

End Select

お礼

回答ありがとうございます。
Select Caseを使ったらできました。
機会があればCInt関数を使ってみます。
ありがとうございました。

回答No.2

imogasi

VB.NETでないが(VBだが）、If文の行は同じはず。
Sub test01()
x = InputBox("0-9")
If x >= "０" And x <= "９" Then
MsgBox "全角数字です"
Else
MsgBox "全角でないか数字でない"
End If
End Sub

お礼

Select Caseを使ったらできました。
でもIF文でもできるはずですよね、、。
IF文を使うときに、何か不備があったのでしょうね。
ありがとうございました。