Affiche les images dans VsflexGrid -VB 6.0-

Messages postés
103
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
11 août 2019
- - Dernière réponse : accent19811
Messages postés
103
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
11 août 2019
- 27 oct. 2013 à 19:45
Salut

J'ai une "base de dons" qui contient des tables;:


par exemple Table Article avec des champs :

----------
ARTICLE
----------
référence
désignation
quantité
prix vente
image article
----------------

Voir,

je vous affichez les données qui se-trouve dans ce table Article dans une "VsflexGrid " comme ça;
------------------------------------------------------------------------------------------------------------
référence----|----désignation------|----quantité----|----prix vente----|----image article----
------------------------------------------------------------------------------------------------------------
FR0001|souris hp |56|105.00|C:\PARFUMER\PHOTOPRODUIT\Souris1.JPEG
FR0002|Clavier Hp|45|120.00|C:\PARFUMER\PHOTOPRODUIT\Clavier4.JPEG
-----------------------------------------------------------------------------------------------------------

aide moi pour transformé ce chemin à une image réel, permit d'affiche les images qui se-trouvé dans Table ARTICLE




Picture1.Picture = LoadPicture("")


Picture1.Picture = LoadPicture("C:\PARFUMER\PHOTOPRODUIT\Clavier4.JPEG ")

j'ai besoin d'un condition dans requête sql. "R(4)" Pour Affiche Les Images.

Voir:

Private Sub Form_Load() 
On Error Resume Next


G.Rows = 1: NBR = 0
htT = 0: total = 0
Dim b As Database
Dim r As Recordset
Set b = OpenDatabase("\PARFUMER\ROSH.mdb")
Set r = b.OpenRecordset("select article.code_art,article.lib_art,article.qut_stk,article.prix_VT,article.image from article")
If r.RecordCount = 0 Then Exit Sub
Do
G.AddItem r(0) & vbTab & r(1) & vbTab & r(2) & vbTab & r(3) & vbTab & r(4) & vbTab & Format(CCur(r(2) * r(3)), "standard")
NBR = Val(NBR) + 1
htT = r(2) * r(3)
total = Format(CCur(total + htT), "standard")
r.MoveNext
Loop Until r.EOF



End Sub
Afficher la suite 

5 réponses

Messages postés
8713
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
27 janvier 2014
2
0
Merci
Bonjour,
VsflexGrid c'est quel type de contrôle ?
Commenter la réponse de lermite222
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
214
0
Merci
Bonjour,
Il ne s'agit pas d'un composant Microsoft.
Je ne vois dans ces conditions d'autre recours que celui de parcourir la documentation de ce produit (si tu l'as) et les "tutoriaux" le concernant (sur le Web), ou encore de poser ta question au site de support (s'il existe) de ce produit.
Commenter la réponse de ucfoutu
Messages postés
103
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
11 août 2019
0
Merci
Bonjour,

Comment je peut transformé ce chemin, qui ce trouve dans la liste, à une image réel présente dans la liste.
Commenter la réponse de accent19811
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
214
0
Merci
Comment répondre à cette dernière question ? ===>>> ainsi ===>>
- Si ce contrôle sait afficher (en une colonne) directement l'image : en utilisant ce que CE CONTROLE a prévu à cet effet (et on ignore tout de ce contrôle, si on ne l'a pas !)
- si ce contrôle ne sait afficher directement : il te faut alors afficher dans un autre contrôle (picturebox ou image) à l'aide de LoadPicture. et en te référant au chemin lu du fichier sélectionné. Là encore, cette lecture est définie par l'une des propriétés de CE contrôle (que tu devrais connaître, puisque tu l'as en ta possession).
Je rappelle qu'il s'agit là d'un contrôle non Microsoft et payant.

Commenter la réponse de ucfoutu
Messages postés
103
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
11 août 2019
0
Merci
Merci

Bonne suite

A+
Commenter la réponse de accent19811