PDA

Visualizza la versione completa : [vb]un form sempre in primo piano......


Bodom
13-02-2002, 12:48
come si può fare?
aiutatemi....tnx! ;)

Met

Bodom
13-02-2002, 16:06
up

ans
13-02-2002, 17:45
API... SetWindowPos.

Bodom
13-02-2002, 18:51
:confused:

puoi essere più chiaro?

Wild78
13-02-2002, 20:58
In un modulo scrivi


Public Const HWND_TOPMOST = -&H1
Public Const HWND_NOTOPMOST = -&H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
'------------------
Public 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)
'------------------
Public bOnTopState As Boolean
Public Property Let AlwaysOnTop(bState As Boolean)
Dim lFlag As Long
On Error Resume Next
If bState = True Then
lFlag = HWND_TOPMOST
Else
lFlag = HWND_NOTOPMOST
End If
bOnTopState = bState
Call SetWindowPos(frmMain.hWnd, lFlag, 0&, 0&, 0&, 0&, _
(SWP_NOSIZE Or SWP_NOMOVE))
End Property
Public Property Get AlwaysOnTop() As Boolean
AlwaysOnTop = bOnTopState
End Property



E poi da form...

AlwaysOnTop=True


:D

Bodom
13-02-2002, 21:42
ho creato un modulo e ho copiato quello che hai scritto tu...
poi in form_load()
ho messo AlwaysOnTop=true

ma non funziona...come mai?

forse ho sbagliato a mettere alwaysOnTop? dove va messo?

Wild78
14-02-2002, 07:17
Allora, fai il ebug passo passo e dimmi se entra nel modulo...

Bodom
14-02-2002, 12:33
Originariamente inviato da Wild78
ebug

:confused: che significa?

ans
14-02-2002, 12:57
DEBUG.

Invece di avviare con F5 avvia con F8.

Wild78
14-02-2002, 14:09
DEBUG!

giusto!

:)

Loading