[VB6] Form sempre in primo piano

[AndreaD]

Ciao a tutti,
non riesco ad ottenerlo. Ho provato con la FAQ 86 ma non funziona.

saluti

Andrea

[oregon]

FAQ 86 ??

[alka]

Originariamente inviato da AndreaD
Ciao a tutti,
non riesco ad ottenerlo. Ho provato con la FAQ 86 ma non funziona.

Ciao e benvenuto nel forum di Programmazione.

Ti segnalo da subito la lettura del nostro Regolamento così potrai conoscere tutte le norme per utilizzare correttamente quest'area del forum.

In particolare, indica sempre il linguaggio di programmazione nel titolo (prendi spunto dalle discussioni esistenti).

Le domande su Visual Basic vanno inoltrate nell'apposito forum dedicato ove sposterò questa discussione.

In merito al tuo problema, indica a quali FAQ ti stai riferendo con un semplice collegamento oppure riporta il codice cui si riferisce il problema stesso.

Ciao e buon forum!

[AndreaD]

Visual Basic 6.0
ho provato qui
http://programmazione.html.it/visualbasic/faq/86.htm

grazie

andrea

[oregon]

E cosa hai scritto tu?

[fleone]

Ciao a tutti
questo è il codice giusto:

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_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_SHOWWINDOW = &H40
Const HWND_NOTOPMOST = -2
Const HWND_TOPMOST = -1

' Set a form always on the top.
'
' the form can be specified as a Form or object
' or through its hWnd property
' If OnTop=False the always on the top mode is de-activated.

Sub SetAlwaysOnTopMode(hWndOrForm As Variant, Optional ByVal OnTop As Boolean = _
True)
Dim hWnd As Long
' get the hWnd of the form to be move on top
If VarType(hWndOrForm) = vbLong Then
hWnd = hWndOrForm
Else
hWnd = hWndOrForm.hWnd
End If
SetWindowPos hWnd, IIf(OnTop, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW
End Sub

QUELLO SEGNALATO DA HTML.IT non funziona.

Salut,

Fabio.