Discussion :

[andy331]

Bonjour,
Je sais pas si la question à déjà été poser mais je recherche une façon que de créer automatiquement des pictureBox par rapport aux nombres d'images contenu dans une de mes tables Access et ses pictureBox seront regroupé dans un GroupBox


Et plutard une fois celle-ci créer j'aimerais par exemple cliquer sur la première image et celle_ci m'affichera les informations la concernant sur des TexteBox

Merci de votre aide!!!!

[nasty]

Bonjour

Pour faire ce que tu veux, tu parcourt tes images (via le resultat de ta requete) et pour chacunes d'elle tu genere une nouvelle picturebox

a la va vite ca doit donner un truc du genre:

Code :

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

1
2
3
4
5
for each pict as Picture/Bitmap in SqlReader
Dim p as new PictureBox
p.value/content = pict '(desolé je connais pas le nom de la proprieté mais ca doit pas etre trop dur a trouver)
p.Parent = leparentdetapicturebox
Next

Apres pour la gestion du click sur la picturebox, la j'ai pas vraiment d'idée pour l'instant, mais je suis sur que d'autres en auront

Nasty

[Pol63]

Code :

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

1
2
3
dim p as new picturebox
mongroupbox.controls.Add(p)
addhandler p.click, addressof LaSubQueJeVeuxPourGererLeClick

ensuite sur LaSubQueJeVeuxPourGererLeClick sender contiendra l'instance du picturebox cliqué
à toi d'avoir ce qu'il faut pour faire le lien avec le reste des données

[methylene]

Apres pour la gestion du click sur la picturebox, la j'ai pas vraiment d'idée pour l'instant, mais je suis sur que d'autres en auront

Code :

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

AddHandler pict.Click, AddressOf pictclick

[Pol63]

si tu ne veux pas avoir à définir les emplacements des picturebox, tu peux utiliser un flowlayoutpanel au lieu d'un groupbox

[andy331]

Merci aà tous j'essaie ça et je vous tiens au courant!!

[methylene]

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
Dim i As Integer = 0
        Dim img As Image
 
        For Each img In myimglist
 
            Dim pict As New PictureBox
            pict.Name = "Pict" & i
            pict.Size = New Size(50, 50)
            pict.Location = New Point() 'A toi de voir comment tu veux les placer
            pict.BackgroundImage = img
            pict.BackgroundImageLayout = ImageLayout.Stretch
            pict.Visible = True
            grpbox1.Controls.Add(pict)
            pict.BringToFront()
 
        Next

Avec :

Code :

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

grpbox1 'comme groupbox

et

Code :

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

myimglist 'comme ta collection d'images