[VB6] Come sapere se una form è aperta

[VanessaInfo]

ciao a tutti,

come faccio a sapere se una form è aperta in modo da poterla chiudere?

il problema sorge perkè ho una toolbar....in una mdi-form...ke ovv.te visualizzo in tutte le mdi-child ...vorrei lasciarla così ma riuscire a kiudere la form se aperta...

VaneX

[wallrider]

Se scrivi in italiano ti aiuto

[VanessaInfo]

ok,

allora ho una toolbar in una mdi-form....

tutte le mdi-child ke si aprono hanno la stessa....nn modificata...ma

poiké la stessa ha pulsanti ke vanno ad altre form vorrei prima kiudere quella in cui mi trovo e poi rikiamare l'altra...

ma se mi trovo nella form principale nn devo kiudere niente...

potrei verificare il nome della form ed in base a quello kiudere o no....

oppure (quello ke vorrei io)

sapere quali forms sono al lomento attive per kiuderle!

...
in parole provere: kiudere tutte le form attive eccetto la mdi

VaneX

[VanessaInfo]

in ongi caso il nome della form nn funzionerebbe visto ke è una MDI-form!!!!

Se mi trovo sulla child lui vede lo stesso nome


vaneX

[pierabo]

Ciao, vi sono diverse possibilità; la più banale è questa:

  Dim I
  Dim IMax
  
  'la variabile serve perché la proprietà .Count varia ad ogni ciclo
  IMax = Forms.count - 1

  'In questo esempio lascia solo MDI (To 1)
  For I = IMax To 1 Step -1
    Forms(I).Hide
    Unload Forms(I)
  Next I

oppure all'interno dei singoli forms puoi scrivere una Public Sub, che esegue i comandi:

Public Sub Uscita()
  Me.Hide
  Unload Me
  Set (nome form) = Nothing
End Sub

  'In questo caso, è ancora più semplice
  For I = IMax To 1 Step -1
    Forms(I).Uscita
  Next I

[VanessaInfo]

grazie!!!

in ogni caso ho risolto semplicemente scrivendoinvece di .show

form.zorder (0)..
ke lascia cmq caricate le forms ma...porta avanti quella scelta....




VaneX