Frage Entwicklung VB for Applications

gelöst Winziges Problemchen mit FolderBrowserDialog

   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Integer

    Dim WithEvents t1 As New Timer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fd As New FolderBrowserDialog

        t1.Interval = 200

        With fd

            .SelectedPath = "C:\Windows"

            t1.Start()

            .ShowDialog()

            t1.Stop()

        End With

    End Sub

    Sub SendKeysToApplication(ByVal AppTitle As String, ByVal key As String)

        Dim hWnd As Long = FindWindow(Nothing, AppTitle)

        If hWnd <= 0 Then

            '*** TO DO *** Fenster existiert nicht

        Else

            SetForegroundWindow(hWnd)

            SendKeys.SendWait(key)

            t1.Stop()

        End If

    End Sub

    Private Sub t1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t1.Tick

        SendKeysToApplication("Ordner suchen", "{TAB}{TAB}{right}")

    End Sub