CRÉER, CONNECTER ET REMPLIR UNE BASE ACCESS

Signaler
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
-
Messages postés
124
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
29 mai 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53470-creer-connecter-et-remplir-une-base-access

Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
122
J'ai vu ton post a propos des images, j'ai fait cela si ça peut t'aider:

 Dim colonne As Integer
    Dim ligne As Integer
' http://vb.net-informations.com/datagridview/vb.net_datagridview_image.htm
    'ajout colonne image
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim img As New DataGridViewImageColumn()
        Dim inImg As Image = Image.FromFile("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png")
        img.Image = inImg
        DataGridView1.Columns.Add(img)
        img.HeaderText = "Image"
        img.Name = "img"
    End Sub
 'Cellule image vers PictureBox
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        PictureBox1.Image = CType(DataGridView1.Item(3, 3).Value, Image)
    End Sub
    'inserer image dans cellule
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        DataGridView1.Item(2, 3) = New DataGridViewImageCell
        DataGridView1.Item(2, 3).Value = New Bitmap("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png")
    End Sub
    'PictureBox vers cellule
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        DataGridView1.Item(2, 2) = New DataGridViewImageCell
        DataGridView1.Item(2, 2).Value = New Bitmap(PictureBox1.Image)
    End Sub
    'insere image au clic sur la cellule
    Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        ligne = DataGridView1.CurrentCell.RowIndex
        colonne = DataGridView1.CurrentCell.ColumnIndex
        DataGridView1.Item(colonne, ligne) = New DataGridViewImageCell
        DataGridView1.Item(colonne, ligne).Value = New Bitmap("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png")
    End Sub
    'Cellule image vers PictureBox au double clic
    Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
        If CType(DataGridView1.Item(colonne, ligne).Value, Image) Is Nothing Then Exit Sub
        ligne = DataGridView1.CurrentCell.RowIndex
        colonne = DataGridView1.CurrentCell.ColumnIndex
        PictureBox1.Image = CType(DataGridView1.Item(colonne, ligne).Value, Image)
    End Sub


Voilà
@+
Messages postés
124
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
29 mai 2020
>
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021

Merci encore.
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
122
Bonjour,

Merci pour le commentaire.

Voir sur ce site à la fin, Champs d'image:

http://www.yevol.com/vbaccess/Lesson10b.htm

Pour les BDD, voir ce programme qui est plus abouti:

http://codes-sources.commentcamarche.net/source/55175-creer-et-connecter-une-base-access-sous-windows-8

@+ Le Pivert
Messages postés
124
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
29 mai 2020
>
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021

Merci, tout est dit.
Afficher les 7 commentaires