タイトル : APIで値をうけとりたい 投稿日 : 2003/06/08(Sun) 14:11 投稿者 : ぱる
Declare Auto Sub FindWindow Lib "user32.dll" _ (<MarshalAs(UnmanagedType.LPTStr)> ByVal def As String, _ <MarshalAs(UnmanagedType.LPTStr)> ByVal ghr As String) Private Sub Command2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Command2.Click Dim strWindowClassName As String Dim lngWindowHandle As Long Dim lngChildWindowHandle As Long Dim lngWin32apiResultCode As Long ' クラス名でウィンドウハンドルを取得 strWindowClassName = "Notepad" lngWindowHandle = FindWindow(strWindowClassName, vbNullString) ' ウィンドウハンドルを取得できたときは If lngWindowHandle <> 0 Then MsgBox("aaa") End If End Sub このコーディングだと FindWindowは値を返せませんとでてしまいます。 6.0だといけると思うのですが、,netだとうまくいきません。 ご存知のかた、教えてください。 |