Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1110 / 2272 ツリー ←次へ | 前へ→

【8757】フォーカスの有無の取得 飛ばない豚 06/10/31(火) 17:58 質問[未読]
【8760】Re:フォーカスの有無の取得 keiのおトン 06/10/31(火) 18:54 回答[未読]
【8763】Re:フォーカスの有無の取得 飛ばない豚 06/11/1(水) 8:37 お礼[未読]

【8757】フォーカスの有無の取得
質問  飛ばない豚  - 06/10/31(火) 17:58 -

引用なし
パスワード
   コントロールにフォーカスが当たっているかどうかを調べることはできますか?

具体的にはテキストボックス(box_AAA)です。
このbox_AAAにフォーカスがない場合は、そのまま、
box_AAAにフォーカスがある場合は、次のコントロールにSetFocusした後、
box_AAAの可視プロパティを「いいえ」に変更したいと思ってます。


フォーカスが当たっているかどうかを取得する方法をご存知でしたら、
よろしくお願いします。

【8760】Re:フォーカスの有無の取得
回答  keiのおトン E-MAIL  - 06/10/31(火) 18:54 -

引用なし
パスワード
   ▼飛ばない豚 さん:
>コントロールにフォーカスが当たっているかどうかを調べることはできますか?
>
>具体的にはテキストボックス(box_AAA)です。
>このbox_AAAにフォーカスがない場合は、そのまま、
>box_AAAにフォーカスがある場合は、次のコントロールにSetFocusした後、
>box_AAAの可視プロパティを「いいえ」に変更したいと思ってます。
>
>
>フォーカスが当たっているかどうかを取得する方法をご存知でしたら、
>よろしくお願いします。

こんばんは,別の(すずさんの)件で来て見つけました.

「MsgBox Screen.ActiveControl.Name」で,現在フォーカスを持っている
コントロールの名前を表示します.ですので,

if Screen.ActiveControl.Name = "box_AAA" then
  ・
  ・
  ・

でどうでしょうか?

【8763】Re:フォーカスの有無の取得
お礼  飛ばない豚  - 06/11/1(水) 8:37 -

引用なし
パスワード
   ▼keiのおトン さん:

>if Screen.ActiveControl.Name = "box_AAA" then

ばっちりです。

ありがとうございました。

1110 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078215
(SS)C-BOARD v3.8 is Free