Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BringWindowToTop

BringWindowToTop
21.09.2004 15:30:18
Franc
Hi,
momentan erscheint nach einer bestimmten Zeit eine MsgBox.
Nun besteht folgendes Problem.
Wenn die Box kommt dann soll auch Excel in den Vordergrund.
Ich habe es mit
Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long
und
BringWindowToTop (Application.hwnd)
probiert aber wenn ein anderes Program aktiv ist dann bleibt Excel im Hintergrund.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BringWindowToTop
ransi
hallo franc
versuch mal so:
Application.WindowState = xlMaximized
ransi
AW: BringWindowToTop
Ulf
In E 2000 gabs noch kein Application.hwnd
Ulf
AW: BringWindowToTop
21.09.2004 17:24:58
Nepumuk
Hallo Frank,
so kommt Excel nach vorne:


Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Enum Parameter
    HWND_TOPMOST = -1
    HWND_NOTOPMOST = -2
    SWP_NOSIZE = &H1
    SWP_NOMOVE = &H2
    SWP_NOACTIVATE = &H10
End Enum
Public Sub test()
    Dim hWnd As Long
    hWnd = FindWindow("xlMain", vbNullString)
    Application.Wait Time + TimeSerial(0, 0, 5)
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
    SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    MsgBox "Hallo da bin ich", 64, "Information"
End Sub


Gruß
Nepumuk
Anzeige
AW: BringWindowToTop
Franc
danke für eure Antworten aber evtll. liegts auch an Win 2000 (hat ich vergessen hinzuschreiben)
Mom. funkt. es nicht.
AW: BringWindowToTop
22.09.2004 16:36:48
Nepumuk
Hallo Frank,
Ich habe Windows2000 und Office2000. Es funktioniert bei mir, bis auf dass, das Exel nicht den Fokus erhält, tadellos.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige