Gambas France BETA


Pas de compte ? Incription

gb.report changer les cadre d'un reportlabel

1
AuteurMessages
Geekinstit#1 Posté le 4/3/2013 à 16:09:26
Bonjour à tous,

Je suis en train de créer une application pour la gestion d'une école et je souhaiterai créer des listes d'élèves.

J'y parviens grâce à gb.report cependant, je souhaiterai que mes reportlabel aient un cadre.
Voici mon code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PUBLIC SUB Imprimerliste($NOM AS STRING)
DIM $resultat AS Result
DIM LabelNom AS NEW ReportLabel(VboxNom)
DIM LabelPrenom AS NEW ReportLabel(VboxPrenom)
DIM LabelDate AS NEW ReportLabel(VboxDate)
$resultat = Modmain.$Con.Exec("SELECT NOMELEVE, PRENOMELEVE, DATENAISSANCE FROM eleve WHERE CLASSE = '" & $NOM & "' ORDER BY NOMELEVE")
LabelTitre.Text = "Liste de la classe de " & $NOM
FOR EACH $resultat
LabelNom = NEW ReportLabel(VboxNom)
LabelNom.Autoresize = TRUE
LabelNom.Text = $resultat!NOMELEVE
LabelPrenom = NEW ReportLabel(VboxPrenom)
LabelPrenom.Autoresize = TRUE
LabelPrenom.Text = $resultat!PRENOMELEVE
LabelDate = NEW ReportLabel(VboxDate)
LabelDate.Autoresize = TRUE
LabelDate.Text = $resultat!DATENAISSANCE
NEXT
LISTECLASSE.Preview()


J'ai vu qu'il existait une classe reportborder mais impossible de l'utiliser...

merci d'avance pour votre aide.