tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルKeyUpイベントについて
記事No14961
投稿日: 2010/10/08(Fri) 16:16
投稿者ロイ
はじめまして。ロイです。

フォーム上にテキストを1つ作り
そのテキストのKeyUpイベントで計算するようなもの
を作成しているのですが

コンピュータをロック(Ctrl+Alt+Delete)し、ロックを解除した際に
テキストにフォーカスがある場合、KeyUpイベントが発生してしまいます。

コンピュータのロック解除の時だけ
KeyUpイベントを発生させない方法はありますか?


宜しくお願いします。

環境
 WindowsXP
  VB6 SP3

[ツリー表示へ]
タイトルRe: KeyUpイベントについて
記事No14963
投稿日: 2010/10/09(Sat) 14:33
投稿者花ちゃん
> フォーム上にテキストを1つ作り
> そのテキストのKeyUpイベントで計算するようなもの
> を作成しているのですが

Text1_Change イベント等で実行したのではだめなのですか? その理由は!

> コンピュータをロック(Ctrl+Alt+Delete)し、ロックを解除した際に
> テキストにフォーカスがある場合、KeyUpイベントが発生してしまいます。
下記のようにフラグを設定してキーが押されたかを判定するような仕組みを作るとか。

Option Explicit
Private CtrAltDel As Boolean
Private No As Integer
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = 46 Or KeyCode = 18 Or KeyCode = 17 Then
      CtrAltDel = True
      No = No + 1
   Else
      CtrAltDel = False
      No = 0
   End If
   If CtrAltDel = False And No <= 1 Then
      Debug.Print "計算式を実行"
   End If
End Sub
但し、上記だけでは十分で無いかも知れません、やはり、他のイベントを使った方が簡単
かと思います。


> 環境
>  WindowsXP
>   VB6 SP3

SP3 が VB6.0 のサービスパックの事だったら、至急、SP6 を当ておいて下さい。

[ツリー表示へ]