<quote>Hej Alle
Er der en der kan fortælle mig hvilken kommando eller opsætning jeg skal bruge når jeg skal have en VB applikation til altid at ligge øverest når denne køres som en EXE fil.
Venligst
Mickey</quote>
Hvis du havde kigget i tip og trick ville du kunne finde denen kode:
Sådan laver du din form så den altid er øverst i Windows:
---------------------------------------------------------
'Indsæt dette i et modul
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
#If Win32 Then
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
Global success As Long 'For holding the return value, Must be long in 32-Bit
#Else
Declare Function SetWindowPos Lib "user" (ByVal hWnd As Integer, _
ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal Y As _
Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As _
Integer) As Integer
Global success As Integer 'For holding the return value, Must be Integer in 16-Bit
#End If
'Indsæt dette til din Form_Load
Me.show
success = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
'Do Something with success if needed...
som sørge for at formen altid er øverst!!
mvh.
Thomas Christensen
