[VB6] Form secondario sempre sopra al form principale

[Mosfet]

Mi capita a volte che un form secondario venga nascosto dal form principale dell'applicazione pur essendo settati in modo corretto i focus.

Quando succede ciò infatti, il form principale è visibile ma non risponde ai comandi (che è giusto perchè non c'è focus) mentre il form secondario (con il focus attivo) è nascosto sotto e devo andarlo a ripescare riducendo ad icona il principale... Come posso evitare che accada? Come posso fare in modo che il form secondario stia SEMPRE davanti al form principale?

Grazie

[XWolverineX]

Prova con questo

  Declare Function SetWindowPos Lib "user32" _
(ByVal h%, ByVal hb%, ByVal x%, ByVal y%, _
ByVal cx%, ByVal cy%, ByVal f%) As Integer
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

Aggiungilo nei tuoi moduli

Public Sub Form_OnTop(Form As Form)
    Dim lResult As Long
    lResult& = SetWindowPos(Form.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, FLAGS)
End Sub
Public Sub Form_NotOnTop(Form As Form)
    Dim lResult As Long
    lResult& = SetWindowPos(Form.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, FLAGS)
End Sub

e usa questo nei tuoi form

[Mosfet]

Ho provato ma non va o non richiamo bene la funzione...

nel load del fomr devo chiamare

Form_OnTop (NomeForm_Secondario)
Form_NotOnTop (NomeForm_Primario)

ma mi dice tipo non corrispondente...

[Jupy64]

ciao, forse non avvii il secondo form in modalità modale...
secondoForm.show vbModal

[Mosfet]

si con il vbModal funziona...

ma che fa esattamente il vbModal?

Grazie

[Jupy64]

rende il form modale! Un form modale non ti permette di accedere al form chiamante fintanto che non lo si chiude!

[Mosfet]

Non lo sapevo.

Grazie