Message

Bonjour !

Pour mes besoins j'ai créer une boîte de message presque pareil que celle habituelle. Deux différences ; la bordure n'est pas pareil et on peut mettre d'autre objet dedans.

Si vous voulez écrire un autre texte que "Écrivez ce que vous voulez" vous pouvez l'écrire la boîte se redimensionnera automatiquement.

Pour les besoins j'ai mis ;

Code:

dim a$
a$=chr$(10)+chr$(13)

Code:

dim a$,i,j:label quit
a$=chr$(10)+chr$(13)
caption 0,"Message...":border_small 0

alpha 1
top 1,10
left 1,10
caption 1,"Écrivez ce que vous voulez !"
i=width(1):j=height(1)

width 0,i+28
height 0,j+70

button 2
height 2,21
left 2,i-90
width 2,60
top 2,j+18
caption 2,"OK"
set_focus 2
on_click 2,quit
end
quit:
terminate