gérer le bouton annuler d'un FolderBrowserDialog et d'un OpenFileDialog

Version imprimable

Bonsoir, je désire faire un

Code:

1
2
 
Me.Show()

sur le bouton annuler d'un FolderBrowserDialog dont voici le

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Dim FD As FolderBrowserDialog
                FD = New FolderBrowserDialog
                FD.Description = "Selectionner un dossier"
                FD.RootFolder = Environment.SpecialFolder.MyComputer
                FD.ShowDialog()
 
                SelectionUploadTxtBox.Text = (FD.SelectedPath)
 
                Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(SelectionUploadTxtBox.Text)
                SelectionCompressionUploadTxtBox.Text = "c:\ftp\script\" & fileName

ainsi que celui du OpenFileDialog

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim myStream As Stream
                Dim openFileDialog1 As New OpenFileDialog()
 
                openFileDialog1.InitialDirectory = "c:\"
                openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
                openFileDialog1.FilterIndex = 2
                openFileDialog1.RestoreDirectory = True
 
 
                If openFileDialog1.ShowDialog() = DialogResult.OK Then
                    myStream = openFileDialog1.OpenFile()
                    If Not (myStream Is Nothing) Then
                        'inscrit le fichier choisi dans le textboxFichuplo
                        SelectionUploadTxtBox.Text = (openFileDialog1.FileName)
                        myStream.Close()
                    End If
                End If

Merci de votre aide

18/05/2011, 00h43
lukeni2

d'après ma compréhension de ton problème, tu voudrait gerer le clic sur le bouton annuler des boites de dialoges openFileDialog et FolderbrowserDialog.

Tu l'as déjà fait dans ton second code, fait la même chose pour le premier code. Au lieu de

Code:

If openFileDialog1.ShowDialog() = DialogResult.OK Then

essai

Code:

If openFileDialog1.ShowDialog() = DialogResult.cancel Then
18/05/2011, 06h34
sinople

Il y a un astuce qui consiste à vérifier si la valeur du chemin sélectionnée est une chaîne de caractère vide pour savoir si l'utilisateur à cliquer sur annuler.
18/05/2011, 08h36
Pol63

il faut bien utiliser l'intellisense
en tapant showdialog, ca te dit que showdialog ouvre la fenetre en modal mais aussi que c'est une fonction qui retourne un dialogresult ...

d'ailleurs quand on fait soit même une fenetre modale, on peut utiliser sur un bouton annuler me.dialogresult = cancel etc..., ce qui ferme la fenetre et retourne la valeur à l'appelant de showdialog

Merci de vos réponse,
effectivement j'aurai du pensé à

Code:

1
2
 
If FD.ShowDialog() = DialogResult.Cancel Then

Code:

If openFileDialog1.ShowDialog() = DialogResult.Cancel Then

j'en suis désoler.

Cependant je remarque que je ne dois pas utiliser la bonne méthode pour ce que je recherche, je pense qu'en faite le

Code:

Me.Show()

n'es pas adapter à la situation.

En faite je cherche à ce que si le bouton annuler de mon FolderBrowserDialog ou de mon OpenFileDialog est cliquer alors sauter tout le code afin d'aller directement au End Try

Code:

1
2
3
4
5
 
If SelectionUploadTxtBox.Text = "" Then
            UploadPanel.Visible = False
            MsgBox("Aucune données valide à été sélectionner !", MsgBoxStyle.Exclamation, "FTP-2011 By Z!T¤ùN£ @NT!C!P-W!N-32")
        End If

voici mon complet avec les élément clé en rouge

