Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
LISTBOX - Manipuler le donnees
listbox.jpg
Ajourd'hui nous allons nous interesser à la Listbox qui nous permet de dresser une liste de plusieurs textes les uns au dessous des autres.

Nous allons créer une application qui va nous permettre de manipuler cette listbox en ajoutant, modifiant, supprimant une ligne ou toutes les lignes .
créons un projet gambas et dans le Form Fmain, créons 4 boutons, une listbox et une textbox.
Voici ce que cela donne :


screenshot.jpg

Ajouter une occurence à la listbox
pour ajouter rien de plus simple, l'utilisateur saisira un texte dans la textbox1 puis cliquera sur le bouton 1 soit Ajouter une ligne.Une fois la ligne ajoutée, il faudra vider la textbox pour la prochaine saisie.

Intéressons nous au code du bouton1 :

PUBLIC SUB Button1_Click()

ListBox1.Add(TextBox1.text)
TextBox1.text = ""

END
Modifier une occurence de la liste
pour modifier il suffit de cliquer sur un texte de la liste puis cliquer sur le bouton modifier donc deux fonctions pour ce code :

PUBLIC SUB ListBox1_Click()

TextBox1.text = ListBox1.Text copier le texte selectionné de la liste dans la textbox
END

PUBLIC SUB Button2_Click()
ListBox1.Text = TextBox1.Text


END

Supprimer une occurence de la liste

cliquer sur la liste puis supprimer une ligne :
Le fonctionnement est celui ci :
lors du clic sur la liste, il faut recuperer le numero de la ligne cliquée appelée INDEX.
C'est donc par un listbox1.index que nous avons la ligne, puis il nous suffit d'utiliser la fonction REMOVE. Voici donc le code :

PUBLIC SUB Button3_Click()

ListBox1.Remove(ListBox1.index)

END

Supprimer toute la liste
il suffit de cliquer sur le dernier bouton "Supprimer toute la liste "
Le code sera tres simple il suffira de faire un CLEAR (effacer en francais) de la listbox.
Voici le code du bouton :
PUBLIC SUB Button4_Click()

ListBox1.clear

END


Enfin pour terminer voici le code source de ce petit exemple.
TELECHARGER ICI
voila ! Bonne continuation à tous.


Date de création : 21/03/2009 @ 17:08
Dernière modification : 13/05/2009 @ 14:11
Catégorie : LISTBOX
Page lue 6506 fois

Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°3 

 par axlrose112 le 17/12/2009 @ 17:53

pour la modifictation il tefaut comme ça parceque listbox is readonly

PUBLIC SUB Button3_Click()
DIM j AS Integer = ListBox1.index
IF TextBox2.Text = "" THEN
message.Info("Your list is empty")
ELSE

ListBox1.Remove(j)
ListBox1.Add(TextBox2.Text, j)
END IF
TextBox2.Text = ListBox1.text
END

PUBLIC SUB ListBox1_Click()

  TextBox2.Text = ListBox1.text
 

END

Réaction n°2 

 par Gamuti le 30/04/2009 @ 13:54

Comment fais-tu pour supprimer, par exemple, la sixième occurence d'une ListBox SANS sélectionner à la souris l'élément en question ?

Réaction n°1 

 par munu56 le 06/04/2009 @ 22:16

Bravo spheris5 pour ces petits tutos TRES BIEN FAIT....   



ACCES RAPIDE

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^