Pb frame MDI

Bonjour,

Je suis entrain de faire migrer une application vb6 sous vb2005 et j'ai un problème lors d'un chargement d'un form MDI.

Je met le code vb6:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub mnu_CLI_Click(Index As Integer) Screen.MousePointer = vbHourglass Load frm_visu_CLI With frm_visu_CLI .Refresh .s_Creer_Entete Call .s_Charger_Clients(.chk_Modifié.Value) .Show End With Screen.MousePointer = vbDefault End Sub
et le code .NET
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Sub mnu_CLI_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnu_CLI.Click Dim Index As Short = mnu_CLI.GetIndex(eventSender) System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Load(frm_visu_CLI) With frm_visu_CLI .Refresh() .s_Creer_Entete() Call .s_Charger_Clients((.chk_Modifié.CheckState)) .Show() End With System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default End Sub
Le form frm_MDI et frm_visu_cli sont des formulaires MDI , déjà lors de la migration le load(frl_visu_cli) n'est pas bon et je ne sais pas par quoi le remplacer.

Ensuite en enlevant le load , je me retrouve avec cette execption :

Citation:

L'exception System.InvalidOperationException n'a pas été gérée
Message="Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException. L'erreur est : Un formulaire qui est déjà visible ne peut pas être affiché sous la forme d'une boîte de dialogue modale. Affectez la valeur false à la propriété visible du formulaire avant d'appeler showDialog."

Je suis un peu paumé si quelqu'un peut m'aider ça serait vraiment sympa merci

En regardant un peu les docs sur msdn j'ai trouvé qu'il faut remplacer load par new

Donc du coup j'ai mis :

Code:

Dim Form2 As New frm_visu_CLI

qui correspond à mon form mdi mais ça marche pas ...

J'ai toujours le même problème d'exception

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        Dim Frm_visuCLI As New frm_visu_CLI
        Dim X As Integer
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        For X = 0 To (Me.MdiChildren.Length - 1)
            If Me.MdiChildren(X).Name = Frm_visuCLI.Name Then
                Me.MdiChildren(X).Activate()
                Exit Sub
            End If
        Next
        Frm_visuCLI.MdiParent = Me
        With Frm_visuCLI
            .Refresh()
            .s_Creer_Entete()
            Call .s_Charger_Clients((.chk_Modifié.CheckState))
            .Show()
        End With

Finalement je m'en suis sorti en faisant comme ça