Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

User Form in den Vordergrund


Betrifft: User Form in den Vordergrund von: Rolf-Jan
Geschrieben am: 11.09.2019 13:54:16

Moin zusammen,
ich habe mir einen VBA-Webcrawler zusammengebaut.
Während die verschiedenen Internetseiten geöffnet werden erscheint eine Userform.

Wartefenster.Show vbModeless

Diese habe ich auf vbModeless gesetzt, damit das Makro weiterläuft.

Leider verschwindet die Userform hinter den Webseiten in den Hintergrund. Gibt es eine Möglichkeit, sie in den Vordergrund zu legen?

Vielen Dank für Eure Hilfe!

Viele Grüße
Rolf

  

Betrifft: AW: User Form in den Vordergrund von: 1712476.html
Geschrieben am: 11.09.2019 15:00:50

Hallo Rolf,

hab das hier gefunden. Probier es mal aus. In den Code deiner Userform.

 Private Const HWND_TOPMOST = -1
 Private Const HWND_NOTOPMOST = -2
 Private Const SWP_NOSIZE = &H1
 Private Const SWP_NOMOVE = &H2
 Private Const SWP_NOACTIVATE = &H10
 Private Const SWP_SHOWWINDOW = &H40
 
 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 Sub UserForm1_Activate()
     SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or  _
 SWP_NOMOVE Or SWP_NOSIZE
 End Sub
 
Gruss Torsten
  

Betrifft: AW: User Form in den Vordergrund von: 1712485.html
Geschrieben am: 11.09.2019 15:42:47

Moin Thorsten,
leider funktioniert der Code nicht, da nicht für 64 Bit ausgelegt.
Zudem kann bei den verschiedenen Usern auch noch 32 Bit vorhanden sein.
Trotzdem danke!