VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> お世話になっております。お久しぶりです。
> Do-Loop中で
> ”もしＦ１キーが押されたら”というコマンドを書きたいのですが、
> どうしたらよいでしょうか？

VBはイベントドリブンなので、基本的にDo〜Loop等で
キーが押されたかどうかチェックするのではなく、
キーが押されたらイベントが発生するので、そのイベント処理の中で
やるべきことを書きます。
 
KeyDownイベントを調べて下さい。

> Do-Loop中で
> ”もしＦ１キーが押されたら”というコマンドを書きたいのですが、
> どうしたらよいでしょうか？
> 
> IF Keydown(F1) then
> 
> ではだめでした。
> 単純ではありますがよろしくお願いします。

＃そういう考え方をなさる方はWin以前のＣ言語ユーザーが多いですね。
＃過去のメインループの発想は捨て去りましょう。
＃Winはメッセージループの概念です(VB初心者には必要ない概念ですが)

DoEvants の使用例を応用すると良いかと思いますよ。

> > Do-Loop中で
> > ”もしＦ１キーが押されたら”というコマンドを書きたいのですが、
> > どうしたらよいでしょうか？
> > 
> > IF Keydown(F1) then
> > 
> > ではだめでした。
> > 単純ではありますがよろしくお願いします。
> 
> ＃そういう考え方をなさる方はWin以前のＣ言語ユーザーが多いですね。
> ＃過去のメインループの発想は捨て去りましょう。
> ＃Winはメッセージループの概念です(VB初心者には必要ない概念ですが)
> 
> DoEvants の使用例を応用すると良いかと思いますよ。

ありがとうございます。
以上のアドバイスから以下のように別にルーチンを作りました。

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
dim st As Variant 
If KeyCode = vbKeyF1 Then　’F1キーを押す
Text2.Text = st　　　　’テキストボックス２にst値を入れる
End If
End Sub

ですが、うまく動きません。
ヘルプにkeydownは推奨しません、などと書いてあったりして困惑してます。
お手数ですがよろしくお願いします。

> Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
> dim st As Variant 
> If KeyCode = vbKeyF1 Then　’F1キーを押す
> Text2.Text = st　　　　’テキストボックス２にst値を入れる
> End If
> End Sub
> 
> ですが、うまく動きません。
> ヘルプにkeydownは推奨しません、などと書いてあったりして困惑してます。
> お手数ですがよろしくお願いします。
どううまく動かないのでしょうか？
少なくとも、stが何も設定されていないので、テキストボックスに何を表示したいのか
解りませんが・・・

> > Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
> > dim st As Variant 
> > If KeyCode = vbKeyF1 Then　’F1キーを押す
> > Text2.Text = st　　　　’テキストボックス２にst値を入れる
> > End If
> > End Sub
> > 
> > ですが、うまく動きません。
> > ヘルプにkeydownは推奨しません、などと書いてあったりして困惑してます。
> > お手数ですがよろしくお願いします。
> どううまく動かないのでしょうか？
> 少なくとも、stが何も設定されていないので、テキストボックスに何を表示したいのか
> 解りませんが・・・

F1キーを押しても反応しないのです。
またst値ですが、これは１秒毎に変化する値です。バリアント型で他のテキストボックスには
表示可能でした。
以上お願いします。

> F1キーを押しても反応しないのです。
KeyDownの中でDim宣言しているのですから、
よその 変数 st とは全くの別物です。コードを見る限り
初期化している場所がどこにもないので、何も出ないのは当たり前です。

> またst値ですが、これは１秒毎に変化する値です。バリアント型で他のテキストボックスには
> 表示可能でした。
そもそも、何の業務目的で、このような処理を行っているのでしょう？
もし、１秒待つ為のDo Loopなら止めた方が良いです。

