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 58 59
| //By CKDev for www.developpez.net
//Création d'une interface
interface{form}
taille(275,300){form}
position(400,200){form}
affiche{form}
//affichage de l'interface sans composants
//création d'un bouton
//syntaxe: bouton("titre")-nom bouton-{nom interface}
bouton("Quitter")-quit-{form}
//dimensions et position
//syntaxe: btn_taille(hauteur,largeur)-nom du bouton-
btn_taille(22,50)-quit-
//syntaxe: btn_pos(x position,y position)-nom du bouton-
btn_pos(250,253)-quit-
//Bulle d'information du bouton
//syntaxe: btn_info("message")-nom du bouton-
btn_info("Quitter l'exemple")-quit-
//création d'un label
//syntaxe: label("titre")-nom du label- {nom de l'interface}
label("Champs d'édition de texte:")-lab1-{form}
lbl_pos(10,10)-lab1-
//création d'un champs d'édition de texte
//syntaxe: edit-nom de l'edit- {nom de l'interface}
edit-tex-{form}
edt_pos(10,25)-tex-
edt_taille(22,200)-tex-
label("Champs d'édition de texte numérique:")-lab2-{form}
lbl_pos(10,60)-lab2-
//création d'un champs d'édition numérique
//syntaxe: numedit-nom du numedit- {nom de l'interface}
numedit-ntex-{form}
numedt_pos(10,75)-ntex-
numedt_taille(22,200)-ntex-
label("Zone texte:")-lab3-{form}
lbl_pos(10,105)-lab3-
//création d'une zone texte
//syntaxe: texte-nom du texte- {nom de l'interface}
texte-txt-{form}
txt_pos(10,120)-txt-
txt_taille(100,250)-txt-
//Pause, le marqueur d'attente s'affiche automatiquement
//à la fin du fichier
...
//Procédure du bouton QUITTER
//syntaxe: nom du bouton + CLICK (en majuscule) + :
quitCLICK:
//on ferme notre interface.
ferme{form}
//Marqueur d'attente (automatique)
[...] |
Partager