Discussion :

[botanique]

bonjour,
dans mon application je fais afficher des images par le code suivant :

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
Dim i, fin As Integer
        Dim photo As String
        'objet de calcul intermédiaire
        Dim calcul As Integer
 
        fin = Me.DGAjoutPhoto.VisibleRowCount - 1
        If fin = 0 Then
            MessageBox.Show("Il n'y a pas d'image pour ce taxon", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            For i = 0 To fin
                Dim Pic(compteur) As PictureBox
                If Not Me.DGAjoutPhoto.Item(i, 0) Is DBNull.Value Or Me.DGAjoutPhoto.Item(i, 0) <> Nothing Then
                    photo = Me.DGAjoutPhoto.Item(i, 1)
                    'test le compteur si compteur = 0, il n'y a pas de photo affichée
                    If compteur = 0 Then
                        'Position de la picturebox
                        x = 32
                        y = 32
                        'instancie la picturebox
                        Pic(compteur) = New PictureBox
                        'dimension par défaut de la picturebox
                        Pic(compteur).Size = New System.Drawing.Size(150, 200)
                        'charge la photo dans la picturebox avec le path de la textbox
                        Pic(compteur).Image = Image.FromFile(photo)
                        'recherche la meilleure dimension de l'image
                        Affichagephoto(Pic(compteur))
                        'localisation de l'image
                        Pic(compteur).Location = New System.Drawing.Point(x, y)
                        'l'image devient visible
                        Pic(compteur).Visible = True
                        'instanciation des variables largeur et hauteur
                        largeur = Pic(compteur).Size.Width
                        hauteur = Pic(compteur).Size.Height
                        'Ajoute la photo au panel
                        Me.PanelAjoutPhoto.Controls.Add(Pic(compteur))
                    Else
                        'Instancie la picturebox
                        Pic(compteur) = New PictureBox
                        'dimension par défaut de la picturebox
                        Pic(compteur).Size = New System.Drawing.Size(150, 200)
                        'calule la position théorique de la nouvelle picturebox
                        calcul = x + largeur + 40
                        'Chargement de la photo dans la picturebox à l'aide du path contenu dans la textbox
                        Pic(compteur).Image = Image.FromFile(photo)
                        'Détermination de la meilleure dimension de la photo
                        Affichagephoto(Pic(compteur))
                        'regarde si la photo tient entièrement dans la ligne
                        If (calcul + Pic(compteur).Width) < 968 Then
                            'Si oui, alors la position x de la picturebox = calcul
                            x = calcul
                        Else
                            'Si non, on passe à la ligne
                            y = y + hauteur + 40
                            x = 32
                        End If
                        'localisation de la picturebox
                        Pic(compteur).Location = New System.Drawing.Point(x, y)
                        'localisation de la textbox
                        Pic(compteur).Visible = True
                        'instancie largeur et hauteur
                        largeur = Pic(compteur).Size.Width
                        hauteur = Pic(compteur).Size.Height
                        'Ajout de la picturebox au panel Ajout Photo
                        Me.PanelAjoutPhoto.Controls.Add(Pic(compteur))
                        'regarde si la position y de la picturebox est dans la partie visible du panel
                        If y > 384 Then
                            'Si oui, alors agrandissement du panel et création d'un autoscroll
                            Me.PanelAjoutPhoto.AutoScroll = True
                            Me.PanelAjoutPhoto.AutoScrollMargin = New System.Drawing.Size(10, y + 200)
                        End If
                    End If
 
                End If
                'Incrémente le compteur à 1
                compteur += 1
            Next i
        End If

Puis, l'utilisateur peut ajouter des photos à celles-ci à l'aide d'un code similaire où il ouvre une une Openfiledialog pour choisir la photo.

J'aimerais aussi que l'utilisateur puisse supprimer des images. Là, je souhaiterais qu'il puisse séléctionner l'image en cliquant dessus et appuyer sur un bouton supprimer pour la supprimer. Mais je ne sais pas comment faire.

Quelqu'un peut-il m'aider et m'indiquer le moyen de réaliser la suppression d'image?

Merci de votre aide à tous.

Botanique

[yoyann]

- La suppression de ton fichier image je suppose que tu veux supprimer ?

c'est File.Delete("chemin de ton fichier") dans le namespace System.IO

N'oublie pas que pour supprimer ton image tu dois ne plus l'utiliser dans ton application un simple Dispose de ton image chargée devrait suffire.

- Si tu veux supprimer ta pictureBox tu fais un remove dans Me.PanelAjoutPhoto.Controls de ta pictureBox.

[neguib]

Si chaque image est contenu par son propre PictureBox et que tout ces PictureBox sont contenus dans un Panel alors tu peux passer par la collection Panel.Controls pour faire un Remove
Exemple Imaginons que lors de la création dynamique des PicturesBox tu ais abonné l'evenement click à un seul délégué

Code :

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

1
2
 
AddHandler MonPictureBox.Click, AddressOf ImageClick

Supposons que tu declare une variable de classe SelectedImage

Code :

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

Private SelectedImage As PictureBox

Sur une selection d'image

Code :

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

1
2
3
4
 
Private Sub ImageClick(ByVal sender As Object, ByVal e As EventArgs)
   Me.SelectedImage = Ctype(sender,PictureBox)
End Sub

Et sur le click du bouton Delete

Code :

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

1
2
3
4
5
 
Private Sub Delete(ByVal sender As Object, ByVal e As EventArgs) Handles BoutonDelete.Click
   Me.MonPanel.Controls.Remove(Me.SelectedImage)
   Me.MonPanel.Refresh
End Sub

Maintenant je suppose que tu vas avoir un réalignement qui ne se fera pas car tu ne semble pas avoir developpé ton propre Control Panel qui gèrerait lui m^me son affichage

[botanique]

Merci de ta réponse. Pour être plus précis, c'est la picturebox que je veux supprimer et par la même occasion, le path qui se situe dans une table. Avec les indication que tu m'as fournies, je devrais y arriver. Par contre, comment savoir quelle picturebox supprimer lorsque je clique sur le bouton supprimer?

Il me faut lui sélectionner une picturebox et là, je vois pas comment faire.
Peux-tu m'aider?

Merci beaucoup de ton aide.

Botanique

[neguib]

T'es sûr de m'avoir lu correctement je t'ai déjà répondu

[botanique]

Excuse moi, j'ai répondu avant ta réponse mais pas assez vite pour qu'elle arrive avant.

Merci pour ton aide.
Je vais regarder ça demain.

Botanique

[botanique]

Bonjour,
c'est cool, ça marche. Maintenant, il ne me reste plus qu'à effacer la ligne sur la DataTable.
Est-il possible de retrouver le chemin de la photo à partir de la picturebox?

Merci beaucoup de votre aide.

Botanique

[botanique]

ça y est, j'ai trouvé comment obtenir le chemin d'accès d'une image d'une picturebox. Il suffit, au moment de la création de l'image de stocker le path dans le propriété text de la picturebox et après de la reprendre.

Merci à vous tous pour votre aide.

Botanique

[neguib]

J'ai une suggestion bien que tu ais compris le principe
Il me semble plus judicieux d'utiliser la propriété Tag d'un Control pour stocker une valeur quelconque.
Comme tu code en VB.Net je t'invite à le faire avec

Code :

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

1
2
3
 
Option Explicit On
Option Strict On

Afin de prendre de bonne habitude de programmation sûre.
Par exemple ici cela t'obligera sainement à récupérer la valeur de la propriété Tag en typant

Code :

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

1
2
 
Dim path As String = Ctype(MonPictureBox.Tag, String)

Bonne prog

[botanique]

Merci de tes explications

Botanique

[botanique]

Encore une question sur la picturebox : quand elle est séléectionnée pas le click, l'utilisateur ne vois pas laquelle des pictureBox est sélectionnée.
Je pensais alors dessinner un rectangle de sélection autour de celle sélectionnée.

Existe-t-il une autre méthode pour différencier la picturebox sélectionnée des autres?

Merci pour ton aide Neguib.

Botanique

[neguib]

Encore une question sur la picturebox : quand elle est séléectionnée pas le click, l'utilisateur ne vois pas laquelle des pictureBox est sélectionnée. Je pensais alors dessinner un rectangle de sélection autour de celle sélectionnée. Existe-t-il une autre méthode pour différencier la picturebox sélectionnée des autres?
Merci pour ton aide Neguib.
Botanique

Cela me semble le plus simple à faire. Reste à faire en sorte que seul le PictureBox selectionné en cours soit repéré par un rectangle de selection

[botanique]

Merci pour la confirmation.

Botanique