Quelques SUBs, en vrac

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 17:01

Salut Ygeronimi,

Citation :: J'ai dans l'idée qu'il serait bien que chaque objet puisse afficher son numéro par défaut dès son affichage.
L'affichage pouvant être initialisé par la suite, cela faciliterai le job pour retrouver le numéro de chacun des
objets par prévisualisation de l'interface.

Oui, ou alors tu transformes le N° dobjet en une variable% explicite comme ci-dessous

Code:: Dim No%:no%=10
dim Grid_machin%:Cre_Objets("grid",1,50,20,400,150,0,"CONTAINER_OPTION"):Grid_machin%=no%

caption 0,Grid_machin%
END

SUB Cre_Objets(obj$,V%,T%,L%,W%,H%,P%,C$)
DIM_LOCAL indx%
' Numérotation
No%=No%+1
' Création de l'objet
IF VARIABLE("T_obj$") = 0
DIM T_obj$
T_obj$="01SCENE3D;02BUTTON;03EDIT;04MEMO;05COMBO;06ALPHA;07FORM;08LIST;09PICTURE;"
T_obj$=T_obj$+"10CHECK;11OPTION;12MAIN_MENU;13SUB_MENU;14SOUND;15MOVIE;16TRACK_BAR;"
T_obj$=T_obj$+"17OPEN_DIALOG;18SAVE_DIALOG;19SCROLL_BAR;20PROGRESS_BAR;21SPIN;"
T_obj$=T_obj$+"22GRID;23CONTAINER;24;25;26DLIST;27SCENE2D;28TIMER;29;30;31;"
T_obj$=T_obj$+"32CONTAINER_OPTION;33;34;35;36;37;38;39;40;41IMAGE;"
END_IF
indx% = INSTR(T_obj$,UPPER$(obj$)+";"): indx% = VAL(MID$(T_obj$,indx%-2,2))
if indx%<>7 and NO%=0 then NO%=NO%+1
SELECT indx%
CASE 1: SCENE3D No%
CASE 2: BUTTON No% :Caption No%,C$
CASE 3: EDIT No%
CASE 4: MEMO No%
CASE 5: COMBO No%
CASE 6: ALPHA No% :Caption No%,C$
CASE 7: IF No%>0 THEN FORM No% :Caption No%,C$
CASE 8: LIST No%
CASE 9: PICTURE No%
CASE 10: CHECK No%
CASE 11: OPTION No% :Caption No%,C$
CASE 12: MAIN_MENU No%
CASE 13: SUB_MENU No% :Caption No%,C$
CASE 14: SOUND No%
CASE 15: MOVIE No%
CASE 16: TRACK_BAR No%
CASE 17: OPEN_DIALOG No%
CASE 18: SAVE_DIALOG No%
CASE 19: SCROLL_BAR No%
CASE 20: PROGRESS_BAR No%
CASE 21: SPIN No%
CASE 22: GRID No%
CASE 23: CONTAINER No% :Caption No%,C$
CASE 26: DLIST No%
CASE 27: SCENE2D No%
CASE 28: TIMER No%
CASE 32: CONTAINER_OPTION No% :Caption No%,C$
CASE 41: IMAGE No%
END_SELECT
' Visibilité
If V% = 0 Then hide NO%
' Dimensions
If H% > 0 Then Height NO%,H%
If W% > 0 Then Width NO%,W%
' Placement
If NO% = 1
If T% > 0 : Top NO%,T% : Else : Top NO%,(Screen_y-H%)/2 : End_If
If L% > 0 : Left NO%,L%: Else : Left NO%,(Screen_x-W%)/2: End_If
Else
If T% > 0 then Top NO%,T%
If L% > 0 then Left NO%,L%
End_If
' filiation
If P% > 0 then Parent NO%,P%
END_SUB

En tout cas je prends car çà simplifie la création d'objet.

A+

Sujet: re Dim 20 Jan 2013 - 17:37

@ Jean Claude,

Cela va bien si tu définis les attributs au fur et à mesure que tu crées les objets
mais une fois qu'ils le sont tous et que tu veux changer un attribut ou te servir d' un objet
pour récupérer ou afficher une valeur.... scratch

"heu...c'est quoi le numéro de celui là déjà....450 ou 700 scratch

"

Edit : j'ai fait une correction, tu as pris le code d' avant celle ci

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 18:25

Pas mal la dernière mouture ygeronimi.
Mais comme je disais, il me semble que pour moi je sortirais de la sub la définition du numéro de l'objet. Comme tu disais, si on veut intervenir après coup dans le code, ou bien utiliser les objets en cours de codage, il faut bien connaître le numéro des objets concernés: IF CHECKED(n1), TEXT$(n2) ...
Il faut récupérer No% en sortie de sub, ce qui revient au même.

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 20:46

