タッチパネル用テンキープログラムを作成するには？ (ID:120985)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ※横スマソ とりあえず、自分にフォーカスが移ってきても、 直前のウィンドウにフォーカスを持っていかないと入力可能な状態にならないということなので、 「直前の、自分以外のウィンドウハンドルを取得する」プログラムを作ってみますた。 'Form1.frm 'タイマー:Timer1を貼り付ける。 Option Explicit Private Declare Function GetForegroundWindow Lib "user32" () As Long Private LastActiveWindow As Long Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() '直前のアクティブなウィンドウを保存 Dim aw As Long Dim ctl As Control 'アクティブなウィンドウのハンドルを取得 aw = GetForegroundWindow 'awは自分のウィンドウのハンドルか？ If aw = Me.hWnd Then Exit Sub '自分の所有するウィンドウ以外がアクティブになった If LastActiveWindow <> aw Then LastActiveWindow = aw Debug.Print aw End If End Sub …ゴリゴリ書いたので、多分もっと良い方法があると思う＆バグあるかも(orz ノ＜ま、参考程度に(TT