Questions de base sur MshflexgridRésolu

Question

Bonjour,

J'aimerais savoir si il est possible de remplire un Mshflexgrid sans le lier a une base de donn&#233;es, juste remplir case par case avec des lignes de codes (comme avec les listes o&#249; on ajoute telle ou telle chaine dans telle ou telle collone)? et si oui pouriez-vous m&#233;clairer un peu? merci beaucoups !!

cs_hassen · Accepted Answer

Mshflexgrid.TextMatrix(Ligne,Colonne)=Valeur

Hassen TUNISIE

Zlub · Answer

Salut,



Bon je vais supposer que tu as une MSFlexGrid nomm&#233;e flex :


    With flex

       .Rows = 1 ' nombre de lignes totales

       .Cols = 2 ' nombre de colonnes





        ' exemple de remplissage d'en-t&#234;te de colone (1 rowfixed et 0 colfixed)

       .Row = 0

       For i = 0 To .Cols - 1

         .Col = i

         Select Case i

                Case 0:

                   
.Text = "Colone 1"

                Case 1:

                   
.Text = "Colone 2"

                

         End Select

         .CellAlignment = flexAlignCenterCenter

         .ColAlignment(i) = flexAlignLeftCenter

     Next i



        ' exemple d'ajout

        .AddItem "aa1" & vbTab & "aa2"

        .AddItem "bb2" & vbTab & "bb2"



        ' exemple de modification

        .Col = 1

        .row = 2

       .Text = "Modification

   End With



J'esperes que &#231;a te vas ...

++

Zlub

comtention · Answer

Merci beaucoups a vous deux ! C'est juste se qui me falait et zlub a m&#234;me repondu a des questions que je me posais.

Zlub · Answer

Salut,

Petit ajout :



Tu ne peux acc&#233;der &#224; une cellule si tu ne l'as pas ajout&#233; avec un AddItem ... 

Par contre, tu peux interroger la valeur d'une cellule, soit en
positionnant expl&#233;citement le curseur en d&#233;finisant la ligne et la
colone &#224; utiliser :



    With flex

         .Col = 1
         .Row = 2
        .Text = "ton texte"
    End With



ou alors en interrogeant directement le contenu de cette cellule avec TextMatrix

  

flex.TextMatrix(2, 1) = "ll"



Debug.Print flex.TextMatrix(1, 1)


++

Zlub

comtention · Answer

Oui jalais demander sa aussi, merci pour le temps que tu m'as accord&#233; &#224; moi et &#224; ceux qui d&#233;bute avec cette &#233;l&#233;ment.

Questions de base sur Mshflexgrid

5 réponses

Discussions similaires