即効テクニック |
●概要● ユーザーフォーム上のテキストボックスにあるフォーカスが他のコントロールに移動するときには、Exitイベントが発生します。このとき、引数CancelにTrueを指定するとイベントをキャンセルし、他のコントロールにフォーカスを移動しないようにすることができます。 構文 Cancel = ブール値 設定項目 内容 ブール値 Trueまたは、Falseを指定 次のサンプルは、テキストボックスのExitイベントで、そのテキストボックスに入力されている値の長さが0の時は未入力と判断し、Exitイベントをキャンセルしています。その結果、このテキストボックスが未入力の場合、カーソルがテキストボックスに内に残り、たのコントロールにフォーカスを移すことができません。 ●サンプル● Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox1.Value) = 0 Then MsgBox "データを入力してください" Cancel = True End If End Sub