[VB6] Form in Top

[broll]

Ciao a tutti.
Scusate del post che vi potrà sembrare banale, ma per me è importante: premetto che ho già cercato ma non ho trovato niente che mi aiutasse.
Io vorrei far si che mentre uso un'applicazione a schermo intero, premendo il tasto Control, il mio programma "spunti" sopra a tutto, in modo che mentre uso l'applicazione a tutto schermo veda anche il mio programma... non so se mi sono spiegato.
Rispondete il prima possibile, grazie, ciao.

[oregon]

Originariamente inviato da broll
premetto che ho già cercato ma non ho trovato niente che mi aiutasse.

http://forum.html.it/forum/showthrea...hlight=topmost

[broll]

ho seguito quello che c'è scritto nella guida ma nonostante ciò se io premo Control mentre uso l'applicazione a schermo intero non mi compare il mio form...

[oregon]

Un attimo ... forse non ho capito bene ...

L'applicazione a schermo intero e' tua ? E' scritta in VB 6 ?

[broll]

no... l'applicazione è un gioco a schermo intero non mio... il programma che voglio far comparire è mio.

[oregon]

Ah ... ecco l'equivoco ...

Allora la cosa e' piu' complessa perche' devi fare in modo di registrare una combinazione di tasti che attivi la tua applicazione ... forse con il semplice control non riesci ma con una combinazione diversa, sì ...

Leggi questo

http://www.leonardobandini.it/frame2vbterzapagina.htm

e scarica l'esempio ...

[broll]

scusami ma non ci capisco molto perchè sono alle prime armi...
mi potresti dire cosa devo inserire nel modulo e cosa nel form per piacere?

[broll]

in pratica vorrei farlo diventare come il task manager... che rimane sempre sopra a tutto

[oregon]

Devi usare i due suggerimenti che ti ho dato ...

Nel primo link trovi il codice per porre il form sopra a tutto e nel secondo il codice per gestire la combinazione di tasti che vuoi usare per fare apparire il form.

Ovviamente non devi fare un copia-incolla brutale dei due codici, ma sfruttarli ambedue per costruire opportunamente il tuo ...

[broll]

allora:
io voglio far rimanere sempre in primo piano il form 5... quindi faccio cosi:
nel modulo scrivo questo:

Private Declare Function SetWindowPos Lib "User32" _
                                    (ByVal hWnd As Long, _
                                     ByVal hWndInsertAfter As Long, _
                                     ByVal X As Long, Y, _
                                     ByVal cx As Long, _
                                     ByVal cy As Long, _
                                     ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Public Sub MakeTopMost(hWnd As Long)
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

e nel form5 scrivo:

Private Sub form5_load()
Call MakeTopMost(Form5.hWnd)
End Sub

Facendo cosi rimane sempre in primo piano il form5?