Je ne vois pas le problème avec les N° d'objet sous forme Variable%

Moi, je ne code que comme cela. Supposons que nous ayons besoin d'un EDIT pour saisir un nom dans un carnet d'adresse. Je "l'appelle" (en réalité je le numérote) sous la forme Edit_Nom%, ainsi je mémorise l'objet et sa fonction sans avoir besoin de connaitre son véritable numéro. Dans le cas ou cet EDIT doit être utilisé plusieurs fois je le "nomme" Edit_01%.

La solution de JL35 de sortir le numéro (NO%) oui, mais çà change pas le problème il faut mémoriser que tel numéro correspond à l'edit situé en haut à gauche.....

A+

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 21:05

Tu as raison Jean Claude, c'est bien plus parlant avec un nom de variable, mais ça risque d'en faire beaucoup.
C'est vrai qu'on n'est pas obligé de leur donner un nom à tous, seulement les plus utilisés.

Sujet: re Dim 20 Jan 2013 - 22:26

Je pense que pour la numérotation des objets le mieux
est de passer le numéro en paramètre.

finalement cela reste un repaire dans le code,
on retrouve le numéro lors de l'appel à la sub.

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 22:44

JL35 a écrit:: J'efface, j'avais pas vu la liste... mais c'est un peu nébuleux (pour moi), c'est vrai qu'avec la neige qui tombe sans arrêt... papydall, ça va ? fait pas trop froid en Tunisie ?

En Tunisie le temps est plus clément.
Dans la région où j’habite (la côte est de la Tunisie), on ne voie qu’exceptionnellement la neige.
Actuellement on a des simples crachins avec une température de 10 degrés. Quelques SUBs, en vrac - Page 3 Sun2

Bon, voila un rayon de soleil Quelques SUBs, en vrac - Page 3 0003

Sujet: Re: Quelques SUBs, en vrac Dim 20 Jan 2013 - 22:54

ygeronimi a écrit:: le plus triste de cette sub ,
c'est que je ne me souviens pas de 25 panoramiciens régulier sur le forum

Pourquoi tu t’es exclu de la liste ?
Compte moi double et quintuple toi : ça fera le compte !

Sujet: Re: Quelques SUBs, en vrac Lun 21 Jan 2013 - 10:18

Bonjour à tous Very Happy

En ce moment, je n'ai pas trop le temps de surveiller Panoramic car je suis empêtré dans des problèmes familiaux et judiciaires qui n'en finissent pas, mais je veux quand même apporter mon petit caillou à l'édifice.
Ce matin j'ai vite fait une petite sub qui doit pouvoir compter les mots d'une phrase ou d'un texte.

Code:: ' Pour compter le nombre de mots dans une phrase ou un texte
dim txt$
txt$="Il était une fois, une marchande de foie, qui vivait dans la ville de Foix, qui se dit un jour, ma fois, j'irais bien vendre du foie ailleurs que dans la ville de Foix."
' 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
nombredemots(txt$)
end

sub nombredemots(txt$)
dim_local i,c
txt$=trim$(txt$)
for i=2 to len(txt$)
if mid$(txt$,i,1)=chr$(32) and mid$(txt$,i-1,1)<>chr$(32) then c=c+1
next i
c=c+1:message "nombre de mots: "+str$(c)
end_sub

A+

Sujet: re Lun 21 Jan 2013 - 19:35

Je viens de rajouter une sub à mon arc.... Laughing

Celle ci est pour les attributs des objets à texte :

Code:: Objets("Button",1,1,50,20,200,150,0,"button")
Objets("Alpha",2,1,10,10,0,0,0,"alpha de police arial blanc sur bleu gras italique souligné")
Text_Objets_Attribut(2,"Arial",10,1,1,1,"255,255,255","0,0,255")
END

