avionavion
Messages postés7Date d'inscriptionsamedi 15 mars 2003StatutMembreDernière intervention11 juin 2008
-
22 mai 2006 à 18:33
avionavion
Messages postés7Date d'inscriptionsamedi 15 mars 2003StatutMembreDernière intervention11 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
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
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]
Vous n’avez pas trouvé la réponse que vous recherchez ?