' benötigte API-Deklaration
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
       (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
' benötigte API-Deklaration
    Private Declare Auto Function ShowWindow Lib "user32" (ByVal hWnd As _
      IntPtr, ByVal nCmdShow As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim lhWnd As IntPtr 'Problem HIER ????
 
        lhWnd = FindWindow("Notepad.exe", "Unbenannt - Editor") 'Problem HIER 
        ' ???
        MsgBox(lhWnd)
        ShowWindow(lhWnd, 0) 'Fenster verbergen
    End Sub

---------------
VB.NET macht Spaß!

Beitrag wurde zuletzt am 30.06.08 um 12:26:53 editiert.