SUB Objets(obj$,No%,V%,T%,L%,W%,H%,P%,C$)
DIM_LOCAL indx%
' Création de l'objet
IF VARIABLE("T_obj$") = 0
DIM T_obj$
T_obj$="01SCENE3D;02BUTTON;03EDIT;04MEMO;05COMBO;06ALPHA;07FORM;08LIST;09PICTURE;"
T_obj$=T_obj$+"10CHECK;11OPTION;12MAIN_MENU;13SUB_MENU;14SOUND;15MOVIE;16TRACK_BAR;"
T_obj$=T_obj$+"17OPEN_DIALOG;18SAVE_DIALOG;19SCROLL_BAR;20PROGRESS_BAR;21SPIN;"
T_obj$=T_obj$+"22GRID;23CONTAINER;24;25;26DLIST;27SCENE2D;28TIMER;29;30;31;"
T_obj$=T_obj$+"32CONTAINER_OPTION;33;34;35;36;37;38;39;40;41IMAGE;"
END_IF
indx% = INSTR(T_obj$,UPPER$(obj$)+";"): indx% = VAL(MID$(T_obj$,indx%-2,2))
if indx%<>7 and NO%=0 then NO%=NO%+1
SELECT indx%
CASE 1: SCENE3D No%
CASE 2: BUTTON No% :Caption No%,C$
CASE 3: EDIT No%
CASE 4: MEMO No%
CASE 5: COMBO No%
CASE 6: ALPHA No% :Caption No%,C$
CASE 7: IF No%>0 THEN FORM No% :Caption No%,C$
CASE 8: LIST No%
CASE 9: PICTURE No%
CASE 10: CHECK No% :Caption No%,C$
CASE 11: OPTION No% :Caption No%,C$
CASE 12: MAIN_MENU No%
CASE 13: SUB_MENU No% :Caption No%,C$
CASE 14: SOUND No%
CASE 15: MOVIE No%
CASE 16: TRACK_BAR No%
CASE 17: OPEN_DIALOG No%
CASE 18: SAVE_DIALOG No%
CASE 19: SCROLL_BAR No%
CASE 20: PROGRESS_BAR No%
CASE 21: SPIN No%
CASE 22: GRID No%
CASE 23: CONTAINER No% :Caption No%,C$
CASE 26: DLIST No%
CASE 27: SCENE2D No%
CASE 28: TIMER No%
CASE 32: CONTAINER_OPTION No% :Caption No%,C$
CASE 41: IMAGE No%
END_SELECT
' Visibilité
If V% = 0 Then hide NO%
' Dimensions
If H% > 0 Then Height NO%,H%
If W% > 0 Then Width NO%,W%
' Placement
If indx% = 7
If T% > 0 : Top NO%,T% : Else : Top NO%,(Screen_y-H%)/2 : End_If
If L% > 0 : Left NO%,L%: Else : Left NO%,(Screen_x-W%)/2: End_If
Else
If T% > 0 then Top NO%,T%
If L% > 0 then Left NO%,L%
End_If
' filiation
If P% > 0 then Parent NO%,P%
END_SUB

Sub Text_Objets_Attribut(No%,F$,FS%,B%,I%,U%,CF$,CO$)
Dim_Local RF%,GF%,BF%,RO%,GO%,BO%,Sep%,ch$
' définition de la police
If F$ <>"" then Font_name No%,F$
' définition de la taille de la police
if FS% > 0 then Font_Size No%,FS%
' définition de la couleur de fond de l'objet
if CO$ <> ""
sep%=instr(CO$,",")
RO%=Val(left$(CO$,sep%-1))
ch$=right$(CO$,len(CO$)-sep%)
sep%=instr(ch$,",")
GO%=val(left$(ch$,sep%-1))
BO%=val(right$(ch$,len(ch$)-sep%))
Color No%,RO%,GO%,BO%
end_if
' définition de la couleur du texte de l'objet
if CF$ <> ""
sep%=instr(CF$,",")
RF%=Val(left$(CF$,sep%-1))
ch$=right$(CF$,len(CF$)-sep%)
sep%=instr(ch$,",")
GF%=val(left$(ch$,sep%-1))
BF%=val(right$(ch$,len(ch$)-sep%))
Font_Color No%,RF%,GF%,BF%
end_if
' gras ou pas (1/0)
If B%=1 then Font_Bold No%
' italique ou pas (1/0)
if I%=1 then Font_Italic No%
' souligné ou pas (1/0)
if U%=1 then Font_Underline No%
End_sub

si elle vous plait, j'y ajouterai l'alignement de Klaus....
Qu'en pensez vous ?

Sujet: Re: Quelques SUBs, en vrac Lun 21 Jan 2013 - 19:56

Très bien

Sujet: Re: Quelques SUBs, en vrac Lun 21 Jan 2013 - 20:11

Ygeronimi (dans son code) a écrit:: si elle vous plait, j'y ajouterai l'alignement de Klaus....
Qu'en pensez vous ?

Moi je dis oui,

Tel quel ta Sub me plait. Et j'ai hate de voir ce que tu peux en faire.

Je constate que ton retour est prolifique... Very Happy

A+

Sujet: Re: Quelques SUBs, en vrac Lun 21 Jan 2013 - 20:56

Quand les idées sont là et que l'on peut les réaliser, forcément, on se sent mieux Wink

