Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
LISTBOX - Use data
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.



Creation date : 21/03/2009 @ 17:08
Last update : 13/05/2009 @ 14:11
Category : LISTBOX
Page read 6207 times


Print the article Print the article


react.gifReactions to this article


Reaction #3 

by axlrose112 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

Reaction #2 

by Gamuti 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 ?

Reaction #1 

by munu56 06/04/2009 @ 22:16

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



QUICK MENU
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^