Discussion :

[MadMax4]

Bonjour,

Dans un programme VB.net sous VS 2005 :
J'utilise la méthode "FolderBrowserDialog.ShowDialog()" pour faire choisir un répertoire, c'est pratique et ça marche.
Mon souci : dans une autre partie de mon programme, j'appelle une deuxième fois cette méthode et là : rien ne se passe. Les instructions sont lues mais la boite de dialogue n'apparait pas.
J'ai essayé avec 2 instances distinctes d'un FolderBrowserDialog : même comportement !
Je ne comprends pas.

Quelqu'un a-t-il déjà rencontré ce problème ?
merci aux contributeurs.

[cubitus91]

salut,
Met ton code. Ca sera plus simple.
Cdt

[MadMax4]

Merci de ton intérêt Cubitus.
Ci-joint le code en pièce jointe (form1.vb)
La méthode en question est appelée une première fois dans la sub "Form1_load" et une deuxième fois dans la sub "démarrage".

cordialement

[smyley]

entre parenthèses, il faut tester si la valeur de retour de FolderBrowserDialog1.ShowDialog() est bien DialogResult.OK car si l'utilisateur cliques sur annuler ton code va planter en poursuivant tout de même le traitement...

[MadMax4]

Merci Smyley de ta suggestion : j'en prends bonne note.
Cependant, j'ai prévu la réponse vide qui fait sortir de la procédure.

Cordialement

[Aspic]

Merci Smyley de ta suggestion : j'en prends bonne note.
Cependant, j'ai prévu la réponse vide qui fait sortir de la procédure.

Cordialement

Poste un morceau de code pour voir cela de plus pret

[MadMax4]

cher Cubitus,

Voici mon projet sous forme ".rar".
J'y ajoute la base Access qui est utilisée au cas où.

Merci de ton aide
cordialement

[cubitus91]

Bon j'ai regardé ton code d'un peu plus prés. Il y a deux ou trois chose qui me saute aux yeux.
Alors,

Code :

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

1
2
3
4
5
6
7
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() --- Tu peux le virer si tu l'as mis avec le design de la forme.
Me.FolderBrowserDialog1.Description = "Indiquer le repertoire contenant la base Messages"
Me.FolderBrowserDialog1.ShowDialog()
repertoire_base = FolderBrowserDialog1.SelectedPath

Tu peux déporter ton appel à ton folderbrowserDialog gràce à une fonction. Cette fonction te retourne le chemin.
(tu peux lui passer en paramétre ta description et la variable à tester par exemple)
Tu auras donc :
repertoire_base = FonctionBrowser(param1,param2....)

Code :

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

1
2
3
4
If repertoire_base = ""ThenExitSub
Call creation_clé("Base", repertoire_base) --- tu peux enlever le CALL

C'est pas le top ton Then exit Sub
De plus ta procédure creation_clé(...), tu devrais la passer en fonction. Pour pouvoir retourner en cas d'erreur d'accés un retour vide ou autre (boolean). Tu peux aussi la mettre en classe si tu prefére.
Tu peux faire un :

Code :

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

1
2
3
If not repertoire_base = ""Then
....

voila c'est déja un début. Je vais regarde ton projet de plus pres.

[Aspic]

Normalement on fait comme cela :

Code :

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

1
2
3
4
5
6
If FolderBrowserDialog.ShowDialog = DialogResult.Ok then 'le mec a cliqué sur OK
 
Else 'sinon
'ne rien faire ou alors traité l'erreur
 
End If

PS: Pas besoin d'initialisation de ta boite de dialogue !

[MadMax4]

Merci Aspic, je vais tester ça aussi mais je doute que le problème soit là.
Je vais également essayer les suggestions de Cubitus.

Cordialement

[MadMax4]

Pas de problème : voir ci-joint.
Au passage, j'ai essayé ta solution de passage par une fonction pour le FOlder Browser : ça donne le même résultat : le code est lu mais à la deuxième utilisation de la fonction : il n'est pas exécuté !
Bizarre, bizarre.

Merci beaucoup néanmoins pour ce que tu fais.
Cordialement

[Aspic]

Pas de problème : voir ci-joint.
Au passage, j'ai essayé ta solution de passage par une fonction pour le FOlder Browser : ça donne le même résultat : le code est lu mais à la deuxième utilisation de la fonction : il n'est pas exécuté !
Bizarre, bizarre.

Merci beaucoup néanmoins pour ce que tu fais.
Cordialement

Je vais voir ca !

[Aspic]

A part des erreurs partout dans le programme, je ne vois pas de probleme avec la doite de dialogue avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 base = repert_base()
        If base = "" Then
            description = "Indiquer le repertoire contenant la base Messages"
            If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                repertoire_base = dialogue(description)
                If repertoire_base = "" Then Exit Sub
                creation_clé("Base", repertoire_base)
                Me.MessageTableAdapter.Connection.ConnectionString = provider & repertoire_base & "\" & "messages.mdb"
            End If
        Else
            repertoire_base = base
            Me.MessageTableAdapter.Connection.ConnectionString = provider & repertoire_base & "\" & "messages.mdb"
        End If

Voila

[MadMax4]

Oui Aspic, j'ai bien noté.
Mais le problème n'est pas là.

Lors du second appel à la méthode folderBrowser... rien ne s'exécute bien que le code soit correctement écrit.

Merci tout de même pour l'intérêt que tu portes à mon souci

Cordialement
madmax

[cubitus91]

Comme la dit Aspic. Ton programme est pas mal buggé !!

Je le refait pour comprendre un peu le truc que tu veux. Par contre je ne comprend pas un truc. Tu sélectionne en premier ta base. C'est bien ca. Mais pourquoi as tu prit un FolderBrowser. Pourquoi pas un FileBrowser tu mettais un filtre pour spécifier que tu voulais un .mdb uniquement.
La suite apres...

[smyley]

j'éssaye moi aussi mais jsuis juste buggé sur un

Code :

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

1
2
 
Me.ma_ProgressBar.Maximum = dirInfo.GetFiles.Length

[MadMax4]

Merci Smyley,

C'est mon deuxième souci !
Lorsque les répertoires sont bien fixés dans la base de registre, cette partie de code avec la progressBar fonctionne, mais à l'initialisation des répertoires, quand j'utilise les FolderBrowser : j'ai une erreur sur la progressBar.

J'suis vraiment mauvais (mais autodidacte débutant)
cordialement

[smyley]

quand je retire l'accès aux clefs du registre ( lecture / écriture ) ça marche ... mais pourquoi ?

[smyley]

YES !
essaye un truc
à la ligne 213

Code :

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

1
2
 
Close()

tu fermes la fenêtres en cours alors qu'elle n'est pas encore ouverte ( dans le Load )
tu t'es trompé à mon avis tu devais faire

Code :

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

1
2
 
rk.Close()

[MadMax4]

Merci SMYLEY

Je crois que tu as trouvé, ça marche avec ta correction ; en outre, elle résoud mes 2 soucis !

Je reste pantois devant ta sagacité.

merci à tous pour vos efforts, vous m'enlevez une belle épine du pied. Je dois présenter la V0 de cet utilitaire à mon chef demain matin (je ne comprend pas ce qu'il veut en faire mais bon ...)

Bien cordialement
MadMax