[VB] Non aprire un altro Form se un altro e' gia' aperto...

[race2]

Su VB.NET,

Per non aprire piu' form gia aperti in un Form Madre "IsMdiContainer" faccio questo:


Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Anagrafica" Then
searchForm.Activate()
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Anagrafica()
Form.MdiParent = Me
Form.Show()
End If
End Select
End Sub


solo che funzionava fino ad ora su un altro progetto e qui non funziona piu' , il progetto e'' completamente identico, mi date un occhiata al codice ???

Oppure avete un altro metodo ???

[bsummer]

Premetto che non conosco .NET.

Tuttavia io proverei con un controllo sulla proprieta' "visible" del form stesso (penso esista anche in .NET...).

If form1.visible = false then
form1.visible = true
end if

Che dici, puo' andare ?

[race2]

e lo metteresti allinterno del ciclo For Each ???

For Each searchForm In Me.MdiChildren


If form1.visible = false then
form1.visible = true
end if


Next

[bsummer]

Beh, no.

Avendo ogni form un suo nome ben preciso, ad esempio "anagrafica" potrebbe avere nome "frmAnagr", basterebbe fare il controllo su tale form, senza ricercarlo tra tutti quelli presenti. Quindi niente for.

Questo in Vb, in .NET no so...

Aloha

[tas]

VB.NET è un linguaggio ad oggetti, a differenza di quello che è VB6.0. Di conseguenza, non è possibile riferirsi direttamente ad un form attraverso il suo nome di classe, ma è necessario iterare tra tutti i form e cercare quello voluto.
Ho preso il tuo codice è l'ho adattato in un nuovo progetto senza fare grosse modifiche, utilizzando Form1 come MDI-container e Form2 come MDI-child:

Dim searchForm As Form 'niente new qui!
Dim Result As Boolean

Result = False

For Each searchForm In Me.MdiChildren
If TypeOf searchForm Is Form2 Then 'oppure
'If searchForm.Name = "Form2" Then
searchForm.Activate()
If searchForm.WindowState = FormWindowState.Minimized Then
searchForm.WindowState = FormWindowState.Normal
End If
Result = True
Exit For
End If
Next

If Not Result Then
Dim f As New Form2()
f.MdiParent = Me
f.Show()
End If


ciao

[race2]

Ma come non e' un linguaggio ad oggetti ???

Non ci posso credere...!!!

per il mio problema ho risolto in questo modo:


Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
Dim searchForm As Form
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Anagrafica" Then
searchForm.Activate()
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Anagrafica()
Form.MdiParent = Me
Form.Show()
End If
End Select
End Sub


Grazie mille ugualmente, ciao!!