| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 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 | |  Calendrier |
|
|
| | PB avec les fenêtres modales |  |
| | | Auteur | Message |
|---|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: PB avec les fenêtres modales Ven 1 Aoû 2014 - 14:18 | |
| Essai ceci : - Code:
-
dim res%,titre$,mes$,b1$,b2$,b3$,kgf$
kgf$="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
dll_on kgf$
titre$="Choix du navigateur"
mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
b1$="Internet Explorer"
b2$="FireFox"
b3$="Chrome"
res% = dll_call6("ShowMessageModal",adr(titre$),adr(mes$),3,adr(b1$),adr(b2$),adr(b3$))
message res%
end Et pour la rigolade, augmente la valeur du paramètre "bouton%" | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Ven 1 Aoû 2014 - 14:23 | |
| et la : - Code:
-
dim res%,titre$,mes$,lib$,image$,kgf$
kgf$="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
dll_on kgf$
titre$="Choix du navigateur"
mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
lib$="Abandonner;Valider;Internet_Explorer;FireFox;Chrome"
image$=""
res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$),adr(image$),2,3,adr(lib$))
message res%
end de même, augmente les valeurs "boutons%" et "nopt%" | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: PB avec les fenêtres modales Ven 1 Aoû 2014 - 15:28 | |
| Essaie comme ceci: - Code:
-
dim res%,titre$,mes$,b1$,b2$,b3$,kgf$
kgf$="KGF.dll"
dll_on kgf$
titre$="Choix du navigateur"
mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
b1$="Internet Explorer"
b2$="FireFox"
b3$="Chrome"
res% = dll_call6("ShowMessageModal",adr(titre$),adr(mes$),7,adr(b1$),adr(b2$),adr(b3$))
message res%
end Tu passais 3 en passant "nombre de boutons". Mais la doc dit bien que chacun des 3 boutons est représenté par une valeur 1, 2 ou 4, et c'est la somme de ces valeurs qui détermine l'affichage des boutons (masque binaire). Et ici: - Code:
-
dim res%,titre$,mes$,lib$,image$,kgf$
kgf$="KGF.dll"
dll_on kgf$
titre$="Choix du navigateur"
mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
lib$="Abandonner;Valider;;Internet_Explorer;FireFox;Chrome"
image$=""
res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$),adr(image$),3,3,adr(lib$))
message res%
end Même remarque sur le nombre de boutons: tu passes 2 alors qu'il faut passer la somme de 1+2 pour avour les boutons 1 et 2. Et comme 3 boutons sont toujours définis, les 3 premières chaînes dans la variable sont réservées pour les boutons, et les suivants sont pour les cases à cocher. Donc, il faut passer une chaîne vide (ou quelconque) pour éviter le décalage. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Ven 1 Aoû 2014 - 21:53 | |
| Merci klaus, c' est vrai que cela fonctionne mieux avec les bons paramètres.  cela dit j' ai un souci de viol, heu... d'accès violation voilà le source : - Spoiler:
- Code:
-
Variables()
Init_pluggins()
Labels()
dll_on kgf$
Gui()
Init()
end
' ******************************************************************************
' VARIABLES
' ******************************************************************************
Sub Variables()
' Evenements
dim clic%,change%
' Objets
dim no%,L_file%,B_add%,O_mp3%,O_mp4%,B_delete%,B_download%,SB%,PB%,ASB%,mem%
' Fonctions
dim ie$,ff$,ch$,browser$
ie$="iexplore.exe"
ff$="firefox.exe"
ch$="chrome.exe"
dim mode%
mode%=1
End_sub
' ******************************************************************************
' LABELS
' ******************************************************************************
Sub Labels()
Label Clic,Change
End_sub
Clic:
clic%=number_click
if clic%=O_mp4% :Select_mode(1) :end_if
if clic%=O_mp3% :Select_mode(2) :end_if
if clic%=L_file% : :end_if
if clic%=B_add% : :end_if
if clic%=B_delete% : :end_if
if clic%=B_download% : :end_if
return
Change:
change%=number_change
return
' ******************************************************************************
' GRAPHICAL USER INTERFACE
' ******************************************************************************
Sub Gui()
O_Form(0,0,1,0,0,300,500,"Panoratube Downloader - [Vidéo]")
font_name 0,"arial" : font_size no%,8
no%=no%+1 : L_File%=no%
O_List(no%,0,1,5,5,210,width(0)-26,"",1)
no%=no%+1 :O_mp4%=no%
O_option(no%,0,1,height(0)-83,5,20,50,"Vidéo")
font_name no%,"arial" : mark_on no%
On_click no%,clic
no%=no%+1 :O_mp3%=no%
O_option(no%,0,1,height(0)-83,55,20,50,"Audio")
font_name no%,"arial"
On_click no%,clic
no%=no%+1 : B_add%=no%
O_Button(no%,0,1,height(0)-83,width(0)-190,20,50,"Add",1)
Font_bold no%
no%=no%+1 : B_delete%=no%
O_Button(no%,0,1,height(0)-83,width(0)-135,20,50,"Del.",1)
Font_bold no%
no%=no%+1 : B_download%=no%
O_Button(no%,0,1,height(0)-83,width(0)-80,20,60,"Download",1)
Font_bold no%
no%=no%+1 : SB%=no%
O_Statut_Bar(no%,0,1,0)
no%=no%+1 : PB%=no%
O_Progress_Bar(no%,0,0,height(0)-58,width(0)-180,0,150)
no%=no%+1 : ASB%=no%
O_Alpha(no%,0,1,height(0)-56,5,0,0,"")
font_name 0,"times" :font_size no%,10 :font_color no%,200,0,0 :font_bold no%
no%=no%+1 : mem%=no%
O_Dlist(no%,"")
End_sub
' ******************************************************************************
' INITIALISATIONS
' ******************************************************************************
Sub Init()
Detect_Browser()
End_sub
' ******************************************************************************
' FONCTIONS
' ******************************************************************************
Sub Detect_Browser()
dim_local ie%,ff%,ch%,nb%,nav%(3)
dim_local res%,titre$,mes$,image$,boutons%,nopt%,lib$
dim_local nav$(2),l$,sep%
titre$="Choix du navigateur"
image$=dir_current$+"\img.jpg"
boutons%=2
lib$="Abandonner;Valider;"
ie% = DLL_call1("GetProcessWindowHandle",adr(ie$))
ff% = DLL_call1("GetProcessWindowHandle",adr(ff$))
ch% = DLL_call1("GetProcessWindowHandle",adr(ch$))
if ie%<>0 : nb%=nb%+1:nav%(1)=1:lib$=lib$+";Internet Explorer" :end_if
if ff%<>0 : nb%=nb%+1:nav%(2)=1:lib$=lib$+";FireFox" :end_if
if ch%<>0 : nb%=nb%+1:nav%(3)=1:lib$=lib$+";Chrome" :end_if
if nb%=1
if nav%(1)=1 :browser$="IE" :end_if
if nav%(2)=1 :browser$="FF" :end_if
if nav%(3)=1 :browser$="Chrome" :end_if
else
if nb%>1
l$=reverse$(lib$)
sep%=instr(l$,";")
nav$(2)=left$(l$,sep%-1):l$=right$(l$,len(l$)-sep%)
sep%=instr(l$,";")
nav$(1)=left$(l$,sep%-1)
nav$(1)=reverse$(nav$(1))
nav$(2)=reverse$(nav$(2))
mes$="Plusieurs navigateurs sont en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
nopt%=nb%
res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$), adr(image$),3, nopt%, adr(lib$))
if nopt%=2 and nav$(1)="Internet Explorer" and nav$(2)="FireFox"
if res% =1 :browser$="" :end_if
if res% =10 :browser$="IE" :end_if
if res% =18 :browser$="FF" :end_if
end_if
if nopt%=2 and nav$(1)="Internet Explorer" and nav$(2)="Chrome"
if res% =1 :browser$="" :end_if
if res% =10 :browser$="IE" :end_if
if res% =18 :browser$="Chrome":end_if
end_if
if nopt%=2 and nav$(1)="FireFox" and nav$(2)="Chrome"
if res% =1 :browser$="" :end_if
if res% =10 :browser$="FF" :end_if
if res% =18 :browser$="Chrome":end_if
end_if
if nopt%=3
if res% =1 :browser$="" :end_if
if res% =10 :browser$="IE" :end_if
if res% =18 :browser$="FF" :end_if
if res% =34 :browser$="Chrome":end_if
end_if
else
mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
lib$="Abandonner;Valider;;Internet_Explorer;FireFox;Chrome"
res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$),adr(image$),3,3,adr(lib$))
if res% =1 :browser$="" :end_if
if res% =10 :browser$="IE" :end_if
if res% =18 :browser$="FF" :end_if
if res% =34 :browser$="Chrome":end_if
end_if
end_if
End_sub
Sub Select_mode(m%)
if m%=1
mode%=m%
mark_on O_mp4%
Caption 0,"Panoratube Downloader - [Vidéo]"
else
mode%=m%
mark_on O_mp3%
Caption 0,"Panoratube Downloader - [Audio]"
end_if
End_sub
' ******************************************************************************
' BIBLIOTHEQUE OBJETS
' ******************************************************************************
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
' ______________________________________________________________________________
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
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
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%
If T$<>"" Then Text No%,T$
If Ch%=1 Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
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$
if Cl%> 0 then on_click No%,Clic
cursor_point No%
End_Sub
' ______________________________________________________________________________
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
' ______________________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%,F$)
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%
if F$<>""
if file_exists(F$)=1 then file_load No%,F$
end_if
End_Sub
' ______________________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
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%
if F$<>""
if file_exists F$ then file_load No%,F$
end_if
if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
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
if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
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
' ______________________________________________________________________________
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
' ______________________________________________________________________________
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
' ______________________________________________________________________________
Sub O_Main_Menu(No%,P%)
MAIN_MENU No%
if P% > 0 then Parent No%,P%
End_Sub
' ______________________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%,A%)
SUB_MENU No%
if P% > 0 then Parent No%,P%
if C$<>"" then Caption No%,C$
If Cl%=1 : on_click No%,Clic : end_if
If Cl%=2 : on_click No%,Clic2 : end_if
If Cl%=3 : on_click No%,Clic3 : end_if
If Cl%=4 : on_click No%,Clic4 : end_if
If A%=0 then inactive No%
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
dim_local F$
If Object_Exists(No%)=0
OPEN_DIALOG No%
End_if
if DD$<>"" then Dir_Dialog No%,DD$
if filtre$<>"" then Filter No%,Filtre$+"|"+Filtre$
F$=File_name$(No%)
if variable("File$")=0:Dim File$:End_If
if F$<>"_"
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$
if O%=5 then File$=F$
end_if
Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$,ext$)
dim_local F$,i%,ext%
If Object_Exists(No%)=0
SAVE_DIALOG No%
End_If
If DD$<>"" then Dir_Dialog No%,DD$
If filtre$<>"" then Filter No%,Filtre$
F$=file_name$(No%)
If F$<>"_"
for i%=1 to len(F$)
if mid$(f$,i%,1)=".":ext%=1:exit_for:end_if
next i%
if ext%=1
File_Save NOut%,F$
else
File_save NOut%,F$+ext$
end_if
End_If
Delete No%
End_Sub
' ______________________________________________________________________________
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
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
dim_local Fic$
Fic$=F$
DLIST No%
if F$<>""
if file_exists(Fic$)=1 : then file_load No%,Fic$ : end_if
end_if
End_Sub
' ______________________________________________________________________________
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
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
Pa%=P% :No2%=No%
for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
If M%=0
O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
Else
if M%=1
O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
else
O_Picture(No2%,P%,V%,height(P%)-81,0,23,width(P%)-16,"")
end_if
End_If
OSB2%=No2%
Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub O_Button_Picture(num_obj%,No_b%,P%,V1%,V2%,T%,L%,H%,W%,Pict$,Pict2$)
O_Picture(num_obj%+1,P%,V2%,T%,L%,H%,W%,Pict2$):cursor_point num_obj% +1
O_Picture(num_obj%,P%,V1%,T%,L%,H%,W%,Pict$):On_click num_obj%,Clic:cursor_point num_obj%
obj% = obj%+1
if variable("No2%")=0 : dim No2% :No2%=7000 :End_if
if Variable("R%")=0 :dim R% :R%=1:else :R%=R%+1 :end_if
if Object_exists(7000)=0 :O_Edit(7000,P%,0,-190,-200,0,0):End_If
If Variable("KGF_res%")=0 then dim KGF_res%
KGF_res% = dll_call2("ClickSetHook",handle(P%),handle(No2%))
KGF_res% = dll_call5("ClickDefineRect",R%,L%,T%,W%,H%)
No2%=No_b%
O_Button(No2%,P%,0,-200,-200,0,0,"",1)
KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-5,R%)
No2%=No_b%+1
O_Button(No2%,P%,0,-200,-200,0,0,"",1)
KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-6,R%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
color No%,235,235,239 : y%=width(P%)-27
Restore
while t$<>"OSB_Corps.bmp" :read t$:End_while
Read R_osb% :Read G_osb% :Read B_osb%
2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
for x%=0 to y% :2d_point x%,z% :next x%
Restore
while t$<>"OSB_Fin.bmp" :read t$:End_while
for x%=y% to y%+10
for z%=0 to 22
Read R_osb% :Read G_osb% :Read B_osb%
2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
2d_point x%,z%
next z%
next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub
' ------------------------------------------------------------------------------
Sub O_Timer(No%,OO%,Inter%)
TIMER No%
if OO%=1 then timer_on No%
if OO%=0 then timer_off No%
if inter%>0 then timer_interval No%,inter%
End_Sub
' ------------------------------------------------------------------------------
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%,Mi%,Ma%,C%)
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%
Min No%,Mi%
Max No%,Ma%
if C% > 0 Then on_change No%,Change
End_sub
' ------------------------------------------------------------------------------
Sub O_Panel(No%,P%,V%,T%,L%,H%,W%)
Panel 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
' ******************************************************************************
' INITIALISATION DES PLUGGINS
' ******************************************************************************
Sub Init_pluggins()
dim kgf$,bdr$
dim ffmpeg$,ytb$,ffprobe$,ffplay$
dim z7$
dim jhead$
dim nconv$
dim pdfdetach$,pdffont$,pdfing$,pdfinfo$,pdfhtml$,pdfpng$,pdfppm$,pdftop$,pdftext$,pdfimg$
kgf$ ="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
bdr$ ="C:\Users\Yannick\PANORA~1\KGF\BDR.dll"
ytb$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\YOUTUB~1.EXE"
ffmpeg$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffmpeg.exe"
ffprobe$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffprobe.exe"
ffplay$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffplay.exe"
z7$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\7z.exe"
jhead$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\jhead.exe"
nconv$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\nconvert.exe"
pdfdetach$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFDET~1.EXE"
pdffont$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdffonts.exe"
pdfimg$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFIMA~1.EXE"
pdfinfo$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdfinfo.exe"
pdfhtml$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFTOH~1.EXE"
pdfpng$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftopng.exe"
pdfppm$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftoppm.exe"
pdftop$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftops.exe"
pdftext$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFTOT~1.EXE"
End_sub
| |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: PB avec les fenêtres modales Sam 2 Aoû 2014 - 0:12 | |
| Très bizarre, ton truc. Mais j'ai trouvé comment l'éviter. Commence ta Sub Detect_Browser comme suit: - Code:
-
Sub Detect_Browser()
' dim_local ie%,ff%,ch%,nb%,nav%(3)
' dim_local res%,titre$,mes$,image$,boutons%,nopt%,lib$
' dim_local nav$(2),l$,sep%
dim ie%,ff%,ch%,nb%,nav%(3)
dim res%,titre$,mes$,image$,boutons%,nopt%,lib$
dim nav$(2),l$,sep% Tu vois, j'ai remplacé les dim_local par dim tout court. Et tout marche bien... | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Sam 2 Aoû 2014 - 0:20 | |
| Merci klaus
Je vais voir cela mais j' ai quelques dim_local à changer dans le reste du programme avant si je dois faire ce que tu dis.
je me demande si ce n' est pas les adr qui vont pas sur les dim_local...
enfin je vais les faire une par une pour voir laquelle bug. | |
| | | | Contenu sponsorisé
| | Sujet: Re: PB avec les fenêtres modales | |
| |
| | | | | | PB avec les fenêtres modales | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
