| ★If...Then...Else 基本形 Part3 | |||
◎条件がAの場合はAAの処理を、条件がBの場合はBBの処理を、条件がCの場合はCCの処理をしなさい。 |
|||
If 条件式 A Then 条件式 Aに一致していれば、ステートメントAA を実行します。 ElseIf 条件式 B 条件式 Bに一致していれば、ステートメントBB を実行します ElseIf 条件式 C 条件式 Cに一致していれば、ステートメントCC を実行します End If |
|||
例） 結婚をしている場合は、メッセージボックスに”手を出すと不倫だぞ！” 未婚なら”この子は大丈夫！” バツイチなら”まだまだOKよ” ってメッセージをいれる。 さぁ、今度はフォームにオプションボタンをを3つとコマンドボタンを１つフォーム上に作ります。 オプションボタンのCaptionプロパティは、結婚、未婚、バツイチ っていうように変更しておきましょう。こんな感じですよ。  |
|||
Private Sub CommandButton1_Click() If OptionButton1 = True Then MsgBox "手を出すと不倫だぞ!" ElseIf OptionButton2 = True Then Msgbox"この子は大丈夫！" ElseIf OptionButton3 = True Then Msgbox"まだまだOKよ！" End If End Sub |
|||
これで出来上がりです。  既婚を選ぶと「手を出すと不倫だぞ！」 未婚を選ぶと「この子は大丈夫！」 バツイチを選ぶと「まだまだOK！」 |
|||
|
|||