| 想定した値に合せた処理を記入する （０６８） | |
構文 Select Case 条件判定に利用する式 Case 条件判定の式の値 条件を満たす場合の処理を記入 Case Else すべての条件を満たさなかった場合の処理 End Select 使用例 Option Explicit 'SampleNo=068 WindowsXP VB6.0(SP5) 2002.05.15 Private Sub Command1_Click() Dim intNumber As Integer intNumber = CInt(Text1.Text) Select Case intNumber ' intNumber を評価します。 Case 1 To 5 ' intNumber の値が 1 〜 5 の場合。 Label1.Caption = "1 から 5 の間" Case 6, 7, 8 ' intNumber の値が 6 〜 8 の場合。 Label1.Caption = "6 から 8 の間" Case Else ' その他の値の場合。 Label1.Caption = "1 から 8 以外の数値" End Select End Sub テキストボックスに入っている数字によって、Label に結果をプリントしている。 |
|
| よけいなお世話 | |
VBのヘルプのサンプルに書かれている Case Is > 8 And Number < 11 の部分は間違っているようです。 Case Is > 8 , Is < 11 と判断されるので全部の数字が |
|