Discussion :

[grincheux01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[grincheux01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[grincheux01]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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