C' est ici, et nul part ailleurs. « Et pis c'est tout ! » | 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 |
