Discussion :

[wikiele]

Salut,
est ce que quelqu'un peut m'aider à créer un bouton parcourir sur mon mon application vb.net afin de récupérer une imahe JPEG .


merci

[matll]

Salut,

Tu peux utiliser le contrôle OpenFileDialog pour demander et récupérer le chemin de ton fichier

Code :

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

1
2
3
4
5
6
7
Private Sub TonBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tonBouton.Click
        Dim ofd as New OpenFileDialog()
        If (ofd.ShowDialog = Windows.Forms.DialogResult.OK) Then
            MsgBox(ofd.FileName)
        End If
        OpenFileDialog1.Dispose()
    End Sub

Tu peux aussi filtrer les extensions, mais je ne sais plus la syntaxe exacte, va voir dans la doc. Je dirais ça, mais je suis pas sur pour le "*".

Code :

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

ofd.Filter = "*.JPEG"

@+
Mat

[Ehjoe]

Salut,
est ce que quelqu'un peut m'aider à créer un bouton parcourir sur mon mon application vb.net afin de récupérer une imahe JPEG .


merci

Bonjour,

En complément, j'ai ce qui suit dans mon pense bête, si ça peut t'aider sur OpenFileDialog

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim source As String
 OpenFileDialog1.Title = "valider le fichier … restaurer"
 OpenFileDialog1.FileName = Mid(nomFichierClef, 2, Len(nomFichierClef) - 1)
 OpenFileDialog1.InitialDirectory = "c:\"
 OpenFileDialog1.Filter = "Fichiers txt|*.txt"
 OpenFileDialog1.Multiselect = False
 If OpenFileDialog1.ShowDialog = DialogResult.OK Then
  source = OpenFileDialog1.FileName
  OpenFileDialog1.Dispose()
 End If

Pour le filtre c'est le principe de la ligne de commande du fichier bat MsDos, c'est la barre :

Code :

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

1
2
 
 |

qui sépare chaque couple de données, la donnée 1 c'est le nom visible, la donnée 2 c'est le filtre de l'objet, etc, par couple, voici :

Code :

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

1
2
 
Openfiledialog.filter = "BMP|*.bmp|JPG|*.jpg|GIF|*.gif"

Et les filtres ce sont ceux des fichiers MsDos.

[cyberSpace]

Dans le meme objectif,tu peux aussi essayer ça en revoyant l'extension du fichier que tu souhaite ouvrir

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
Private Sub ButtonOuvrir_Click()
 
With OpenFileDialog1
.Title= "Ouvrir" 'Titre de la barre de titre
.InitialDirectory = "c:\" 'répertoire de départ
.Filter="Fichiers jpg|*.jpg" ' on travaille uniquement sur les .txt
's'il y a plusieurs filtres les séparer par ;
FilterIndex indique le filtre en cours
.Multiselect=False 'sélectionner 1 seul fichier
.CheckFileExists=True 'Message si nom de fichier qui n'existe pas.
'Permet d'ouvrir uniquement un fichier qui existe; CheckPathExists peut aussi être utilisé.
.ValidateNames=True 'n'accepte que les noms valides (win 32)
.AddExtension=True 'ajoute une extension au nom s'il n'y en a pas
End With
OpenFileDialog1.ShowDialog()
End Sub