■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#7405-0Doeventsbear2000-02-08(火) 00:41
     #7407-0RE#7405:Doevents魔界の仮面弁士2000-02-08(火) 01:15
#7405-0
Doevents
前にループ中にkeydownなどのイベントをおこすにはDoevntsを使うとおしえて
もらったのですが・・

標準モジュール
Public i As Integer

Sub main()
Form1.Show
Do
DoEvents
Debug.Print i
Loop
end sub
フォームモジュール
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyDown
        i = i + 1
  Case ・・・
End Select

End Sub
とやってみてもiの値が変わりません・・どうすればいいのでしょうか?
#7407-0
RE#7405:Doevents
> とやってみてもiの値が変わりません・・どうすればいいのでしょうか?

ん? 試してみましたが、問題なく変化しましたけど??
とりあえず、確認事項2点。

1. フォームのKeyPreview プロパティはTrueになっていますか?

2. フォーム上に、CommandButtonやOptionButtonなどの、
   「矢印キーでフォーカス移動が行われるコントロール」を貼ってはいませんか?
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)