Discussion :

[zitoune31]

Bonsoir, je désire faire un

Code :

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

1
2
 
Me.Show()

sur le bouton annuler d'un FolderBrowserDialog dont voici le

Code :

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

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 :

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
 
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

[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 :

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

If openFileDialog1.ShowDialog() = DialogResult.OK Then

essai

Code :

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

If openFileDialog1.ShowDialog() = DialogResult.cancel Then

[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.

[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

[zitoune31]

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

Code :

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

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

et

Code :

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

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 :

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

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 :

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

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 :

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
 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

[Pacane]

Ben tu peux toujours inclure le code du dialog.OK dans un else.... non?

[Pol63]

exit try ?

[zitoune31]

Bonjour,
encore merci de vos réponse,
le

Code :

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

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 :

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

OpenFileDialogue

été ré-afficher pour ensuite aller au

Code :

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

End Try

je vais me re-pencher sur ça se soir et viendrai poster le résultat

[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 :

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

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

et idem pour :

Code :

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

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

[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

[zitoune31]

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