> > F1キーを押しても反応しないのです。
> KeyDownの中でDim宣言しているのですから、
> よその 変数 st とは全くの別物です。コードを見る限り
> 初期化している場所がどこにもないので、何も出ないのは当たり前です。
> 
> > またst値ですが、これは１秒毎に変化する値です。バリアント型で他のテキストボックスには
> > 表示可能でした。
> そもそも、何の業務目的で、このような処理を行っているのでしょう？
> もし、１秒待つ為のDo Loopなら止めた方が良いです。

すみません。実はstは標準モジュールの中でpublic変数で定義しています。
またdo loopは任意のテキストボックスに表示する値を１秒毎に変化させるため
のものです。この１秒毎に変化している値の中で任意の値を他のテキストボックス
に表示することがねらいです。
で、解らない点を把握するため単純化してForm1にテキストボックス１
のみを書いて以下のようなコードを書いたのですがやはり動きません。
根本的に解っていないようです。
お手数ですがよろしくお願いします。

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　 
　If KeyCode = vbKeyF1 Then　’F1キーを押す　
　 Text1 = 1　　　　         ’テキストボックス1に値1を入れる
　 End If
 End Sub

> すみません。実はstは標準モジュールの中でpublic変数で定義しています。
変数の宣言は一番ローカルなものを優先して参照します。
ですので、Publicのものを参照したくばKeyDownの中のDim宣言部分を削除しましょう。
＃グローバル変数かローカル変数か、名前で判る様にしておけば、このようなミスは激減します。

> またdo loopは任意のテキストボックスに表示する値を１秒毎に変化させるため
> のものです。この１秒毎に変化している値の中で任意の値を他のテキストボックス
> に表示することがねらいです。
この作業を行いたいなら、タイマーコントロールを使いましょう。でないとCPUを占有して
非常に多大な負荷を掛ける事になります。
時間稼ぎの為のループはやってはいけません。

タイマーを使って約1秒ごとにカウントＵＰする簡単なサンプルを書きます
(用意するもの フォーム、ラベル、タイマーコントロール)
Private Sub Form_Load()
    Timer1.Interval = 1000
    Label1.Caption = 0
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Label1.Caption + 1
End Sub
＃タイマーのIntervalはそんなに正確ではないのであしからず。

> で、解らない点を把握するため単純化してForm1にテキストボックス１
> のみを書いて以下のようなコードを書いたのですがやはり動きません。
> Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　 
> 　If KeyCode = vbKeyF1 Then　’F1キーを押す　
> 　 Text1 = 1　　　　         ’テキストボックス1に値1を入れる
> 　 End If
>  End Sub
こちらではしっかりTextBoxに"1"が表示されますが？

> > で、解らない点を把握するため単純化してForm1にテキストボックス１
> > のみを書いて以下のようなコードを書いたのですがやはり動きません。
> > Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　 
> > 　If KeyCode = vbKeyF1 Then　’F1キーを押す　
> > 　 Text1 = 1　　　　         ’テキストボックス1に値1を入れる
> > 　 End If
> >  End Sub
> こちらではしっかりTextBoxに"1"が表示されますが？

元の話として、1秒間隔で値を変えるためにDo〜Loopがあるという話だったので、
それが別のところで動いていてイベントを拾えていないだけではないでしょうか？

> > > で、解らない点を把握するため単純化してForm1にテキストボックス１
> > > のみを書いて以下のようなコードを書いたのですがやはり動きません。
> > > Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　 
> > > 　If KeyCode = vbKeyF1 Then　’F1キーを押す　
> > > 　 Text1 = 1　　　　         ’テキストボックス1に値1を入れる
> > > 　 End If
> > >  End Sub
> > こちらではしっかりTextBoxに"1"が表示されますが？
> 
> 元の話として、1秒間隔で値を変えるためにDo〜Loopがあるという話だったので、
> それが別のところで動いていてイベントを拾えていないだけではないでしょうか？

おかげさまで動きました。問題だったのは宣言するオブジェクトがフォーカスのものになっていない
ことでした。Do〜Loop中でも作動しました。お手数をお掛けして申し訳ござませんでした。