MSFLEXGRID avec VB6
Fermé
beaf
Messages postés
262
Date d'inscription
mardi 17 octobre 2006
Statut
Membre
Dernière intervention
26 août 2015
-
15 sept. 2008 à 10:28
msflexgrid to bd - 5 mars 2009 à 19:31
msflexgrid to bd - 5 mars 2009 à 19:31
A voir également:
- Vb6 portable
- Nettoyer ordinateur portable lent - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Comment réinitialiser un ordinateur portable - Guide
- Écran noir pc portable - Guide
- Activer pavé tactile pc portable - Guide
4 réponses
Archi-dessin
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
16 sept. 2008 à 04:06
16 sept. 2008 à 04:06
exemple:
pour l'en tete:
Sub tete_affich()
Affiche_Donnee.Enabled = False
Affiche_Donnee.ColWidth(0) = 100
Affiche_Donnee.Clear
Affiche_Donnee.ColWidth(1) = 1500
Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 1
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Date Jour"
Affiche_Donnee.ColWidth(2) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 2
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur Départ"
Affiche_Donnee.ColWidth(3) = 1800
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 3
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur d'arrivée"
Affiche_Donnee.ColWidth(4) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 4
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Parcours (Km)"
Affiche_Donnee.ColWidth(5) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 5
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Littre / 100 Km"
Affiche_Donnee.ColWidth(6) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 6
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Observation"
End Sub
pour l'en tete:
Sub tete_affich()
Affiche_Donnee.Enabled = False
Affiche_Donnee.ColWidth(0) = 100
Affiche_Donnee.Clear
Affiche_Donnee.ColWidth(1) = 1500
Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 1
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Date Jour"
Affiche_Donnee.ColWidth(2) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 2
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur Départ"
Affiche_Donnee.ColWidth(3) = 1800
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 3
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur d'arrivée"
Affiche_Donnee.ColWidth(4) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 4
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Parcours (Km)"
Affiche_Donnee.ColWidth(5) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 5
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Littre / 100 Km"
Affiche_Donnee.ColWidth(6) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 6
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Observation"
End Sub
beaf
Messages postés
262
Date d'inscription
mardi 17 octobre 2006
Statut
Membre
Dernière intervention
26 août 2015
1
16 sept. 2008 à 09:33
16 sept. 2008 à 09:33
Merci deja pour votre reponse
mais je disais pour l'affaiché les donner ds le MSHFlexgrid
, ce que je vois l'exemple ci-dessus concerne que les entetes
merci
mais je disais pour l'affaiché les donner ds le MSHFlexgrid
, ce que je vois l'exemple ci-dessus concerne que les entetes
merci
Archi-dessin
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
16 sept. 2008 à 14:11
16 sept. 2008 à 14:11
le composant MSHFlexgrid.ocx, je ne l'ai pas dans notre vb6
jouteur
Messages postés
3
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
27 juillet 2011
16 janv. 2009 à 16:46
16 janv. 2009 à 16:46
salut, je ne sais pas si tu as eu les reponses a tes interrogations mais voici comment je fait
En supposant que le MSFLEXGRID s'appelle MSFLEXGRID1
Dim Ligne_en_Cours as Integer, Colonne_en_Cours as Integer ' Les lignes et colonnes du MSFLEXGRID1
Dim Requete As String, Mon_RecordSet As RecordSet
' d'abord il faut ouvrir la lbase de données
Set Ma_Base = OpenDatabase('Chemin Complet de la Base')
Requete = "Select * From Table;"
Set Mon_RecordSet = Ma_Base.OpenRecordset(Requete, dbOpenDynaset)
Ligne_en_Cours =0
While not Mon_RecordSet.EOF
Colonne_en_Cours = 0
MSFLEXGRID1.Row = Ligne_en_Cours
MSFLEXGRID1.Col = Colonne_en_Cours
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ1")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ2")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ3")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ4")
Colonne_en_Cours = Colonne_en_Cours + 1
ETC....
Mon_RecordSet.MoveNext
Ligne_en_Cours = Ligne_en_Cours + 1
Wend
Mon_RecordSet.Close
Voila si tu as d'autres question je peux t'aider
A+.
Laurent
En supposant que le MSFLEXGRID s'appelle MSFLEXGRID1
Dim Ligne_en_Cours as Integer, Colonne_en_Cours as Integer ' Les lignes et colonnes du MSFLEXGRID1
Dim Requete As String, Mon_RecordSet As RecordSet
' d'abord il faut ouvrir la lbase de données
Set Ma_Base = OpenDatabase('Chemin Complet de la Base')
Requete = "Select * From Table;"
Set Mon_RecordSet = Ma_Base.OpenRecordset(Requete, dbOpenDynaset)
Ligne_en_Cours =0
While not Mon_RecordSet.EOF
Colonne_en_Cours = 0
MSFLEXGRID1.Row = Ligne_en_Cours
MSFLEXGRID1.Col = Colonne_en_Cours
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ1")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ2")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ3")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ4")
Colonne_en_Cours = Colonne_en_Cours + 1
ETC....
Mon_RecordSet.MoveNext
Ligne_en_Cours = Ligne_en_Cours + 1
Wend
Mon_RecordSet.Close
Voila si tu as d'autres question je peux t'aider
A+.
Laurent