Discussion :

[lecknaat]

Bonjour,

J'ai un problème depuis un petit moment sur mes applications vb.net

En effet, il m'arrive que, lorsque je retourne sur l'onglet "design" d'un form, celui-ci (le form, pas l'onglet) disparait et j'obtiens le message suivant :

L'accesseur de propriété 'IsMdiContainer' sur l'objet 'System.Windows.Forms.Design.FormDocumentDesigner' a levé l'exception suivante :'Le cast spécifié n'est pas valide.'

L'application fonctionne pourtant encore car je peux la lancer et le form en question est bien présent.

Ce problème m'est arrivé sur plusieurs applications et je ne peut donc plus modifier l'interface graphique !

Savez-vous d'ou peut venir ce problème et comment récupérer mes forms ?

Merci d'avance

PS : je ne sais pas si ça à a voir mais dans le même laps de temps, j'ai commencé a mettre l'option "copie locale" sur "true" sur les référence de type "System" ou "System.Windows.form"...

[lecknaat]

Ha ya des nouvelles...

Sur une application contenant plusieurs 2 forms et dont la 2eme form était plantée, en passant l'option "IsMdiContainer" à "true" sur la form1, tout est revenu dans l'ordre.

J'ai toutefois le problème sur une application ne contenant qu'une seul form et sur laquelle je n'est pas accès à cette option (car la form est plantée !)

[Pol63]

la partie design d'une feuille répond elle aussi à du code
et ce code peut planter
par exemple si tu poses de objets fait maison et que tu les modifies en retirant des propriétés ...

enfin la technique c'est d'ouvrir le fichier .designer de cette form
(dans la partie exploration du projet, y a un bouton qui sert à afficher les elements cachés du projet)
et donc dans ce designer tu cherches ce qui va pas, normalement le message d'erreur a du te donner un numéro de ligne

[lecknaat]

Bonjour

Je reviens sur ce post car mon problème vient a nouveau de se reproduire et je suis completement coincé.

Pour résume :
j'ai un projet qui démare avec le form1 visible.
J'ai un bouton qui m'ouvre le form2 (qui vient chevaucher mon form1). Lorsque je clique sur ok ou annuler du form2, ce dernier ce ferme et reviens sur le form1.