Code:

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
 Private Sub SelectionUploadBt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectionUploadBt.Click
        Try
            'boutton selection upload DOSSIER ***********************
            Dim ChoixUpload
            ChoixUpload = MsgBox("VOUS DESIREZ : Envoyer un dossier ? (CLIQUER SUR OUI) , envoyer un FICHIER ? (CLIQUER SUR NON !)", MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question, "FTP-2011 By Z!T¤ùN£ @NT!C!P-W!N-32")
            'si reponse oui
            If ChoixUpload = vbYes Then
                Dim FD As FolderBrowserDialog
                FD = New FolderBrowserDialog
                FD.Description = "Selectionner un dossier"
                FD.RootFolder = Environment.SpecialFolder.MyComputer
                FD.ShowDialog()

                If FD.ShowDialog() = DialogResult.Cancel Then
                    'CODE MANQUANT
                End If

                SelectionUploadTxtBox.Text = (FD.SelectedPath)

                Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(SelectionUploadTxtBox.Text)
                SelectionCompressionUploadTxtBox.Text = "c:\ftp\script\" & fileName


                'question compression*****************************
                Dim DemandeCompression
                DemandeCompression = MsgBox("Votre fichier est-il déjà compresser ? (un fichier compresser se fini générallement par .rar ou .zip)", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "FTP-2011 By Z!T¤ùN£ @NT!C!P-W!N-32")
                'si déjà compresser
                If DemandeCompression = vbYes Then
                    'mon code
                Else 'si pas encore compresser
                    'mon code
                End If
                '***************************************************************************************************************************************
                'si cancel est cliquer
            ElseIf ChoixUpload = vbCancel Then
                Me.Show()
                '***************************************************************************************************************************************
            Else
                'si non est cliquer
                'boutton selection upload FICHIER ***********************
                Dim myStream As Stream
                Dim openFileDialog1 As New OpenFileDialog()

                openFileDialog1.InitialDirectory = "c:\"
                openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
                openFileDialog1.FilterIndex = 2
                openFileDialog1.RestoreDirectory = True
                '
                If openFileDialog1.ShowDialog() = DialogResult.Cancel Then
                    'CODE MANQUANT
                End If
                '
                If openFileDialog1.ShowDialog() = DialogResult.OK Then
                    myStream = openFileDialog1.OpenFile()
                    If Not (myStream Is Nothing) Then
                        'inscrit le fichier choisi dans le textboxFichuplo
                        SelectionUploadTxtBox.Text = (openFileDialog1.FileName)
                        myStream.Close()
                    End If
                End If

                'affiche la selection dans une textbox sans l'extension du fichier choisi
                Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(SelectionUploadTxtBox.Text)
                SelectionCompressionUploadTxtBox.Text = "c:\ftp\script\" & fileName

                'question compression*****************************
                Dim DemandeCompression
                DemandeCompression = MsgBox("Votre fichier est-il déjà compresser ? (un fichier compresser se fini générallement par .rar ou .zip)", MsgBoxStyle.YesNo, "FTP-2011 By Z!T¤ùN£ @NT!C!P-W!N-32")
                'si déjà compresser
                If DemandeCompression = vbYes Then
                    'mon code
                Else 'si pas encore compresser
                    'mon code
                End If
                End If
                '**************************************************************************************************************************************
        Catch ex As Exception
            MsgBox("Erreur : " & ex.Message)
        End Try
        'si aucun choix à été effecuer
        If SelectionUploadTxtBox.Text = "" Then
            UploadPanel.Visible = False
            MsgBox("Aucune données valide à été sélectionner !", MsgBoxStyle.Exclamation, "FTP-2011 By Z!T¤ùN£ @NT!C!P-W!N-32")
        End If
    End Sub

en espérant avoir réussis à me faire comprendre et en vous remerciant d'avance de votre aide

18/05/2011, 22h17
Pacane

Ben tu peux toujours inclure le code du dialog.OK dans un else.... non?
18/05/2011, 23h08
Pol63

exit try ?
19/05/2011, 10h32
zitoune31

Bonjour,
encore merci de vos réponse,
le

Code:

Exit Try

me parait parfait il me reste simplement maintenant à réussir à le placer au bonne endroit étant donner que lors de mes test, le

Code:

OpenFileDialogue

été ré-afficher pour ensuite aller au

Code:

End Try

je vais me re-pencher sur ça se soir et viendrai poster le résultat
19/05/2011, 22h35
zitoune31
Bonsoir, voilà après X testé avec vos solutions "else" et "Exit Try" qui effectivement pouvais correspondre à ma demande, je n'arrive pas à concrétiser comme je le voudrai car quand je clique sur annuler j'arrive bien à mon "Exit Try" mais le souci étant que avant d'y arriver j'ai mon "FolderBrowserDialog" qui se ré-affiche et idem concernant "openFileDialog1" ce qui implique de devoir cliquer 2 fois sur annuler avant de pouvoir arriver au "Exit Try" si quelqu'un à le pourquoi du comment je suis preneur ?!
En attendant j'ai résolu le problème en me servant de vos conseil un mélange du "Else" et du "Exit Try" de la façon suivante :
Code:

1 2 3 4 'si aucun fichier à été choisi If SelectionCompressionUploadTxtBox.Text = "c:\ftp\script\" Then Exit Try Else
et idem pour :
Code:

1 2 3 4 'si aucun fichier à été choisi If SelectionCompressionUploadTxtBox.Text = "c:\ftp\script\" Then Exit Try Else
au lieu de gérer directement le bouton "annuler", je le fait avec le "textbox" qui reçoit l'emplacement du fichier ou dossier choisi ;):ccool::D
20/05/2011, 07h08
Pol63

il faudrait apprendre à débuger, le pas à pas

et c'est normal qu'il souvre 2x tu lui demandes de s'ouvrir 2x

FD.ShowDialog()

If FD.ShowDialog() = DialogResult.Cancel Then
'CODE MANQUANT
End If
20/05/2011, 09h52
zitoune31

Citation:

Envoyé par Pol63

il faudrait apprendre à débuger, le pas à pas

et c'est normal qu'il souvre 2x tu lui demandes de s'ouvrir 2x

FD.ShowDialog()

If FD.ShowDialog() = DialogResult.Cancel Then
'CODE MANQUANT
End If

Merci de ton éclaircissement qui ma permis effectivement de comprendre mon erreur et OUI tout à fait conscient que d'apprendre le pas à pas me serai bien bénéfique :ccool: