Pour les débutants ;) Afficher un panneau avec deux....

' =========== DECLARATION DES LABELS ROUTINES ==========
label fermer1
label fermer2
label presente1
label presente2

' ============== DECLARATION DES VARIABLES =============
dim panneau
dim contenu1,contenu2
dim ferme1,ferme2
dim fond1,fond2

' ============ INITIALISATION DES VARIABLES ============

' ================ CREATION DES OBJETS =================
form 1
button 2
button 3
container 4:full_space 4
container 5:full_space 5
' Objets exemples pour le panneau 1
memo 6
edit 7
picture 10
' Objets exemples pour le panneau 2
memo 8
edit 9
picture 11
' On assigne des noms aux numéros des objets (plus facile à lire)
panneau=1
contenu1=4
contenu2=5
ferme1=2
ferme2=3
fond1=10
fond2=11
' Parentés des objets pour la présentation 1
parent contenu1,panneau
parent ferme1,contenu1
parent 6,contenu1
parent 7,contenu1
parent fond1,contenu1
' Parentés des objets pour la présentation 2
parent contenu2,panneau
parent ferme2,contenu2
parent 8,contenu2
parent 9,contenu2
parent fond2,contenu2

' ============= INITIALISATION DES OBJETS ==============

' Apparence du panneau
border_hide panneau
left panneau,100
top panneau,20
width panneau,400
height panneau,200
color panneau,120,100,50
' Apparence de la présentation 1
left 6,10:top 6,20
left 7,230:top 7,20
full_space fond1
color fond1,255,255,0
width ferme1,100
caption ferme1,"Fermer panneau 1"
item_add 6,"c'est le mémo du panneau 1"
text 7,"panneau 1"
' Bouton pour fermer la présentation 1
on_click 2,fermer1
left 2,160
top 2,160

' Apparence de la présentation 2
left 8,10:top 8,20
left 9,230:top 9,20
full_space fond2
color fond2,0,255,255
width ferme2,100
caption ferme2,"Fermer panneau 2"
item_add 8,"c'est le mémo du panneau 2"
text 9,"panneau 2"

' Bouton pour fermer la présentation 2
on_click 3,fermer2
left 3,160
top 3,160

' On cache le panneau et le deuxième contenu
hide panneau
hide contenu2

' présentation 1 : Appelez le premier gosub
' présentation 2 : Appelez le deuxieme gosub
' chacun s'appelle à partir d'un endroit du programme
gosub presente1

end

' ========== LES ROUTINES =======

' Ferme le panneau
fermer1:
hide panneau
gosub presente2
return

' Ferme le panneau
fermer2:
hide panneau
terminate
return

' Première présentation :
presente1:
show panneau
show contenu1:hide contenu2
return

' deuxième présentation :
presente2:
show panneau
hide contenu1:show contenu2
return