Win2000、VB6.0です。
テキストボックスとADOコントロールを使用して、レコードを編集・更新するフォームを作っています。
ただ、簡単に書く為に下の説明文ではDBについては書きません。
Form1に、Text1とText2があるとします。
Tab移動だけではなく、Text1に4桁目まで入力された時点で、Text2へフォーカスが移動するようにしたいと考えています。
Text1のChangeイベントで、
------------------------------------
Private Sub Text1_Change()
If Len(Text1.Text) >= 4 Then
Text2.SetFocus
End If
End Sub
------------------------------------
以上のように記述しています。
ただ、Form1のロード時に、
------------------------------------
Private Sub Form_Load()
Text1.Text = "1111"
End Sub
------------------------------------
以上のように記述すると、
「実行時エラー"5";」
「プロシージャの呼び出し、または引数が不正です。」
とエラーが発生してしまいます。
ロード時にテキストボックスに表示しつつ、入力された現在の桁数をカウントして、フォーカス移動する方法は無いのでしょうか?
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
SetFocus を使わずに Enabled でフォーカスを移したら?
MaxLength も使って。
Private Sub Form_Load()
With Text1
.IMEMode = 3
.MaxLength = 4
.Text = "1111"
End With
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) >= 4 Then
With Text1
.Enabled = False
.Enabled = True
End With
End If
End Sub
No.2
- 回答日時:
エラーを回避されるだけなら
Private Sub Text1_Change()
If Len(Text1) >= 4 Then
If Text2.Visible Then Text2.SetFocus
End If
End Sub
Text2.Visible=TrueならSetFocusとすればエラーは出ないです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスを前面に表...
-
SPREAD(GrapeCity)のセルにフォ...
-
iPhoneのクイックアクションを...
-
Chrome フォーカス時に枠が表示...
-
コンボボックスの開いたリスト...
-
ScrollBarコントロール
-
Excelのマクロで実行時エラー”1...
-
TDSマジックランプシアター 箱...
-
ホームページビルダー11のフォ...
-
手からビームって出せるんです...
-
tabキーによるフォーカスをさせ...
-
携帯用Flashコンテンツ作成して...
-
アドレス帳のシークレット機能...
-
DataGridViewで入力チェック後...
-
フォームを継承した際の、コン...
-
サイレントモードのやり方
-
コンボボックスの三角を一時的...
-
DAMのデンモクの使い方
-
C#でButtonのフォーカス枠を消...
-
Flashは独学で習得できるもので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスを前面に表...
-
SPREAD(GrapeCity)のセルにフォ...
-
Excelのマクロで実行時エラー”1...
-
Chrome フォーカス時に枠が表示...
-
コンボボックスの開いたリスト...
-
C#でButtonのフォーカス枠を消...
-
iPhoneのクイックアクションを...
-
DAMのデンモクの使い方
-
コンボボックスの三角を一時的...
-
TDSマジックランプシアター 箱...
-
レーザのスポット径の計算式
-
雷のようなアニメーションをウ...
-
ASP.NETにてロストフォーカス処理
-
除光液の正しい捨て方がわかり...
-
初期フォーカスについて
-
MMDでAVI出力後の映像、音声に...
-
フォトショのアクションを別のM...
-
DataGridViewで入力チェック後...
-
手からビームって出せるんです...
-
至急です。 トイレに行きたいな...
おすすめ情報