スクリーンキーボードのテンキーのみをＶＢでつくりたい (ID：82123)

名前

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

本文

レスThank Youです。
とりあえずは、同一フォーム上にコマンドボタンを貼って、VBのサンプルプログラム 
calc.vbpを参考にいろいろといじくってできているのですが、
タッチパネルを想定したEXEを2,3本つくらないといけないので、
アプリケーション固定にならずに、キーボード操作と同じような作りこみをしたいのです。

とりあえずはGetNextWindowで１件前のハンドルをとってそれがメモ帳だとうまくいくようにはなったのですけれど、今後のことを踏まえてVB6.0のexe  もしくは
メモ帳のみ有効なものをつくりたいのです。

GetClassNameで、VB6.0のexeかどうかを判断するところまではいったんですけれど、
そのフォームが入力可能かどうか、もしくはそのフォーム上にテキストボックスが複数あったときに、前回有効であったテキストボックスはどうれか？
などを判断することができません。

ここに一部のソースを公開します。
まずいところがあったらご指摘願います。

Dim vhwnd As Long
    Dim clhWndBuf As Long
    Dim hEditbox As Long  'エディットボックスのハンドル
    Dim sBuf As String * 256
    Dim csBuf As String

clhWndBuf = Me.hwnd
    i = 0
    Do
        clhWndBuf = GetNextWindow(clhWndBuf, GW_HWNDNEXT)
        If clhWndBuf <> 0 Then
            If clhWndBuf = Me.hwnd Then
            Else
                
                If GetClassName(clhWndBuf, sBuf, Len(sBuf)) Then
                    csBuf = DelNul(sBuf)
                    If InStr(1, csBuf, "Thunder", vbTextCompare) = 0 Then
                        'エディットボックスのハンドル取得
                        hEditbox = GetTopWindow(clhWndBuf)
                        If hEditbox <> 0 Then
                            '確定
                            Exit Do
                        End If
                    End If
                End If
            End If
        End If
    Loop

←解決時は質問者本人がここをチェックしてください。

戻る