Hallo nochmal,
Hast du denn nicht MSDN installiert, ist zum Nachschlagen von Befehlen und Syntax fast unerläßlich.
Naja, egal.
Also erstmal zu Me.SetFocus:
Me steht stellvertretend für dar aktuelle Fenster, man kann auch anstelle von Me den Formularnamen einsetzen.
Die Methode SetFocus bewegt den Fokus auf das angegebene Steuerelement oder das angegebene Formular, damit sollte es normalerweise auch gleichzeitig aktiviert werden.
Zu BringWindowToTop:
Es ist richtig das du das Fensterhandle, das ist eine Nummer, übergeben mußt. Das kannst du mit FindWindow bekommen. Du mußt nur der Funktion den Fenstertitel übergeben.
Beispiel:
'Deklaration der Funktionen
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32" _
(ByVal hwnd As Long) As Long
'Deklaration der Variablen
Dim MyWindow As Long 'Variable für das Fensterhandle
'Fensterhandle ermitteln und übergeben
MyWindow = FindWindow(vbNullString, "Mein Fenstertitel")
'Fenster in den Vordergrund holen
BringWindowToTop MyWindow
So, vielleicht hilft's dir jetzt weiter.
Gruß, MAiNFRAME.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP