Userform immer im Vordergrund

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

Option Explicit

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

Private Declare Function 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) As Long

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

'mittels Button bzw. bei 'UserForm_Initialize' aufrufen
Private Sub cmdImmerAnSpitze_Click()
  FensterPosition Me.Caption, True
End Sub

Private Sub cmdNormal_Click()
  FensterPosition Me.Caption, False
End Sub

Sub FensterPosition(ByVal strTitel As String, Modus As Boolean)
' Übergabe von UserForm funktioniert anscheinend nicht,
' Caption-Eigenschaft steht in Kopie nicht zur Verfügung
  Dim lngRet As Long
  Dim hwnd As Long
  hwnd = FindWindow(vbNullString, strTitel)
  If hwnd = 0 Then
     MsgBox "Fenster wurde nicht gefunden!"
     Exit Sub
  End If

  If Modus = True Then
    lngRet = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
             FLAGS)
  Else
    lngRet = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
             FLAGS)
  End If
End Sub

Code eingefügt mit Syntaxhighlighter 2.4

mfg, GraFri

Huhu GraFri,

Danke für Deine Hilfe! Allerdings klappt auch dein Code nicht so recht. Läuft er auf Deinem Rechner?? Wenn ich den code in ein Standardmodul einfüge und in ein Workbook eine userform einfüge, in der mit dem userform_initialize der Befehl cmdImmerAnSpitze_Click aufgerufen werden soll, geht einiges schief. Zunächst muß ich das Private im Befehl löschen, damit der Befehl aus dem Initialisierungsprozeß aufgerufen werden kann. Dann bekomme ich für die Variable Me eine Fehlermeldung. Ich habe den Code daher so umgestrickt, wie ich denke, daß Du ihn gemeint hast. Dann läuft zwar alles ohne Fehlermeldung - aber die Userform ist immer noch im Vordergrund verankert :-((((. Ich habe die Datei mit den Paar kleinen Modifikationen mal hoch. Sie ist abgelegt unter:

https://www.herber.de/bbs/user/912.xls

Es wäre nett, wenn Du noch mal was dazu schreiben könntest! Vielen herzlichen Dank.

Viele Grüße

Björn

P.S.:
Ich habe gerade erfahren, daß es wohl wirklich ein xl97-Problem ist. Der Code, an den oben bezeichneten Stellen im Netz läuft wohl mit xl2000 problemlos. Nur nützt mir das natürlich recht wenig, da auf den zielrechnern 97 installiert ist

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

269 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform immer im Vordergrund

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

269 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread