Discussion :

[hi-wave]

bonsoir a tous.

voila je suis sur un projet de gestion de cour et voila que je dois faire un formulaire avec un emploi du temps. mais il se trouve que les personnes a qui cet emploi du temps est destiné jugent que cela serait plus simple pour eux si l'emploi du temps en question se présentait sous la forme classique (comme au lycée : voir le dessin joint) au lieu de la grille que je leur ai proposé (avec le controle datagrid).
alors je voulait savoir s'il était possible de faire comme ils veulent avec un controle grille ou un autre ou s'il faut que je mette des dizaines de labels et les programmer un par un.
merci
voir le fichier joint pour cerner ce a quoi je veux arriver. merci de m'aider

[ProgElecT]

Salut

Avec un MSHFlexGrid (Library MSHierarchicalFlexGridLib)

Ctrl+T quand tu est dans l'éditeur VB6, cocher Microsoft Hierarchical FlexGrid Control 6.0 (SP6) (OLEDB)
MShflxgd.ocx

[hi-wave]

en ce qui concerne la manip de ce controle, pourrais je avoir d'autres details?
merci

[DarkVader]

Bonjour,
Comme pour l'essentiel de ce qui concerne VB, en utilisant déjà la MSDN.

[hi-wave]

merci pour la precision. j'avais bien MSDN sur un cd mais je l'ai perdu, mais je viens tout juste de lancer le telechargement.

[Overcrash]

Bonsoir,

Voici un petit listing des méthodes que je me suis servie :
A tester bien sur ^^ je suis plus sur de la différence entre row/col et rows/cols

Écrire dans une cellule :

Code :

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

MSHFlexGrid1.TextMatrix(0, 3) = "Index du libelle d'entrée"

Colorier une cellule :

Code :

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

MSHFlexGrid1.CellBackColor = &H8000000F

Ligne/Colonne sélectionner :

Code :

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

1
2
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0

Nombre de colonnes/lignes au total :

Code :

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

1
2
MSHFlexGrid1.Cols = 0
MSHFlexGrid1.Rows = 0

Pour ajouter ou retirer une ligne/colonne

Code :

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

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1 ' ou - 1

Récupérer le contenu courant de memoire:

Code :

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

MSHFlexGrid1.Text

Récupérer le contenu sur le tableau a un endroit précis :

Code :

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

index = MSHFlexGrid1.TextMatrix(k, 1)

Cadeau :
A mettre dans un module pour redimensionner la colonne automatiquement :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Type Size
        cx As Long
        cy As Long
End Type
 
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" _
                                              (ByVal hdc As Long, ByVal lpsz As String, _
                                              ByVal cbString As Long, lpSize As Size) As Long
 
Public Sub ResizeColumns(hdc As Long, flexgrid As MSHFlexGrid)
 
    Dim idxRow As Long, idxCol As Long, lngMax As Long
    Dim texte As String, taille As Size
 
    With flexgrid
        'Parcoure les colonnes
        For idxCol = 0 To .Cols - 1
            lngMax = 0
            'Parcoure les lignes
            For idxRow = 0 To .Rows - 1
                texte = .TextMatrix(idxRow, idxCol)
                'met la taille du texte de la cellule en pixels dans taille
                'GetTextExtentPoint32 hdc, texte, Len(texte), taille
                GetTextExtentPoint32 hdc, 35, 35, taille
                'lngMax est la longueur du texte le plus long dans cette colonne
                If taille.cx > lngMax Then lngMax = taille.cx
            Next
            'met lngMax en twips en ajoutant 10 pixels pour les marges
            If lngMax > 0 Then lngMax = (lngMax + 10) * Screen.TwipsPerPixelX
            'Applique la largeur de colonne si besoin
            If lngMax > .ColWidth(idxCol) Then .ColWidth(idxCol) = lngMax
        Next
    End With
 
End Sub

Appel de resize :

Code :

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

ResizeColumns Me.hdc, MSHFlexGrid1