Charger une image dans un picture box a partir de nom saisie dans le text box

Question

Bonjour tout le monde, en fait je suis en train de developper une application de gestion d'une ecole et j'aimerai dans une des formulaires charger la photo des eleves dans un picture box a partir de leur nom saisi dans un text box. Les photos sont dans un dossier nommé tofs_eleves. Donc apres avoir saisi le nom, le systeme doit chercher le nom correspondant dans le dossier. exple: C:	ofs_eleves
Merci D'avance !!!

J'utilise Win 7 et VS 2008 Avec Access comme BD

cs_Le Pivert · Accepted Answer

Bonjour,
Je vais vous donner le code, mais je pense que ce n'est pas le moyen le plus simple d'opérer:

Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim chemin As String
        chemin = "c:	est"
        If TextBox1.Text <> "" Then
            PictureBox1.Image = System.Drawing.Bitmap.FromFile(chemin & TextBox1.Text & ".jpg")
End If
    End Sub

Je pense qu'il vaudrait mieux mettre tous les noms dans un comboBox, cela éviterait les erreurs de saisie. Une erreur de saisie dans le TextBox et c'est le bug.

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Image1" Then
            PictureBox1.Image = System.Drawing.Bitmap.FromFile(chemin & "Image1" & ".jpg")
        ElseIf ComboBox1.Text = "Image2" Then
            PictureBox1.Image = System.Drawing.Bitmap.FromFile(chemin & "Image2" & ".jpg")
        ElseIf ComboBox1.Text = "Image3" Then
           PictureBox1.Image = System.Drawing.Bitmap.FromFile(chemin & "Image3" & ".jpg")
        End If
    End Sub

Vous pouvez aussi mettre toutes vos imges dans le dossier resources et là votre application est autonome du chemin de fichier:

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Image1" Then
           PictureBox1.Image = My.Resources.Image1
        ElseIf ComboBox1.Text = "Image2" Then
           PictureBox1.Image = My.Resources.Image2
ElseIf ComboBox1.Text = "Image3" Then
            PictureBox1.Image = My.Resources.Image3
End If
    End Sub

Voilà c'est tout à vous de choisir
@

kijx · Answer

Bonjour , j'ai rajouté un bouton pour executé le code

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text <> "" Then
            PictureBox1.ImageLocation = "c:	est" & TextBox1.Text

        End If
    End Sub
End Class

moiseinfo2 · Answer

Merci les Gars pour vos reponses si rapide et efficace. Maintenant ça charge les images mais effectivement vous avez raison il ya un bug concernant la saisie d'un nom qui n'existe pas. J'ai mis le code entre un TRY CATCH mais le msg revient mais cette fois sans empecher le programme de continuer a tourner. Si trouver le moyen de regler ce probleme je suis a l'ecole.
 ET MERCI ENCORE !!

moiseinfo2 · Answer

je suis a l'ecoute je veux dire

cs_Le Pivert · Answer

Je pense vous avoir donné la réponse: en se servant de comboBox. Pour moi la façon la plus simple est de charger les images dans le dossier Resources, comme cela vous n'êtes pas tributaire du dossier image. Quand toutes les images sont chargées vous mettez dans la propriété Collection du comboBox les noms des images les un derrière les autres en évitant les espaces. Ensuite vous n'avez plus qu' à remplir le code avec ces noms comme je vous l'ai expliqué sur le dernier message. Vous n'avez même pas besoin de bouton dès que vous changez la saisie du combo l'image change.
@+ Le Pivert

cs_Le Pivert · Answer

Quelques explications supplémentaires:
Pour mettre les images dans "Resources:
Ouvrir My Project en haut à droite, Resources, Ajouter une ressource, Ajouter un fichier existant et là vous sélectionnez vos images.
Pour le comboBox Propriétés du Combo en bas à droite: Items (Collection) et vous remplissez:
Image1
Image2
Image3
etc..
@+

Charger une image dans un picture box a partir de nom saisie dans le text box

6 réponses

Votre réponse

Discussions similaires