数字の間のケースを選択

Question

数字の間に選択するケースを試します。各150000はTextbox5がクリックボタンで変わるコードです。

Select Case TextBox5.Text 
    Case 0 To 150000 
     TextBox6.Text = "-" 
    Case 150001 To 300001 
     TextBox6.Text = "+1-" 
    Case 300002 To 450002 
     TextBox6.Text = "+2-" 
    Case 450003 To 600003 
     TextBox6.Text = "+3-" 
    Case 600004 To 750004 
     TextBox6.Text = "+4-" 
    Case 750005 To 900005 
     TextBox6.Text = "+5-" 
    Case 900006 To 1050006 
     TextBox6.Text = "+6-" 
    Case Else 
     TextBox6.Text = "+Extra-" 
End Select 

私は1050006に900006の間の任意の数をしようとしたとき、私は「+細胞外」ではない「+ 6」 と私が持っている1050006の上にしようとしてい「 - 」

Answer 1

Dim i as Long 
If Long.TryParse(TextBox5.Text, i) 
    Select Case i 
    Case 0 To 150000 
     TextBox6.Text = "-" 
    Case 150001 To 300001 
     TextBox6.Text = "+1-" 
    Case 300002 To 450002 
     TextBox6.Text = "+2-" 
    Case 450003 To 600003 
     TextBox6.Text = "+3-" 
    Case 600004 To 750004 
     TextBox6.Text = "+4-" 
    Case 750005 To 900005 
     TextBox6.Text = "+5-" 
    Case 900006 To 1050006 
     TextBox6.Text = "+6-" 
    Case Else 
     TextBox6.Text = "+Extra-" 
    End Select 
Else 
    TextBox6.Text = "Not a Number" 
End If 

を変更してください要件。

Answer 2

私はティムSchmelterに同意します。その答えを補完あなたは

Select Case CLng(TextBox5.Text) 

を使用する必要があります詳細についてはhttps://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/functions/type-conversion-functionsを参照してください、あなたはそれでいる間は、これは面白いですTextBox5

Answer 3

などのIDを避けます。しかし、それが原因であるかどうかを調べる前に、正しい方法を教えてください。Stringは数字ではありません。Option Strict〜Onとタイプセーフなコードを使用する方法を学んでください。コンパイラがあなたが達成しようとしていることを推測させないでください。

あなたはInt32.TryParseを使用することができます。

Dim number As Int32 
If Not Int32.TryParse(TextBox5.Text, number) Then 
    MessageBox.Show("Please enter a valid integer") 
    Return 
End If 

Select Case number ' now integer is the target type 
    Case 0 To 150000 
     TextBox6.Text = "-" 
    Case 150001 To 300001 
     TextBox6.Text = "+1-" 
    Case 300002 To 450002 
     TextBox6.Text = "+2-" 
    Case 450003 To 600003 
     TextBox6.Text = "+3-" 
    Case 600004 To 750004 
     TextBox6.Text = "+4-" 
    Case 750005 To 900005 
     TextBox6.Text = "+5-" 
    Case 900006 To 1050006 
     TextBox6.Text = "+6-" 
    Case Else 
     TextBox6.Text = "+Extra-" 
End Select 

これは仕事とOption Strict Onでもコンパイルされます。

なぜコードが機能しないのですか？最後の範囲をCase 900006 To 999999に変更すると、期待どおりに動作します。これは、文字列の比較方法を行う必要があります。これをコンパイル（Strict Off）しても、900006 To 1050006は"900006" To "1050006"のように文字列として扱われるため、左から右へ文字の文字が比較されます。"9"は"1"より大きいです。この条件は決して真ではありません最後のCaseではなく、Case Elseに入ることはありません。

Documentation：expressionlistで

式は任意のデータ型にすることができ、は が、彼らはそれは二つのタイプに有効ですtestexpressionの種類と 適切な比較演算子に暗黙的に変換されて現在は となっています。 Option Strict Offexpressionlist（範囲）で

は（理由TextBox5.Textの）Stringあるtestexpressionの型に変換されます。 StringがIntegerではないので Option Strict Onを使用すると、正しくコンパイルエラーを取得：へ

オプション厳密には に「整数」から暗黙の型変換を禁止する「文字列」