Tout allait pour le mieux (j'avais acces au design de mes forms) et d'un coup, en passant de la fenetre form1.vb a la fenetre form1.vb(design), j'ai eu le message d'erreur suivant :
[QUOTEL'accesseur de propriété 'IsMdiContainer' sur l'objet 'System.Windows.Forms.Design.FormDocumentDesigner' a levé l'exception suivante :'Le cast spécifié n'est pas valide.' [/QUOTE]

et maintenant j'ai ce message au lieu de mon design ce qui veut dire que je ne peut plus modifier ce design !!!! (et c'est un peu chiant quand meme)

Pouvez-vous me dire comment résoudre ce probleme !!!

ps : voici mon code

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form2
    Inherits System.Windows.Forms.Form
 
    Public obj_AppXls As Microsoft.Office.Interop.Excel.Application
    Public obj_sheetXls1, obj_sheetXls2, obj_sheetXls3, obj_sheetXls4, obj_sheetXls5, obj_sheetXls6 As Microsoft.Office.Interop.Excel.Worksheet
 
 
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Try
            obj_AppXls = GetObject(, "Excel.application")
        Catch ex As Exception
            MsgBox("L'application ne fonctionne pas si Excel n'est pas lancé", MsgBoxStyle.Critical, "Fermeture")
            End
        End Try
 
        obj_sheetXls2 = obj_AppXls.Sheets.Item("Liste Clients")
 
        Dim i, j As Integer
        Dim verif As String
        verif = "defaut"
        i = 2
 
        While verif <> ""
            verif = obj_sheetXls2.Range("A" & i).Value
            i = i + 1
        End While
 
        i = i - 1
        obj_sheetXls2.Range("A" & i).Value = TextBox1.Text
        obj_sheetXls2.Range("B" & i).Value = TextBox2.Text
        obj_sheetXls2.Range("C" & i).Value = TextBox3.Text
        obj_sheetXls2.Range("D" & i).Value = TextBox4.Text
        obj_sheetXls2.Range("E" & i).Value = TextBox5.Text
 
        Me.Visible = False
 
    End Sub
 
    Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
        Me.Visible = False
    End Sub
End Class

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
    '--Excel--
    Public obj_AppXls As Microsoft.Office.Interop.Excel.Application
    Public obj_sheetXls1, obj_sheetXls2, obj_sheetXls3, obj_sheetXls4, obj_sheetXls5, obj_sheetXls6 As Microsoft.Office.Interop.Excel.Worksheet
    Public ima, uni, design1, design2, design3, design4, design5, nom, adresse, adresse2, ville, regl, eche, ref, num_client, jour, mois, annee, _date As String
    Public val, val2, val3, val4, val5, prix, posi, nb_art, plus As Integer
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' IsMdiContainer = True
 
 
        Try
            obj_AppXls = GetObject(, "Excel.application")
        Catch ex As Exception
            MsgBox("L'application ne fonctionne pas si Excel n'est pas lancé", MsgBoxStyle.Critical, "Fermeture")
            End
        End Try
 
        obj_sheetXls1 = obj_AppXls.Sheets.Item("Devis")
        obj_sheetXls2 = obj_AppXls.Sheets.Item("Liste Clients")
        obj_sheetXls3 = obj_AppXls.Sheets.Item("Liste Produits")
        obj_sheetXls4 = obj_AppXls.Sheets.Item("Liste Echéance")
        obj_sheetXls5 = obj_AppXls.Sheets.Item("Liste Mode Réglement")
        obj_sheetXls6 = obj_AppXls.Sheets.Item("Liste Référence")
 
        'Liste produits :
        Dim i As Integer
        Dim verif As String
        verif = "defaut"
        For i = 2 To 300
            verif = obj_sheetXls3.Range("A" & i).Value
            If verif <> "" Then
                ComboBox1.Items.Add(obj_sheetXls3.Range("A" & i).Value)
            End If
        Next
 
        'Liste clients :
        'Dim i2 As Integer
        'Dim verif2 As String
        'verif2 = "defaut"
        'For i2 = 2 To 1000
        '    verif2 = obj_sheetXls2.Range("A" & i2).Value
        '    If verif2 <> "" Then
        '        ComboClient.Items.Add(obj_sheetXls2.Range("A" & i2).Value)
        '    End If
        'Next
        maj_client()
 
 
        'Liste réglement :
        Dim i3 As Integer
        Dim verif3 As String
        verif3 = "defaut"
        For i3 = 2 To 10
            verif3 = obj_sheetXls5.Range("A" & i3).Value
            If verif3 <> "" Then
                ComboReglement.Items.Add(obj_sheetXls5.Range("A" & i3).Value)
            End If
        Next
 
        'Liste echeance:
        Dim i4 As Integer
        Dim verif4 As String
        verif4 = "defaut"
        For i4 = 2 To 10
            verif4 = obj_sheetXls4.Range("A" & i4).Value
            If verif4 <> "" Then
                ComboEcheance.Items.Add(obj_sheetXls4.Range("A" & i4).Value)
            End If
        Next
 
        'Liste référence:
        Dim i5 As Integer
        Dim verif5 As String
        verif5 = "defaut"
        For i5 = 2 To 200
            verif5 = obj_sheetXls6.Range("A" & i5).Value
            If verif5 <> "" Then
                ComboReference.Items.Add(obj_sheetXls6.Range("A" & i5).Value)
            End If
        Next
 
        'Initialisation de la ligne contenant le 1er article (désignation)
        posi = 22
        nb_art = 0
        plus = 0
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        obj_sheetXls1.Activate()
        obj_sheetXls1.Range("B" & posi).Value = design1
        obj_sheetXls1.Range("B" & posi + 1).Value = design2
        obj_sheetXls1.Range("B" & posi + 2).Value = design3
        obj_sheetXls1.Range("B" & posi + 3).Value = design4
        obj_sheetXls1.Range("B" & posi + 4).Value = design5
        obj_sheetXls1.Range("G" & posi).Value = uni
        obj_sheetXls1.Range("H" & posi).Value = TextBox1.Text
        obj_sheetXls1.Range("I" & posi).Value = prix
 
        If ima <> "" Then
            obj_sheetXls1.Range("F" & posi).Select()
            obj_AppXls.ActiveSheet.Pictures.Insert(ima).Select()
        End If
        nb_art = nb_art + 1
        Label4.Text = "Nombre d'article ajouter : " & nb_art
 
        posi = posi + 6
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        val = ComboBox1.SelectedIndex
        val = val + 2
 
        'récupération de a désignation
        design1 = obj_sheetXls3.Range("A" & val).Value
        design2 = obj_sheetXls3.Range("B" & val).Value
        design3 = obj_sheetXls3.Range("C" & val).Value
        design4 = obj_sheetXls3.Range("D" & val).Value
        design5 = obj_sheetXls3.Range("E" & val).Value
        'récupération de l'unité
        uni = obj_sheetXls3.Range("F" & val).Value
        'récupération du prix
        prix = obj_sheetXls3.Range("G" & val).Value
        'récupération de l'image
        ima = obj_sheetXls3.Range("H" & val).Value
 
 
        '  MsgBox(ima)
        If ima <> "" Then
            PictureBox1.Image = Image.FromFile(ima)
        Else
            PictureBox1.Image = Nothing
        End If
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub ComboClient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboClient.SelectedIndexChanged
 
        If plus = 0 Then
            val2 = ComboClient.SelectedIndex
            '     MsgBox(val2)
            val2 = val2 + 2
 
            'récupération du client
            nom = obj_sheetXls2.Range("A" & val2).Value
            adresse = obj_sheetXls2.Range("B" & val2).Value
            adresse2 = obj_sheetXls2.Range("C" & val2).Value
            ville = obj_sheetXls2.Range("D" & val2).Value
            num_client = obj_sheetXls2.Range("E" & val2).Value
        ElseIf plus = 1 Then
            ComboClient.Items.Clear()
            maj_client()
            plus = plus + 1
        End If
 
 
    End Sub
 
    Private Sub ComboReglement_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboReglement.SelectedIndexChanged
        val3 = ComboReglement.SelectedIndex
        val3 = val3 + 2
 
        'récupération de a désignation
        regl = obj_sheetXls5.Range("A" & val3).Value
    End Sub
 
    Private Sub ComboEcheance_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboEcheance.SelectedIndexChanged
        val4 = ComboEcheance.SelectedIndex
        val4 = val4 + 2
 
        'récupération de a désignation
        eche = obj_sheetXls4.Range("A" & val4).Value
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        obj_sheetXls1.Activate()
        obj_sheetXls1.Range("E8").Value = nom
        obj_sheetXls1.Range("E9").Value = adresse
        If adresse2 = "" Then
            obj_sheetXls1.Range("E10").Value = ville
        Else
            obj_sheetXls1.Range("E10").Value = adresse2
            obj_sheetXls1.Range("E11").Value = ville
        End If
 
        obj_sheetXls1.Range("I6").Value = num_client
        obj_sheetXls1.Range("C14").Value = regl
        obj_sheetXls1.Range("G14").Value = eche
        obj_sheetXls1.Range("E55").Value = TVA.Text
        obj_sheetXls1.Range("C18").Value = ref
        obj_sheetXls1.Range("I2").Value = NumDev.Text.ToString
 
        annee = Microsoft.VisualBasic.Year(Microsoft.VisualBasic.Today)
        mois = Microsoft.VisualBasic.Month(Microsoft.VisualBasic.Today)
        jour = Microsoft.VisualBasic.Day(Microsoft.VisualBasic.Today)
 
        Select Case mois
            Case 1, 2, 3, 4, 5, 6, 7, 8, 9
                mois = "0" & mois
        End Select
 
        Select Case jour
            Case 1, 2, 3, 4, 5, 6, 7, 8, 9
                jour = "0" & jour
        End Select
        obj_sheetXls1.Range("H6").Value = jour & "/" & mois & "/" & annee
 
 
    End Sub
 
    Private Sub ComboReference_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboReference.SelectedIndexChanged
        val5 = ComboReference.SelectedIndex
        val5 = val5 + 2
 
        'récupération de a désignation
        eche = obj_sheetXls6.Range("A" & val5).Value
    End Sub
    Private WithEvents f2 As Form2
    Private WithEvents f1 As Form2
 
    Private Sub plus_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus_1.Click
        Me.f2 = New Form2
        'Dim f As New Form2
        Me.f2.Visible = True
        plus = plus + 1
    End Sub
 
    Private Sub maj_client()
        Dim i2 As Integer
        Dim verif2 As String
        verif2 = "defaut"
        For i2 = 2 To 1000
            verif2 = obj_sheetXls2.Range("A" & i2).Value
            If verif2 <> "" Then
                ComboClient.Items.Add(obj_sheetXls2.Range("A" & i2).Value)
            End If
        Next
    End Sub
 
    'Private Sub F2VisibleChanged(ByVal sender As Object, ByVal e As EventArgs) Handles f2.VisibleChanged
    '    Me.Visible = Not CType(sender, Form2).Visible
    'End Sub
 
    Private Sub F1VisibleChanged(ByVal sender As Object, ByVal e As EventArgs)
        If Not (CType(sender, Form1).Visible) Then f2.Visible = True
    End Sub
    Private Sub F2VisibleChanged(ByVal sender As Object, ByVal e As EventArgs)
        If Not (CType(sender, Form2).Visible) Then f1.Visible = True
    End Sub

[VB .Net][MDI]Débuter avec les MDI

[lecknaat]

Désolé de mon message (fin un peut brutale) precedent mais mes collègues me poussait depuis 10 min pour aller manger....

voici une image de mon erreur ...
plantage

C'est super chiant et je ne comprend vraiment pas pourquoi j'obtient ce problème puisque c'est super aléatoire... je suis sur ce devellopement depuis hier et j'ai eu ce problème que ce matin... et la disparition du form2 c'est effectué sans avoir fait aucune modification sur le code du form2 !

C'est quand même bizzare, j'ai ce problème sur pas mal de programme que j'ai fait et j'ai l'impression d'etre l'un des seul à l'avoir !

Il doit y avoir un truc que je fais mal...

J'ai regarde un peu les mdi mais je ne pense pas que j'en ai besoin ici (d'autant plus que ce problème est déja apparue sur une appli avec 1 seul form)

Si vous avez une idée... merci d'avance!

[LefortLudovic]

La raison pour laquelle tu obtiens cette erreur et que le constructeur des custom control et le onLoad est éxécuter meme par le designer.

Donc cela signifie que l'un de tes controles sur la form plante. tu dois trouver la raison et ça rentrera dans l'ordre. Le souci est que le pas à pas est impossible.

bon courage.

PS : Si tu es en VS2003 le probleme peut également se trouver dans InitializeComponent()