元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) ReturnキーでTabキーの動作(VB6.0)　[No.31の個別表示] 　　　　　サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 日時： 2009/12/27 15:26 名前： 花ちゃん *********************************************************************************** * カテゴリー：[テキストボックス][キー操作][]                                      * * キーワード：TextBox,フォーカス移動,エンターキー,Enter,タブ移動,SetFocus         * *********************************************************************************** No.5276 Re:ReturnキーでTabキーの動作　　投稿者：ＮＡＯ★ [2002/07/16(火)21：41分] CommandButtonコントロールのDefaultプロパティをTrueにしたものをひとつ貼り付けます。 それでそのコントロールに次のような処理をさせれば可能です。 Private TabOrder As Integer Private stTab As Integer, edTab As Integer Private Sub Command1_Click() Dim wk As Control     TabOrder = TabOrder + 1     If TabOrder > edTab Then         TabOrder = stTab     End If          For Each wk In Form1.Controls         If wk.TabIndex = TabOrder Then             wk.SetFocus         End If     Next          End Sub Private Sub Form_Load()     stTab = 0  'テキストボックスのTabIndexの最小値     edTab = 3  'テキストボックスのTabIndexの最大値 End Sub つまり、Enter キーが押されたときはこのボタンがクリックされたのと同じ イベントが発生するので、ここでつぎのTabIndexをサーチしているというわけです。

Page: 1 |

ReturnキーでTabキーの動作(VB6.0)_1 　(No.1の個別表示)　[スレッド一覧へ] 日時： 2011/04/05 11:24 名前： 花ちゃん *********************************************************************************** * カテゴリー：[テキストボックス][キー操作][]                                      * * キーワード：TextBox,フォーカス移動,エンターキー,Enter,タブ移動,SetFocus         * *********************************************************************************** --------------------------------------------------------------------------------- No.5277 RE:ReturnキーでTabキーの動作　　投稿者：あき☆彡 [2002/07/17(水)0：24分] --------------------------------------------------------------------------------- >テキストボックスがたくさんあるFormで、Returnキーを押したら次のコントロールに >フォーカスを移動させたいのですが、何かいい方法はないでしょうか？ このコードを追加してみて下さい(^-^)/ たぶん大丈夫？(^_^;) ヾ(・・;)ォィォィ Private Sub Form_Load()     Me.KeyPreview = True End Sub Private Sub Form_KeyPress(KeyAscii As Integer)     Dim sName As String     If KeyAscii = vbKeyReturn Then         If TypeOf Me.ActiveControl Is TextBox Then             sName = Me.ActiveControl.Name             Me.Controls(sName).Enabled = False             Me.Controls(sName).Enabled = True         End If     End If End Sub

Page: 1 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