Discussion :

[pfo69]

Bonjour,

Est il possible d'ajouter une case à cocher dans une zone de défilement ou dans une liste box ?

J'aimerais afficher une liste et donner à l'utilisateur la possibilité de choisir des lignes de la liste via une case à coché (coché select)

La liste est variable donc le nombre de cases à cocher l'est aussi.

On ne peut pas créer dynamiquement un objet dans un formulaire ?

Par exemple, une liste d'utilisateurs (nombre variable) par exemple est affiché et on doit pouvoir cocher une case devant chaque élément de cette liste qui permettra d'afficher une listebox avec n colonnes (autant de colonnes que de cases a coché selectionnées)

En fait, un peu comme dans Ical, il y a la liste des calendriers et on peut choisir d'en afficher un ou plusieurs en cochant les cases à cocher

Vous a avez une idée . Est ce possible ?

Merci

[michelS]

Le tableau doit-être de type booleen et dans l'affichage il faut choisir case à cocher.

A +

[pfo69]

Oui merci !

en fait j'avais trouvé en voyant un formulaire table de sortie par défaut afficher une case à cochée pour une zone booléen de ma table j'ai tout de suite pigé

Ok donc voila comment j'ai géré ça dans une liste box.

La listebox affiche une liste de personne, et si on clique sur un element active/desactive cet element

(apres le but c'est d'afficher une autre listbox avec un nombre de colonnes égal au nombre de élément choisi dans la premiere listbox. par exemple afiichié une agenda pour chaque utilisateur choisi, comme dans ical)


Voici le code. (pas encore la gestion de la deuxieme liste box, mais vu que pour la premiere je crée les colonnes dynamiquement ce sera pareille)

Hésitez pas à critiquer ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
$evt:=Evenement formulaire
 
Au cas ou 
	: ($evt=Sur chargement ) "On crée les colonnes et charge les datas)"
		C_ENTIER LONG(NomVarHeader;$Der;$NbEnr)
 
		TOUT SELECTIONNER([Util])
		$NbEnr:=Enregistrements dans table([Util])
 
		TABLEAU TEXTE(tUtil;$NbEnr)
		TABLEAU BOOLEEN(tBool;$NbEnr)
 
		SELECTION VERS TABLEAU([Util]Nom;tUtil)
		Boucle ($z;1;Taille tableau(tBool))
			tBool{$z}:=Faux
		Fin de boucle 
 
		$Der:=Lire nombre colonnes listbox(*;"MyListBox")+1
		INSERER COLONNE LISTBOX(*;"MyListBox";$Der;"Sel";tBool;"Head1";NomVarHeader)
		FIXER LARGEUR COLONNE LISTBOX(*;"Sel";20)
		$Der:=$Der+1
		INSERER COLONNE LISTBOX(*;"MyListBox";$Der;"ListeUtil";tUtil;"head2";NomVarHeader)
 
 
	: ($evt=Sur clic ) | ($evt=Sur double clic ) "si on clique ou double clique sur la colonne ListeUtil. On gere les selections multiples"
 
		$tab:=Objet focus
		$NumLigne:=$tab-> 
		Si (tBool{$NumLigne}=Vrai)
			tBool{$NumLigne}:=Faux
			vMyListBox{$NumLigne}:=Faux
		Sinon 
			tBool{$NumLigne}:=Vrai
			vMyListBox{$NumLigne}:=Vrai
		Fin de si 
 
	: ($evt=Sur données modifiées ) "si on clique sur la case a cochée"
		$tab:=Objet focus
		$NumLigne:=$tab-> 
		Si (tBool{$NumLigne}=Vrai)
			tBool{$NumLigne}:=Vrai
			vMyListBox{$NumLigne}:=Vrai
		Sinon 
			tBool{$NumLigne}:=Faux
			vMyListBox{$NumLigne}:=Faux
		Fin de si 
Fin de cas

Voila