| 投稿日 | ： 2005/12/02(Fri) 17:31 |
| 投稿者 | ： Muu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: FlexGridからフォーカスを移すと… |
> お答えありがとうございます。
> どのセルの上でもいいのでF10キーを押すとフォーカスが移ってほしいのです。その他の場合は移
らな
く
> でもいい
> んですが。。。
以下の方法ではいかがでしょうか？
処理内容
フレキシブルグリットでF10を押すと、コマンドボタンにフォーカスが移ります。
そこで、Enterキーを押すと、フォームに成功と文字が表示されます。
Private Sub Command1_Click()
Print "成功"
' フォームのユーザ操作を認識するように戻す。戻さないと、フォーム上の操作が出来なくなりま
す。
Form1.Enabled = True
End Sub
Private Sub Command1_GotFocus()
' コマンドボタンにフォーカスが移った時、フォームのユーザ操作を認識しないようにする。
Form1.Enabled = False
End Sub
Private Sub Form_Load()
' コマンドボタンにデフォルトを設定。
'これで、Enterキーを認識します。
Command1.Default = True
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF10 Then
Command1.SetFocus
End If
End Sub