tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: 他アプリのTextBoxの文字取得について
投稿日: 2008/03/06(Thu) 14:45
投稿者
出来たと思ったんですが・・・
実行時エラー49が出ます
ファイルは全て同じディレクトリにありますが、何故なのでしょうか?

呼び出しもと
ret = EnumChildWindows(hWnd, AddressOf EnumChildProc, 0)


コールバック関数
Public Function EnumChildProc(ByVal hWnd As Long) As Long
Dim ret As Long
Dim Leng As Long
Dim Name As String
Dim s As String
Dim buf(255) As Byte


On Error GoTo Ext

    'バッファ確保
    Name = String(255, Chr(0))
    Leng = Len(Name)
    
    
    '名前を取得する
    ret = GetClassName(hWnd, Name, Leng)
    
    If ret <> 0 Then
        If InStr(1, Name, CHILD_CLASS) <> 0 Then
            ret = SendMessage(hWnd, WM_GETTEXT, MAX_BUFF, buf(0))
            s = StrConv(buf, vbUnicode)
            Debug.Print s
      '↑ここで、文字があったときEnd Functionに行くとエラーになる
        End If
    End If
    
    '次にいく
    EnumChildProc = True 

Ext:
End Function

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。