cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
27 mai 2013 à 11:39
cs_colby
Messages postés126Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention14 novembre 2022
-
23 mars 2018 à 11:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_colby
Messages postés126Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention14 novembre 2022 23 mars 2018 à 11:53
Merci encore.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 Modifié le 23 mars 2018 à 11:16
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à
@+
cs_colby
Messages postés126Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention14 novembre 2022 23 mars 2018 à 11:08
Merci, tout est dit.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 Modifié le 22 mars 2018 à 13:48
cs_colby
Messages postés126Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention14 novembre 2022 22 mars 2018 à 13:02
Salut, votre code est super pour nous les débutants. Seulement j'ai une question :
Dim cmd As New OleDb.OleDbCommand
connex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\" & txtname.Text & ".mdb"
' on récupère la connexion dans l'objet
cmd.Connection() = connex
connex.Open()
' nouvelle requête de création de table, là c'est du SQL Access
cmd.CommandText = "CREATE TABLE " & txttable_1.Text & "(ID_" & txttb1_col1.Text & " AUTOINCREMENT CONSTRAINT PKEY Primary Key," & txttb1_col2.Text & " VARCHAR(100)," & txttb1_col3.Text & " VARCHAR(100)," & txttb1_col4.Text & " VARCHAR(100))" 'pour colonne numériques mettre " INTEGER," à la place de " VARCHAR(100),"
' on lance la requête
cmd.ExecuteNonQuery()
'pour colonne numériques mettre " INTEGER," à la place de " VARCHAR(100),"
POUR UNE COLONNE DE TYPE "OBJET OLE" QUE METTRE A LA PLACE DE "VARCHAR(100).
Merci d'avance.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 22 déc. 2015 à 15:33
Bonjour,
Pour ceux qui ont Windows 7, 8, 10 en 64 bits et qui n'arrivent pas à faire fonctionner la source:
selon la version de visual basic que vous utilisez:
soit:
- Menu Générer / Gestionnaire de configurations...
- Dans la liste déroulante "Plateforme de la solution active", choisir: "Nouveau"
- Dans la liste déroulante "Tapez ou sélectionnez la nouvelle plateforme", choisir : "x86" puis cliquer sur "OK"
- Vérifier ensuite que la plateforme "x86" soit sélectionnée dans la liste des projets.
soit:
- Outils / Options cliquer sur "Affichez tous les paramètres" en bas à gauche,
- Dans l'arbrescence, sélectionner "Projets et solutions/Général",
- Activer l'option "Afficher les configurations de génération avancées"
Cdlt Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 27 mai 2013 à 11:39
Bonjour,
Pour les possesseurs de Windows 7 et 8 voir cette source:
23 mars 2018 à 11:53
Modifié le 23 mars 2018 à 11:16
Voilà
@+
23 mars 2018 à 11:08
Modifié le 22 mars 2018 à 13:48
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
22 mars 2018 à 13:02
'pour colonne numériques mettre " INTEGER," à la place de " VARCHAR(100),"
POUR UNE COLONNE DE TYPE "OBJET OLE" QUE METTRE A LA PLACE DE "VARCHAR(100).
Merci d'avance.
22 déc. 2015 à 15:33
Pour ceux qui ont Windows 7, 8, 10 en 64 bits et qui n'arrivent pas à faire fonctionner la source:
selon la version de visual basic que vous utilisez:
soit:
- Menu Générer / Gestionnaire de configurations...
- Dans la liste déroulante "Plateforme de la solution active", choisir: "Nouveau"
- Dans la liste déroulante "Tapez ou sélectionnez la nouvelle plateforme", choisir : "x86" puis cliquer sur "OK"
- Vérifier ensuite que la plateforme "x86" soit sélectionnée dans la liste des projets.
soit:
- Outils / Options cliquer sur "Affichez tous les paramètres" en bas à gauche,
- Dans l'arbrescence, sélectionner "Projets et solutions/Général",
- Activer l'option "Afficher les configurations de génération avancées"
Cdlt Le Pivert
27 mai 2013 à 11:39
Pour les possesseurs de Windows 7 et 8 voir cette source:
http://www.vbfrance.com/codes/CREER-CONNECTER-BASE-ACCESS-SOUS-WINDOWS_55175.aspx
Bonne programmation