---

Noch ein kleiner Tipp zu VB Zusatzapplikationen:

Manchmal ist es sinnvoll, dass die eigene Applikation (genauer dessen Form) immer sichtbar bleibt und nicht durch anklicken eines anderen fensters in den Hintergrund verschwindet.

Diesen Code einfach in ein Modul einfügen:

Code:

---

Option Explicit

'**** API declarations
Declare Sub SetWindowPos Lib "USER32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
'**** API constants
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_BOTTOM = 1
Public Const HWND_BROADCAST = &HFFFF&
Public Const HWND_DESKTOP = 0
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const HWND_TOPMOST = -1

'
'
' Set or reset "always on top" attribute for a given object
Public Sub FormOnTop(frmObj As Object, topFlg As Boolean)
If topFlg Then
' Turn on "always on top".
SetWindowPos frmObj.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_SHOWWINDOW Or SWP_NOSIZE
Else
' Turn off "always on top"
SetWindowPos frmObj.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_SHOWWINDOW Or SWP_NOSIZE
End If
End Sub

---

Die Load Funktion des Main-Forms kann dann lauten:

Code:

---

Private Sub Form_Load()
Me.Show
FormOnTop Me, True
...
End Sub

---

Grüsse

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP