Ich steuere mit meinem Programm ein weiteres Programm.
Diese Programm ist meist im Vordergrund und sendet an meine VB-programm eine Message. Nach Erhalt dieser Message soll das VB-Programm in den Vordergrund wechsel und aktiv sein.
Wie kann ich dies Programmieren.
Danke im Voraus, Horst
Dieses Programm überprüft ob eine Applikation schon läuft. Falls ja wird diese aktiviert.
Function gbAppPrevious(strTitle As String) As Boolean
’ Uebergabe: strTitle -> Name der Applikation
’ Returns: True -> Funktion erfolgreich beendet
’ False -> Fehler ist aufgetreten
Dim viHandle As Integer
Dim intDummy As Integer
On Error Resume Next
If Not strTitle = „“ Then
viHandle = FindWindow(0&, strTitle)
If viHandle = 0 Then
If Not App.PrevInstance Then gbAppPrevious = False
Else
intDummy = ShowWindow(viHandle, 1)
intDummy = SFocus(viHandle)
gbAppPrevious = True
End If
End If
End Function
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]