Newsgroup: it.comp.lang.visual-basic
Titolo: [?] operatore IS

Ciao a tutti. Toglietemi una curiosità:
Con un oggetto si può fare una cosa del genere:
If Oggetto Is Nothing Then ...
E se io volessi controllare se un form è caricato?
E' possibile fare
If maschera Is Load Then
o naturalmente una cosa del genere?
Grazie!
CiaoZ
SebaMix

 E se io volessi controllare se un form è caricato?
Eqquequa!
Public Function IsFinestraLoaded(FrmDaControllare As Form) As Boolean
   Dim frm As Form
   IsFinestraLoaded = False
   For Each frm In Forms
      If frm Is FrmDaControllare Then
         IsFinestraLoaded = True
         Exit For
      End If
   Next
End Function
Ciao
*Roby*



mmm....... posso sbagliarmi ma... una form non potrà mai essere nothing poiché viene istanziata (ma
non caricata) già all'avvio dell'applicazione.
Una form può essere però caricata in memoria ma non visualizzata... quini magari vorresti sapere se
la form è caricaa in memoria o meno...
però se esistesse una proprietà della form tipo (IsLoaded), non appena fai rierimento a
quest'ultima, carichi la form...
mmm.... boh.... :-)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------



ah già... che scemo... che poi è la routine che uso per scaricare i form all'uscita
dell'applicazione (senza scaricarli tutti indipendentemente dal loro stato)... vabbé, lasciamo
stare... ;-)))) (aiutoooo, sto sclerandooo... non è un topic, quindi supera i filtri di *Asterix*...
;-PP)


Il mio problema è che aprendo una finestra faccio un ciclo di tutte le form
nell'insieme Forms.
Public Function funcCheckForm(myForm As Form) As Boolean
    Dim frmTemp As Form
    For Each frmTemp In Forms
        If frmTemp.Name = myForm.Name Then
            funcCheckForm = True
            Exit Function
        End If
    Next frmTemp
    Unload myForm
    funcCheckForm = False
End Function
Ma appena faccio il confronto mi parte il FormLoad della finestra che
analizzo (cioè quella che passo alla funzione) ;)
Adesso provo a passare a questa funzione il Nome della finestra e non la
finestra stessa ;)))
CiaoZ
SebaMix

         If frmTemp.Name = myForm.Name Then
[...]
  Che distrattone! Ovvio che mi parte il Load! :(
:P

    For i = 0 To Forms.Count - 1
        If Forms(i).Name = NomeSk Then
            CheckSkAperta = i
        End If
    Next i

 
Penso che ti sbagli.
Come si puo' capire dalla guida di VB
MSDN Library Visual Studio 6.0
--Documentazione di Visual Basic
----Utilizzo di Visual Basic
------Potenzialita' di Visual Basic
--------Creazione di classi personalizzate
----------Ciclo di vita dei form di Visual Basic
il form viene istanziato e subito dopo viene chiamato form_initialize.
Se nel form_initialize ci metti un output di debug, all'avvio del programma viene visualizzata solo una riga corrispondente al form di avvio, quindi solo quello viene istanziato.
--
Samuele Battarra






Hai ragione...
Infatto io uso sempre Set Me=Nothing prima di unloadare una form ;-)
--------------------------------
Inviato via 
http://usenet.iol.it
 

Come si puo' capire dalla guida di VB
lo so, lo so... infatti dopo mi sono corretto... è stato un "laptop froidiano"... ;-PP


 
E ti funziona? A me da' l'errore "Utilizzo non valido della parola chiave Me".
Devo sostituire Me con il nome del form perche' funzioni. e questo e' molto seccante, perche' e' un form che uso come modello.
--
Samuele Battarra
mail server: 
libero.it
account: battarsa