戻る

すべてのテキストボックスの内容をクリアする

目的

フォーム内のすべてのテキストボックスの内容をクリアします。

ポイント

For Each ループを使ってコントロール全体を確認し、テキストボックスの場合はテキストをクリアする。

サンプルコード

Option Explicit Private Sub cmdAllClear_Click() ' すべてのテキストボックスの内容をクリアする     Dim ctrLoop As Control          For Each ctrLoop In Me.Controls              If TypeOf ctrLoop Is TextBox Then                      ctrLoop.Text = ""                  End If              Next      End Sub

ソースのダウンロード