| ■コマンドボタンに処理を割り付ける |
|
１．コマンドボタンをダブルクリックする。 |
|
 |
|
２．プログラム入力用のウィンドウが開く。 |
|
 |
|
３．プログラムを入力する。下の枠の中をそのままコピーして貼り付けてもOK。 |
|
 |
|
Option Explicit
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
MsgBox "ﾃｷｽﾄﾎﾞｯｸｽには何も入力されていません"
Else
MsgBox Me.TextBox1.Value
End If
End Sub
|
|
| ■動作させてみる |
|
１．フォームを前面に表示させる。 |
|
 |
|
２．実行する。
|
次のいずれかで実行できる。 |
|
１． |
[実行] メニューの [Sub/ユーザーフォームの実行] を選択 |
|
２． |
ツールバーの実行ボタンを押す |
|
３． |
ファンクションキーの [F5] を押す |
|
|
 |
|
３．フォームが表示される |
|
 |
|
４．ボタンを押すとテキストボックスに入力された文字をメッセージボックスに表示 |
|
|
テキストボックスの内容を表示する |
|
 |
|
|
テキストボックスに何も入力しないと… |
|
 |
|
５．[OK] ボタンをクリックして、メッセージボックスを閉じたら、右上の[X]
ボタンでフォームを閉じる。
|
|
もどる |
