I. aldweb
II. Gratuitiels PC
III. Gratuitiels Palm
IV. Partagiciels Palm
V. iziBasic Palm
VI. Connaissance Palm
VII. Ordinateur Poche
VIII. miniPortail
Tous les contenus Articles Réactions Articles Téléchargements Forum Livre d'or Liens Nouvelles [fr] et [en] [fr] seulement [en] seulement Rechercher
Météo Lyon
aldweb contre le SPAM
visiteurs
visiteurs en ligne
Je vous remercie de prendre le temps d'écrire ce message.
Votre nom (ou pseudo) :
Votre e-mail :
S'abonner à ce fil de discussion :
Vous répondez à aldweb qui a écrit :
' Listing generated by ViziBasic v2.2' 30/04/2008 @ 18:15:19{CREATORID "LDTE"}{VERSION "1.0"}{MINOSVERSION "5.0"}{PARSER ON}'{KEYEVENTS OFF}'{SECUREFILES ON}'{CONSOLEFONT ON}DIM %EVT%,%P1%,%P2%,%P3%DIM %P1$,%P2$,%P3$DIM A$(500)BEGINGOSUB _OnAppStartGOSUB _GenerateGUIGOSUB _EventsLoopGOSUB _OnAppExitEND_GenerateGUI:%P2$="A$(30)"'%P1$="¶" : %P3%=1 : %P2%=LEN(%P2$)'FOR %P1%=1 TO %P2%' %P3$=CHAR$(%P2$,%P1%)' IF %P3$=%P1$ INC %P3%'NEXT%P3%=10%P1$="Select Application"SETFONT 0POPUPCHOICE #1,%P1$,%P2$,%P3%,10,20,100,12%P1$="Run"SETFONT 0BUTTON #2,%P1$,60,140,40,14RETURN_EventsLoop:REPEAT %EVT%=WAITEVENT SELECT CASE %EVT% CASE 1 GOSUB _POPUPCHOICE_1 CASE 2 GOSUB _BUTTON_2 END SELECTUNTIL %EVT%=-1RETURN_POPUPCHOICE_1:S=SELECTEDCHOICE+29RETURN_BUTTON_2:A=(S>30) AND (S<=I)IF A=TRUE THEN A$=A$(S) RUN A$ENDIFRETURN_OnAppStart:A$(30)="Select Application"I=30A$=FINDFIRST$("appl","")WHILE A$<>"" INC I : A$(I)=A$ A$=FINDNEXT$ '("appl","")WENDSORT A$,31,IRETURN_OnAppExit:RETURN
Document généré en 0.11 seconde