VB.NETで子ウィンドウの列挙の仕方がわからない
- VB.NET+FrameWork1.1環境で子ウィンドウの取得方法が分からない。APIを使用してEnumChildWindows関数を呼び出してもデリゲート型の変換エラーが発生する。
- 検索しても解決策が見つからず、正常に動作するコードを書くことができない。Console.WriteLineで出力結果を表示したい。
- 質問文章：ＶＢ．ＮＥＴで子ウィンドウの列挙の仕方がわかりません。VB.NET+FrameWork1.1環境なのですが、子ウィンドウの取得の仕方がどうしてもわからず教えて頂きたいです。デリゲート型の変換エラーが発生しており、正常に動作させることができませんでした。どなたかコードを教えていただけませんか？
- ベストアンサー
ＶＢ．ＮＥＴで子ウィンドウの列挙の仕方がわかりません。
VB.NET+FrameWork1.1環境なのですが、 子ウィンドウの取得の仕方がどうしてもわからず教えて頂きたいです。 Dim Oya As Long Oya = FindWindow(vbNullString, "電卓") Dim Ret As Long Ret = EnumChildWindows(Oya, AddressOf EnumChildWnd, 0) このようにして使うＡＰＩのようなのですが、 デリゲート型をLong型に変換できませんと出てしまいます。 色々検索してみたのですが、それらしい記事が見つかるも どうしても理解できず、正常に動作させることが出来ませんでした。 もうしわけございませんが、どなたか実行可能なコードを書いて いただけないでしょうか。 出力結果はConsole.WriteLineに出るようにして頂けると助かります。 よろしくお願いいたします。ｍ（＿＿）ｍ
- popopompom
- お礼率43% (75/173)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
pinvokeを参考にしてみては？ http://pinvoke.net/default.aspx/user32/EnumChildWindows.html
関連するQ&A
- VB.NETのデリゲートについて
VB.NETのデリゲートについて質問です。 以下のプログラムなのですが、 デリゲート型をインスタンス化しているところで、コンストラクタにパラメータを渡していますが、 そのコンストラクタはどこに定義されているのでしょうか。 (AddressOf t1.Ohayou)というパラメータが渡されていますが、このパラメータを受け取っているコンストラクタがどれなのかが分かりません。 ご教示よろしくお願いいたします。 Delegate Sub Myprint(ByVal s As String) Module Module1 Sub Main() Dim t1 As Test1 = New Test1() Dim t2 As TEst2 = New Test2() Dim d As Myprint = New Myprint(AddressOf t1.Ohayou) d.Invoke("VB太郎") d = New Myprint(AddressOf t2.Konbanwa) d.Invoke("VB太郎") End Sub End Module Class Test1 Sub Ohayou(ByVal s As String) Console.WriteLine("おはようございます。{0}です。", s) End Sub End Class Class Test2 Sub Konbanwa(ByVal s As String) Console.WriteLine("こんばんわ。{0}です。", s) End Sub End Class
- 締切済み
- Visual Basic
- FindWindowについて
APIにFindWindowってありますよね。 MSDNには、Windowが見つからなかったらNULLを返すとありますが、以下のソースではNULL(0)が返ってきません。この理由を教えてください。 '宣言部 Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'コード内 Dim ret As Long ret = FindWindow(vbNullString, "テスト") If ret = 0 Then MsgBox("なし") End If でret =767863736466669568になる。 ちなみに「テスト」というウィンドウなんてありません。 環境は、XP、VB.net2003です。 困っています。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBA ウィンドウの列挙 Win32 API
http://d.hatena.ne.jp/cartooh/20090618 上記のページに記載されているVBAです。 動作は確認できたのですが、どのような処理の流れとなっているのかがわかりません。 どなたかコメントを付けていただけないでしょうか。 よろしくお願いいたします。 Option Explicit Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal cnm As String, ByVal cap As String) As Long Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, _ ByVal lParam As Long) As Long Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long Const INDENT_KEY = "INDENT" Public Function EnumChildWindowsProc(ByVal hWnd As Long, ByVal lParam As Object) As Long EnumChildWindowsProc = EnumWindowsProc(hWnd, lParam) End Function Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Object) As Long EnumWindowsProc = True If IsWindowVisible(hWnd) = 0 Then Exit Function End If Dim strClassName As String ' * 255 Dim strCaption As String ' * 255 strClassName = String(255, vbNullChar) strCaption = String(255, vbNullChar) GetWindowText hWnd, strCaption, Len(strCaption) GetClassName hWnd, strClassName, Len(strClassName) strCaption = RTrim(left(strCaption, InStr(1, strCaption, vbNullChar) - 1)) strClassName = RTrim(left(strClassName, InStr(1, strClassName, vbNullChar) - 1)) ActiveCell.Cells(1, 1).Value = Hex(hWnd) ActiveCell.Cells(1, 2).Value = IsWindowVisible(hWnd) ActiveCell.Cells(1, 3).Value = strCaption ActiveCell.Cells(1, 4).Value = strClassName ActiveCell.Cells(2, 2).Activate Dim c As Collection Set c = lParam Dim indent As Long indent = c(INDENT_KEY) c.Add String(indent * 2, " ") & Hex(hWnd) & " " & strCaption & " " & strClassName, before:=c.Count indent = indent + 1 c.Remove INDENT_KEY c.Add indent, INDENT_KEY Call EnumChildWindows(hWnd, AddressOf EnumChildWindowsProc, ObjPtr(c)) indent = c(INDENT_KEY) - 1 c.Remove INDENT_KEY c.Add indent, INDENT_KEY ActiveCell.Cells(1, 0).Activate End Function Sub hoge() Application.ScreenUpdating = False Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets(1) sht.UsedRange.Clear sht.Activate sht.Range("A1").Activate Dim c As Collection Set c = New Collection c.Add 0, INDENT_KEY Dim ret As Long ret = EnumWindows(AddressOf EnumWindowsProc, ObjPtr(c)) c.Remove INDENT_KEY Set sht = ThisWorkbook.Worksheets(2) sht.UsedRange.Clear sht.Activate sht.Range("A1").Activate Dim o As Variant For Each o In c ActiveCell.Value = o ActiveCell.Cells(2, 1).Activate Next Application.ScreenUpdating = True End Sub
- 締切済み
- Visual Basic
- VB.netでSendMessageを使用して電卓を閉じたい
環境：Win XP,VB.net 2003 sendmessageを使用して電卓を閉じるプログラムを作成しているのですが、どうもあと少しでうまくいかないので質問させていただきます。 Dim hfwnd As Long hfwnd = FindWindowEx(0, 0, "SciCalc", "電卓") If FindWindowEx(0, 0, vbNullString, "電卓") Then MsgBox("電卓動いてます。") Call SendMessage(hfwnd, WM_CLOSE, 0&, 0&) end if この時点で電卓が開いているかどうかの判定はうまくいっています。 ですが、sendmessageのところでうまくいっておらず、hfwndに取得したウインドハンドルが代入されていない？と思いGetWindowTextでタイトル取得してみたところ空白でした。電卓をSendMessageを使用して終了させるにはどのようにしたら良いのでしょうか？
- ベストアンサー
- Visual Basic
- TextBoxの文字がかけてしまうのですが VB.NET
VB.NET FrameWork1.1の環境なのですが、 Declare Function WritePrivateProfileString Lib "KERNEL32.DLL" Alias "WritePrivateProfileStringA" ( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer このAPIを使ってファイルに文字列を記録しているのですが、 TextBoxに表示したファイルのフルパスを記録すると このAPIを使った直後にそのTextBoxの文字の後半が欠けてしまいます。 短いパス名なら大丈夫なのですが、長いパス名の場合に欠けてしまいます。 試しに Dim a As String = TextBox1.Text WritePrivateProfileString("TextBox", "1", a, FileName) Console.WriteLine(a) としても同じく欠けてしまいます。 変数aの宣言の型をString ではなく Object にすると 欠けなくなるのですが、変数aやTextBoxの内容は読み取った だけなのになぜ書き換えられてしまうのでしょうか？ どの場合でもファイルへの記録は正常に出来ています。 何か問題点などありましたらご教授いただけると助かります。
- ベストアンサー
- Visual Basic
- ファイルを開く際に規定のexeを知る方法について VB.NET
ＶＢ．ＮＥＴとFramework1.1の開発環境です。 mp3ファイルなどがダブルクリックされた際に 自動で開くアプリケーションが何なのかを知りたいのですが、 レジストリキーを調べるということで間違いはないでしょうか？ それで、それを取得しようと下記のようなソースで試してみた のですが、どうしてもstrにはNothingしか入りません。 間違っている箇所などありましたらその箇所をご教授頂けないでしょうか。 宜しくお願いいたします。 Dim regkey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("mp3file\shell\open\command", False) If (regkey Is Nothing) Then Return Nothing Dim str As String str = CType(regkey.GetValue("REG_SZ"), String) Console.WriteLine(str) str = regkey.GetValue("string") Console.WriteLine(Str)
- ベストアンサー
- Visual Basic
- WinAPIで電卓をクリック
現在、WinAPIを勉強しており、練習としてVBAを用いて、電卓アプリのボタンをクリックしようとしています。 キーを送るのではなく、クリックで行いたいたいと 考えています。 ボタンのハンドルを取得するところまではできましたが、sendMessageでクリックできず、EditBoxに数字が 入りません。 どのようにすればよいのかご教授ください。 よろしくお願い致します。 環境: WinXP home、 Excel2002、Win付属アプリの電卓v5.1 ---作成したプログラム---- '標準モジュールの中身 Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Sub Main() Dim lngWindWnd As Long 'ウィンドウハンドル Dim ret As Long Dim hCalc As Long 'アプリケーションタイトルより、ウィンドウハンドルを得ます lngWindWnd = FindWindow(vbNullString, "電卓") '８ボタンのハンドル（確実に取れていることを確認 hCalc = FindWindowEx(lngWindWnd, 0, "Button", "8") ret = SetForegroundWindow(lngWindWnd) ret = SendMessage(hCalc, WM_LBUTTONDOWN, 0, 0) End Sub
- ベストアンサー
- Visual Basic
- アクセス2010VBA側から他のプログラムを操作
アクセス2010VBA側から他のプログラムを操作したくて実験しています。 標準モジュールに Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hwndParent As Long, _ ByVal hwndChildAfter As Long, _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long としておき、 フォーム側に下記のコードを書いています。 Dim tw, tt As Long tw = FindWindow(vbNullString, "電卓") If tw <> 0 Then tt = FindWindowEx(tw, 0&, "5", "") If tt <> 0 Then beep End If FindWindowは取れるのですが、tt = FindWindowExが「０」で取れません。 どこに不具合があるのでしょうか？ 将来的に、SendMessage(tw, ～～～)として他プログラムを制御したいのですが、 アクセス2010で可能でしょうか？ http://mukkumuku.blogspot.jp/2010/11/office2010-win32api-findwindowfindwindo.html も参考にしましたが、やはり「０」しか返ってきません。
- ベストアンサー
- Visual Basic
- VB.NETの関数プロシージャの書き方を教えてください。
Public A As String という変数にある文字列データが入っていて、 ボタンを押すとその時に変数X,Y,Zに入っている 文字列を検索してButton1_Clickプロシージャ内に戻って来て KekkaX,KekkaY,KekkaZに数値が入るような関数プロシージャなのですが、 呼び出す部分の書き方と関数のプロシージャ名の書き方を教えて頂きたいです。 検索する部分は自分で出来ると思うので大丈夫です。 Public A As String = "何かの文字列" Button1_Click Dim X,Y,Z As String Dim KekkaX,KekkaY,KekkaZ as Integer '変数Aの中からX,Y,Zを検索したい X="*****" Y="ABCDE" Z="#####" GetKensakuKekka(????????) ←この部分の書き方を教えて下さい。 'KekkaX,KekkaY,KekkaZ 内に検索結果を取得したい Console.WriteLine(KekkaX) Console.WriteLine(KekkaY) Console.WriteLine(KekkaZ) End Sub Function GetKensakuKekka (???????????) ←この部分の書き方を教えて下さい。 ・ ・ ・ End Function よろしくお願い致します。
- ベストアンサー
- Visual Basic
- VB.netでFindWindowExやると・・・9222812402616107008！？
VB.netでWin32APIのFindWindowExを使うと， たとえばスタートボタンのHWNDを拾ってくるとき， 本当なら65662（6.0のSpy++で確認＋10進変換）が返ってきて欲しいんですが， 9222812402616107008という，異常な数が返ってきます． Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpsz1 As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpsz2 As String) As Long とやってあります． VB6.0のAPIビューワからコピペして，MarshalAsをつけてみました． （初心者なので，わけわからないまま付けましたけど； hWnd_ShellTrayWnd = FindWindowEx(0,0,"Shell_TrayWnd",vbNullString) hWnd_StartButton = FindWindowEx(hwnd_ShellTrayWnd,0,"Button",vbNullString) とやってるのですが・・・． 不思議なのは，hWnd_ShellTrayWndが9222812402616238204になっているにもかかわらず，次のFindWindowExで，hWnd_StartBtnが9222812402616107008になってるところです・・・． しかも，ありえないクラス名（KeyBoadぐちゃぐちゃ押し）を指定しても，なぜか数が返ってくるんです． FindWindowExを成功させる（きちんとした数を取る）方法，またはFindWindowEx以外でhWndを拾ってくる方法，ありましたら，教えてください．
- ベストアンサー
- Visual Basic
