VB6 form in primo piano

[andy67]

Come si fa a far si che una form resti sempre in primo piano? Non solo rispetto alle altre form del programma ma rispetto a tutte le applicazioni aperte?!?!?!
So che è possibile, ma non sono riuscito a trovare alcun esempio che mi indichi la strada!!!
Ringrazio chiunque voglia aiutarmi!!

[ladyBlu]

se intendi che non è possibile chiuderla nè ingrandirla nè ridurla a icona se sopra ci sono altre applicazioni aperte devi scrivere:

nomeform.Show 1

in questo modo la form è modale.
spero di esserti stata utile

[andy67]

no intendo che sia sempre visibile rispetto alle altre applicazioni: cioè che io possa lavorare con le altre applicazioni ma che questa form (naturalmente non a tutto schermo) rimanga sempre in primo piano rispetto a tutti i programmi aperti!!!!

[ladyBlu]

allora non lo so, mi dispiace...

di nuovo

[giuSp]

devi usare l' api SetWindowPos

la dichiarazione dell' api la trovi nel ApiTextViever

Ecco il codice (mettilo in un modulo)
'questa è la dichiarazione Api
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

'queste sono le costanti per il posizionamento
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
'queste sono le costanti per i flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2

'ecco la funzione
Public Sub SetOnTop(frm as form)
dim pos as long
If OnTop Then
pos=HWND_TOPMOST
Else
pos=HWND_NOTOPMOST
endif
SetWindowPos frm.hWnd, pos, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub


'tutto qua

nel form ci inserisci

setontop me,true 'per posizionarlo in primo piano

setoptop me,false 'per riportarlo allo stato normale