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

名前

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

本文

失礼しました。
下記のようにコーディングしたのですが、目的のフォームを見つけることはできたのですが、そのフォーム内のコントロールのハンドルをとるところがうまくいきませんでした。

FindWindowExの関数の戻り値が０になってしまいます。
引数とかが間違っているのでしょうか？

Private Sub Number_Click(Index As Integer)
    Dim vhwnd As Long
    Dim clhWndBuf As Long
    Dim hEditbox As Long  'エディットボックスのハンドル
    Dim sBuf As String * 256
    Dim csBuf As String
    Dim i    As Long
    Dim WndTitle As String * 1000
    Dim Cnt As Integer
    
    clhWndBuf = Me.hWnd
    i = 0
    Do
        clhWndBuf = GetNextWindow(clhWndBuf, GW_HWNDNEXT)
        
        If clhWndBuf <> 0 Then
                
            If GetClassName(clhWndBuf, sBuf, Len(sBuf)) Then
                csBuf = DelNul(sBuf)
                
               'Vb6.0
                If InStr(1, LCase(csBuf), LCase("ThunderRT6FormDC"), vbTextCompare) <> 0 Then
                    
                    'ウィンドウタイトルの取得
                    WndTitle = ""
                    GetWindowText clhWndBuf, WndTitle, 1000
                    
                    Debug.Print WndTitle
                    
                    hEditbox = FindWindowEx(clhWndBuf, 0, "TextEdit", vbNullString)
                    If hEditbox <> 0 Then
                        '確定
                        Exit Do
                    End If
                    hEditbox = FindWindowEx(clhWndBuf, 0, "NumEdit", vbNullString)
                    If hEditbox <> 0 Then
                        '確定
                        Exit Do
                    End If
                
                End If
                
            End If
                
        End If
        
        If clhWndBuf = Me.hWnd Then Exit Sub
    Loop

End Sub

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

戻る