Additem msflexgrid

avionavion Messages postés 7 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 11 juin 2008 - 22 mai 2006 à 18:33
avionavion Messages postés 7 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 11 juin 2008 - 24 mai 2006 à 11:10
Comment insérer une ligne dans une MSFlexGrid.
Pour quelle soit insérer entre deux autres et non à la fin de la Grid.
Merci

avionalex[;)]

5 réponses

Profil bloqué
23 mai 2006 à 00:35
Salut
La MSFlexgrid s'appelle Grille, elle comporte 50 lignes de 0 à 49
On insère une ligne entre les lignes 20 et 21 ( la 21 devient alors la 22)

Voici le code

Grille.rows =grille.rows +1            ' une ligne en + dans la grille
for i& = grille.rows -2 to 21 step -1
    for j& = 0 to grille.cols -1            ' colonne après colonne si nécessaire
        grille.col= j&
        grille.row = i&
        chaine$ =grille.text         ' on prend les ligns colonne après colonne en commençant par le bas
        grille.row= i& +1
        table.text = chaine$        ' on descend la ligne
    next j&
next i&
' Reste à insérer la nouvelle ligne
grille.row = 21       ' la nouvelle ligne
' et on insère la nouvelle ligne avec ses colonnes si besoin

Il faut descendre les lignes d'un cran en partant du bas et insérer la nouvelle ligne
J'espère t'avoir bien répondu

GRENIER Alain[8D]
0
Profil bloqué
23 mai 2006 à 00:38
Au lieu de table.text il faut lire grille.text
excuse-moi

GRENIER Alain[8D]
0
avionavion Messages postés 7 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 11 juin 2008
23 mai 2006 à 12:25
Merci beaucoup pour ta réponse.
Mais la ligne est toujours ajouté à la fin de la grille.
 
(J'ai bien corrigé table.text par grille.text)

avionalex[;)]
0
Profil bloqué
23 mai 2006 à 18:59
excuse moi : je n'ai pas précisé un petit détail

On n'insère pas la nouvelle ligne avec Additem
On l'insère en spécifiant son numero de ligne dans Grille.row et le texte dans Grille.text

for j& = 0 to grille.cols -1            ' colonne après colonne si nécessaire de la nouvelle ligne
        grille.col= j&
        grille.row = 21 ' nouvelle ligne
        table.text = chaine$        ' on insère la nouvelle ligne
next j&

Additem rajoute toujours une nouvelle ligne à la fin de la grille pour info

Il faut décaler les lignes qui suivent celle de l'insertion en commençant par le bas et ensuite insérer la nouvelle ligne avec les propriétés row et Text de la grille

GRENIER Alain[8D]
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
avionavion Messages postés 7 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 11 juin 2008
24 mai 2006 à 11:10
Merci c'est parfait comme ça.

avionalex[;)]
0
Rejoignez-nous