Discussion :

[superthx]

Salut.

J'ai un problème et je voudrai le résoudre.
J'ai un Form avec un PictureBox + un Bouton pour insérer une image.
Si je fais ce que je viens de dire pas de probleme cela fonctionne, je vois mon image dans mon PictureBox.

Par contre si je clique sur annuler dans avant de choisir une image, j'ai un beau message d'erreur.

Message d'erreur :
Une exception non gérée du type 'System.ArgumentException' s'est produite dans mscorlib.dll
Informations supplémentaires : Le chemin d'accès n'a pas une forme conforme.

Au niveau de :
PictureBox1.Image = Image.FromFile(a.FileName)


Si quelqu'un peux m'aider. Merci d'avance.

Voici mon code

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
Imports MySql.Data.MySqlClient
Imports System
Imports System.Drawing.Image
Imports System.IO
Imports System.String
 
 
Public Class TESTFOTO
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    Dim a As New OpenFileDialog
    Dim dr As MySqlDataReader
    Private Sub TESTFOTO_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Seleccionar Imagen
        Dim piclocation As String
        a.Filter = Nothing
        piclocation = a.FileName
        a.ShowDialog()
        PictureBox1.Image = Image.FromFile(a.FileName)
        'Seleccionar Imagen
 
    End Sub
End Class

[momolasd]

Salut,

Il te suffit de rajouter une condition pour contrôler le dialogResult qui est retourné par le showDialog :

Code :

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

1
2
3
If a.ShowDialog() = DialogResult.OK Then
     PictureBox1.Image = Image.FromFile(a.FileName)
End If

[superthx]

Merci momolasd pour ta réponse et dsl pour la mienne tardive.
En effet cela regle a moitié le probleme, car si je clique sur annuler je n'ai plus le message d'erreur.
Mais cela relance la fenetre a nouveau et je dois recliquer.
Ya peut etre une soluce pour que cela ne se relance pas ?

UPDATE-----------------------------------
Ok, j'ai modifier comme cela et plus de probleme.

Code :

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

1
2
3
4
5
6
7
        Dim piclocation As String
 
        If a.ShowDialog() = DialogResult.OK Then
            a.Filter = Nothing
            piclocation = a.FileName
            PictureBox1.Image = Image.FromFile(a.FileName)
        End If

Merci pour ton aide