[VB.NET] Identificare Form attivo in MDI Parent

[ferrate]

salve a tutti...

ho un piccolo problemino...

tramite un pulsante posizionato sul "form contenitore" apro un "form child"

dim f as new frmdati

f.mdiparent = me

f.show()

il problema è che se clicco sul pulsante in questione due volte...ovviamente mi apre due volte il form f...
se uso il showdialog..inibisco il resto e in più non posso utilizzarlo come figlio...

avevo pensato di ad un if del tipo " se il f è nullo come figlio attivo nel contenitore
apri..altrimenti non fare na mazza...

ma nn mi funge...

dove erro??
ciao e grazie

if f.activemdichild is nothing then
f.mdiparent = me

f.show()
else



end if

[mardok30]

Inserisci nella Click del bottone:

If FormsTrovaChild(Me, "FrmDati") Is Nothing Then
     dim f as new frmdati
     f.mdiparent = me
     f.show()
End if

ed una funzione:

  Private Function FormsTrovaChild(ByVal pFormMdi As Form, ByVal pNomeForm As String) As Control
        pNomeForm = pNomeForm.ToLower()
        Dim zCtrl As Control
        For Each zCtrl In pFormMdi.MdiChildren
            If zCtrl.Name.ToLower() = pNomeForm Then
                zCtrl.Focus()
                Return zCtrl
            End If
        Next zCtrl
        Return Nothing
    End Function 'FormsTrovaChild

[ferrate]

fantastico... meglio di così... manco Balena poteva fare


mi spieghi due cosette sulla funzione ?

Private Function FormsTrovaChild(ByVal pFormMdi As Form, ByVal pNomeForm As String) As Control

as control è una sorta di booleano ??


pNomeForm = pNomeForm.ToLower()
che fa questo metodo tolower esattamente?

[mardok30]

Private Function FormsTrovaChild(ByVal pFormMdi As Form, ByVal pNomeForm As String) As Control

Control è la classe base per i controlli che hanno un'interfaccia grafica come le Form appunto.

as control è una sorta di booleano ??

Non proprio, la funzione restituisce un oggetto di tipo Control, perciò si usa Is Nothing.

pNomeForm = pNomeForm.ToLower()
che fa questo metodo tolower esattamente?

Ti restituisce il nome del Form in minuscolo.

[ferrate]

scusa per il tolower
era una stupidata...

avevo letto male la funzione...dove inserivi il nome del form come stringa...

per cui nn capivo appunto questo tolower...


.... il control non lo conoscevo...
( manuale bifido che mi sono comprato .. ci butta un paio di paragrafi e stop )...

tu che sei uno che ci "gioca" spesso con il dotnet...
che ne pensi dei manuali ( anzi dei tomi ) della microsoft press...

sto pensando di acquistare l'ultimo di Balena...
su vb.net 2005... che ne pensi ?

scusa poi nn ti rompo più..

grazie