C' est ici, et nul part ailleurs. « Et pis c'est tout ! »![](images/avatars/avatar-107.png) | Bonjour a Tous.
Je fais un bref retour sur ceci http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=55 La commande Modifier une ligne Boguait, si aucune ligne n'était sélectionnée. Ajout d'un Bouton Insérer une ligne, avec son code. A noter aussi, qu'il serait possible de Supprimer une ligne ou d'Interchanger 2 lignes de la même manière, par l'Indexation.
A+. Reivillo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
| ' Gambas class file ' [url=http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=55]http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=55[/url] PUBLIC cunt AS INTEGER '<------------Nombre d'Item PUBLIC indx AS INTEGER = -1 '<-------Aucun Item sélectionné PUBLIC SUB _new()
END
PUBLIC SUB Form_Open() END
PUBLIC SUB Button1_Click() '<----------------Ajouter une ligne ListBox1.Add(TextBox1.text) TextBox1.text = "" END
PUBLIC SUB ListBox1_Click() '<---------------Sélection d'Item indx = ListBox1.Index 'TextBox1.text = ListBox1[indx].Text END
PUBLIC SUB Button2_Click() '<----------------Modifier une ligne IF indx <> -1 THEN '<----------------------Evite un BOG si aucun '------------------------------------------Item sélectionné ListBox1[indx].Text = TextBox1.Text ENDIF END
PUBLIC SUB Button3_Click() '<----------------Supprimer une ligne ListBox1.Remove(ListBox1.Index) indx = -1 END
PUBLIC SUB Button4_Click() '<----------------Supprimer toutes les lignes ListBox1.clear indx = -1 END
PUBLIC SUB Button5_Click() '<----------------Insérer une ligne IF indx <> -1 THEN ListBox1.Add("") '<----------------------On ajoute une ligne vide à la fin cunt = ListBox1.Count - 1 '<-------------Réinitialise le nombre d'Item WHILE cunt > indx ListBox1[cunt].Text = ListBox1[cunt - 1].Text '<----Décalage des Items 'Vers le bas DEC cunt WEND ListBox1[cunt].Text = TextBox1.Text '<---Insertion du nouvel Item ENDIF END
PUBLIC SUB TextBox1_MouseUp()
TextBox1.text = ListBox1[indx].Text
END
|
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015) LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous... sudo add-apt-repository ppa:gambas-team/gambas3sudo apt-get updatesudo apt-get install gambas3 -yGambas3.8.4-57.47 ( Mise à Jour Auto via mintupdate le 28-01-2016) Pour la Doc, c'est vers là: Documentation Gambas3 FR |