| ■ テキストのフル桁チェック |
| テキストボックスでフル桁入力のチェックを行います |
| 桁数を記述しないので、汎用的に使用することができます |
| Visual Basic のバグで MaxLength + 1文字入力できてしまいます（このチェックとは無関係です） |
| 上記のバグを発生させるにはテキストに MaxLength 分の長さを入力している状態で、テキストの一部を反転しておき、MaxLength + 1 文字以上になるように文字列を貼り付けます（Visual Basic 6.0でも発生を確認しています．．．VB2.0の頃は発生してません） |
' テキストが全桁入力されていない場合
If Len(Text1.Text) <> Text1.MaxLength Then
' メッセージを表示する
Msgbox "フル桁で入力してください", vbExclamation
End If
|