Sujet: re Lun 21 Jan 2013 - 20:56

Tout de suite j'ai un souci avec les paramètres T$ et WC% de Klaus
il me semble que sa sub intervient sur l'objet après un évènement "on_change"

T$ est apparemment le texte récupéré de l'objet donc on ne peut pas définir l'alignement par défaut ( avant qu'il contienne du texte )
on récupère après l'ajout de chaque lettre et on recalcule pour repositionner le texte dans l'objet.... scratch

Invité

Bonsoir,
En voyant une vielle demande concernant le clic sur un memo pour sélectionner une ligne, je me suis dis qu'on l'avait fait avec Panoramic et JL35 pour un traitement rtf.

Donc cela consiste ici à simuler un list avec un memo. Cela présente l'avantage de cliquer et choisir une ligne, et de modifier un item, comme d'en rajouter un autre au memo.

Code:: ' teste de saisie d'une ligne d'un memo'
left 0,100
label selection
dim a$,i$ ,a% ,retour$
i$=chr$(4)

memo 1:left 1,50:top 1,50:width 1,200:height 1,200:font_size 1,10 :bar_both 1:' barre indispensable pour éviter les retour-chariot'
data "pomme de terre",carotte,poireau,choux,persil,salade,tomatte,poivron,citrouille,potiron,lentille,navet,topinanbour,$
repeat
   read a$:if a$ <> "$" then item_add 1,a$
until a$ = "$" or scancode = 27
on_click 1,selection :cursor_arrow 1
alpha 2:left 2,20:font_size 2,12:font_bold 2
end
' ----------------'
selection:
clic_memo(1) :' N° du memo
caption 2,retour$
return
sub clic_memo(n%)
dim_local a$,b$,a%,l%,b%,j%
clipboard_string_copy i$ : clipboard_paste n% :' insert un caractère à l'emplacement du curseur
' celui-ci est recherché dans le memo, pour retrouver la ligne.
if count(n%)>0
   l%=0
   for a%=1 to count(1)
      a$=item_read$(n%,a%)
      b% = instr(a$,i$)
      if b% > 0
         if b% > 1 then a$=left$(a$,b%-1)+mid$(a$,b%+1,len(a$)):else:a$=mid$(a$,2,len(a$)
         item_delete n%,a%:item_insert n%,a%,a$
         if l%=0 then l%=1
         SELECT_TEXT n%,l%,len(a$)+1
         retour$ = a$
      else
         l%=l%+len(a$)+2
      end_if
   next a%
end_if
end_sub

EDIT
J'ai vu que j'ai fait une faute d'orthographe à tomate. Plutôt que de modifier le source, il vous apartiendra de le faire en direct avec les flèches (pour retirer la sélection), et de modifier.

Sujet: Re: Quelques SUBs, en vrac Mar 22 Jan 2013 - 0:10

Salut Cosmos70

Belle astuce, ça peut me servir. Merci.

Mais comment se fait-il que ce bout de code s’exécute sans broncher ?!
Est-ce permis que les chaines de caractères dans une ligne DATA ne soient pas entourées des guillemets ?
Si oui, pourquoi alors ça ne marche pas si on enlève les guillemets de la 1ère donnée ?

Code:: dim a$
repeat
read a$ : if a$ <> "$" then print a$
until a$ = "$"
data "pomme de terre",carotte,poireau,choux,persil,salade,tomate,poivron,citrouille,potiron,lentille,navet,topinanbour,$

REMARQUE :
Dans le memo de ton code, j’ai cliqué intentionnellement sur la dernière ligne vide et j’ai eu le message d’erreur suivant :
(52)Not correct string expression. Line 30

Invité

Bonsoir,
Je ne peux pas te répondre. Je sais depuis très longtemps qu'un data avec des espaces doit-être entouré de guillemets. Je ne sais plus si c'est propre à Panoramic.
Je crois que ça toujours été un problème, et il me semble que input, qui est le pendant de read, mais en direct fonctionne mal aussi avec des espaces. J'ai enterré le sujet depuis très longtemps pour avancer, et aller à autre chose.
Sleep

Sujet: Re: Quelques SUBs, en vrac Mar 22 Jan 2013 - 3:15

Merci pour la réponse.

Sujet: re Sam 26 Jan 2013 - 12:40

J' ai une interrogation concernant la sub pour les objets.

Est il mieux la sub tel que, où une sub peut déclarer
plusieurs objets et on travail les paramètres distincts après,
ou plusieurs sub, une pour chaque objet
avec tout les paramètres de l'objet ?

la sub serait :

Code:: O_Alpha(No%,Visible%,Top%,Left%,Height%,Width%,F_Name$,F_Size%,F_Color$,...)

Je viens de revoir la sub pour les objets et de la découper :

Code:: ' Objet FORM____________________________________________________________________
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
if No%> 0 then FORM No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
if C$<>"" then Caption No%,C$
End_Sub
' Objet ALPHA___________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
ALPHA No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet EDIT____________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%)
EDIT No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet BUTTON__________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$)
BUTTON No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet GRID____________________________________________________________________
Sub O_Grid(No%)
GRID No%
End_Sub
' Objet CONTAINER_______________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
CONTAINER No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet SCENE3D_________________________________________________________________
Sub O_Scene3D(No%,P%,V%,T%,L%,H%,W%)
SCENE3D No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%

