Discussion :

[Fëanor 06]

Hello !

Bon, je poste car je deviens fou...

J'utilise un OpenFileDialog pour aller chercher un fichier, comme ceci :

Code :

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

1
2
3
4
5
6
 
Dim FileName As String
...
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
     FileName = OpenFileDialog1.FileName
     ...

A la première utilisation, aucun problème.
Mais si je réutilise l'OpenFile (sans quitter le prog), ça plante lamentablement sur une

Tentative de lecture écriture en mémoire protégée....

Je me suis dit qu'il fallait vider tout ça avant de réutiliser la fonction mais je n'y parviens pas :

Code :

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

1
2
3
 
OpenFileDialog1.Dispose
OpenFileDialog1.Reset

Rien ne marche...

Et ça ne vient pas du fichier car l'erreur apparaît immédiatement après avoir cliqué sur le bouton appelant le OpenFile.

Je précise que je suis sur MS VB 2008 Express sous W7 (mais ça faisait pareil sous XP...).

Si quelqu'un a une idée, moi je suis sec...

Merci bcp !!!

[ostenhard]

Bonjour,

Une solution simple de contournement est qu'au lieu d'utiliser un openfiledialog déposé en tant que composant sur ta form, tu crées un nouveau openfiledialog par code à chaque appel.

Code :

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

1
2
3
Dim openDialog as new OpenFileDialog
' les options
if openDialog.ShowDialog() = ...

[Fëanor 06]

Merci de ta réponse, mais cela fait pareil...
C'est fou, le premier coup fonctionne, pas le 2ème.
J'ai pourtant bien ajouté ta ligne et supprimé le OpenFileDialog sur le Designer.

J'avais essayé beaucoup de déclarations et il m'avait semblé que c'était le ShowDialog qui posait problème...

[ostenhard]

Pas possible fait voir ton code complet !

[Fëanor 06]

Je suis désolé, il est énorme, c'est pas que je veux pas le mettre mais je veux pas trop t'embêter non plus... pour l'instant juste la fonction, sachant qu'il se passe pas grand chose avant...

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
 
Private Sub But_Pil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Pil.Click
 
        Results.Dispose()
 
        Dim FileName As String
        Dim Extension As String
 
        Cal_SGI = True
 
        'Idem avec ou sans (et objet dans le Designer)
        Dim OpenFileDialog1 As New OpenFileDialog
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            FileName = OpenFileDialog1.FileName
            Extension = New System.IO.FileInfo(FileName).Extension
            If Extension <> ".sgi" And Extension <> ".rgb" Then
                MsgBox("It's not a sgi image file!")
                Ecrire_Fichier_Log("It's not a SGI/RGB image file!")
                Exit Sub
            Else            
                Results.Show()
            End If
        End If
    End Sub

[Fëanor 06]

En isolant la fontion dans un projet simple je n'arrive pas à reproduire, je ne vois pourtant pas ce qui peut perturber un OpenFileDialog, dans Results, qui est affiché à la fin et qui, a priori le perturbe, il n'y a que des affichage divers et pas de réutilisation de OpenFileDialog...

Je continue à étoffer jusqu'à ce que je reproduise le problème...

Merci