DLL_ON "form.dll" LABEL FinProg,TestForm,ErrProg ON_CLOSE 0,FinProg ON_ERROR_GOTO ErrProg DIM retour,i,txt$ DIM Form_Id, Form_W, Form_H, Form_Nb, Form_CaptionSize ' ---------------------------- ' CREATION DES FORMULAIRES ' ---------------------------- DATA "Formulaire 10 : non-redimensionnable" DATA "Formulaire 20 : pas de barre de titre" DATA "Formulaire 30 : pas de bouton de fermeture" DATA "Formulaire 40 : pas de boutons de mise en icone et de mise en plein écran" DATA "Formulaire 50 :" DATA "Formulaire 60 :" Form_Nb = 4 :Form_H = 120 : Form_W = 400 LEFT 0,10 : WIDTH 0,Form_W : HEIGHT 0,Form_W : TOP 0,120 : CAPTION 0, "FORM 0 - FORM.DLL" FOR i = 1 TO Form_Nb ALPHA i: LEFT i,10 : TOP i,i*20 : READ txt$: CAPTION i,txt$ Form_Id = i * 10 : FORM Form_Id LEFT Form_Id, LEFT(0) + Form_W + 30 : HEIGHT Form_Id, Form_H TOP Form_Id,(Form_H*i)+(20*(i-1)) : CAPTION Form_Id,"Formulaire "+STR$(Form_Id) NEXT i ALPHA Form_Nb+1:LEFT Form_Nb+1,10 : TOP Form_Nb+1,(Form_Nb+1)*20 ' ---------------------------- ' TRAITEMENT DES FORMULAIRES ' ---------------------------- ' Interdit le redimensionnement : retour = DLL_CALL2("SetSize",HANDLE(10),0) WIDTH 10,WIDTH(10)+1 : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire ' Supprime la barre de titre retour = DLL_CALL2("SetCaption",HANDLE(20),0) ' Supprime le bouton de fermeture retour = DLL_CALL1("SetCloseOff",HANDLE(30)) ' Supprime les boutons de mise en icone et de mise en plein écran retour = DLL_CALL2("SetMinimize",HANDLE(40),0) retour = DLL_CALL2("SetMaximize",HANDLE(40),0) TIMER 2000:TIMER_INTERVAL 2000,100:ON_TIMER 2000,TestForm END TestForm: ' test de la fonction FormActive txt$="GetFormActive : " retour = DLL_CALL1("GetFormActive",HANDLE(0)) : ' renvoi 1 si le formulaire est en avant plan IF retour = 1 txt$ = txt$+" Formulaire 0" ELSE FOR Form_id = 10 TO Form_Nb*10 STEP 10 retour = DLL_CALL1("GetFormActive",HANDLE(Form_id)) IF retour=1 THEN txt$ = txt$+" Formulaire "+STR$(Form_id) NEXT Form_id END_IF CAPTION Form_Nb+1,txt$ RETURN ErrProg: TIMER_OFF_ALL MESSAGE error_type$+" Line:"+STR$(error_line) FinProg: retour = DLL_CALL1("CloseForm",HANDLE(0)) DLL_OFF TERMINATE