End_Sub
' Objet MEMO____________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%)
MEMO No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet COMBO___________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%)
COMBO No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet LIST____________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$)
LIST No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if F$<>""
if file_exists F$ then file_load No%,F$
end_if
End_Sub
' Objet PICTURE_________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
PICTURE No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if P$<>"" then File_load No%,P$
End_Sub
' Objet CHECK___________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
CHECK No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet OPTION__________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
OPTION No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet MAIN_MENU_______________________________________________________________
Sub O_Main_Menu(No%,P%,C$,Cl%)
MAIN_MENU No%
if P% > 0 then Parent No%,P%
if C$<>"" then Caption No%,C$
If Cl%=1 then on_click No%,Clic
End_Sub
' Objet SUB_MENU________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%)
SUB_MENU No%
if P% > 0 then Parent No%,P%
if C$<>"" then Caption No%,C$
If Cl%=1 then on_click No%,Clic
End_Sub
' Objet SOUND___________________________________________________________________
Sub O_Sound(No%,P%,S$)
SOUND No%
If P%>0 then Parent No%,P%
If S$<>"" then file_load No%,S$
End_Sub
' Objet MOVIE___________________________________________________________________
Sub O_Movie(No%,P%,V%,T%,L%,H%,W%,M$)
MOVIE No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if M$<>"" then file_load No%,M$
End_Sub
' Objet TRACK_BAR_______________________________________________________________
Sub O_Track_Bar(No%,P%,V%,T%,L%,H%,W%)
TRACK_BAR No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet OPEN_DIALOG_____________________________________________________________
Sub O_Open_Dialiog(Out%,Filtre$,O%)
dim_local No%,F$
No%=Number_objects+1
OPEN_DIALOG No%
if filtre$<>"" then Filter No%,Filtre$
F$=File_name$(No%)
if O%=1 then text out%,F$
if O%=2 then Caption Out%,F$
if O%=3 then item_add Out%,F$
if O%=4 then file_load Out%,F$
Delete No%
End_Sub
' Objet SAVE_DIALOG_____________________________________________________________
' Sub O_Save_Dialog(Filtre$)
' dim_local No%,F$
' No%=Number_objects+1
' SAVE_DIALOG No%
' if filtre$<>"" then Filter No%,Filtre$
' F$=file_name$(No%)
' End_Sub
' Objet SCROLL_BAR______________________________________________________________
Sub O_Scroll_Bar(No%,P%,V%,T%,L%,H%,W%)
SCROLL_BAR No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet PROGRESS_BAR____________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
PROGRESS_BAR No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet SPIN____________________________________________________________________
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%)
SPIN No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet DLIST___________________________________________________________________
Sub O_Dlist(No%,F$)
DLIST No%
if F$<>""
if file_exists F$ then file_load No%,F$
end_if
End_Sub
' Objet SCENE2D_________________________________________________________________
Sub O_Scene2D(No%,P%,V%,T%,L%,H%,W%)
SCENE2D No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' Objet TIMER___________________________________________________________________
Sub O_Timer(No%,OO%,Inter%,OT%,T$)
TIMER No%
if OO%=1 then timer_on No%
if OO%=0 then timer_off No%
if inter%>0 then timer_interval No%,inter%
if OT%=1
if T$<>""
On_timer No%,T$
end_if
end_if
End_Sub
' Objet CONTAINER_OPTION________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
CONTAINER_OPTION No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' Objet IMAGE___________________________________________________________________
Sub O_Image(No%,I$)
if I$<>"" then file_load No%,I$
End_Sub

il me reste O_Save_Dialog à faire

Bin, bein, bain ... ça peut servir !
Merci.

» Des SUBs en VBS
» Un petit calendrier avec quelques Subs
» Nouvelles fonctions... en vrac
» Ajout de ON_MOUSE_OVER et autres idées en vrac
» deux petites subs