OpenFileDialog1.RestoreDirectory = True
openfiledialog.Filter ...
If openfiledialog.ShowDialog
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
If openfiledialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On Public Class Form1 Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Title = "Choix du fichier image" OpenFileDialog1.Filter = "JPEG (*.JPG)|*.JPG|All files (*.*)|*.*" OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.Multiselect = False OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then Try Dim image As Bitmap = Bitmap.FromFile(OpenFileDialog1.FileName) PictureBox1.Image = image Catch ex As Exception MsgBox("L'image doit être de format :" & vbLf & "JPG, GIF, BMP, EXIF, PNG, TIFF" & vbLf & "Remédier !", vbExclamation) End Try End If OpenFileDialog1.Dispose() End Sub End Class