Site de Nardo.

label clic_item, ajout_item , lancer_prg ,fin,annule,teste
dim f$ ,p$
width 0,330:height 0,290 :hide 0
open_dialog 1
list 2:width 2,310:height 2,200:top 2,40 :on_click 2,clic_item
if file_exists("z:\clic_fichier.txt") = 1 then file_load 2,"z:\clic_fichier.txt"
button 3:caption 3,"ajouter fichier" :on_click 3,ajout_item
button 4:caption 4,"annule":left 4,90:on_click 4,annule
    ' ------------------------------
form 10:width 10,80:height 10,20:border_hide 10:left 10,screen_x - 80
button 11:parent 11,10:width 11,35:height 11,18:caption 11,"run":on_click 11,teste :font_size 11,4
button 12:parent 12,10:width 12,35:height 12,18:caption 12,"choisir":left 12,37:on_click 12,lancer_prg:font_size 12,4
show 10
on_click 10,fin
end
' ========================================'
teste:
 inactive 11
 if p$="" then active 11:return
clic_item:
p$ = item_index$(2)

file_open_write 1,"E:\envoi nom fichier.txt"
  FILE_WRITELN 1,p$
FILE_CLOSE 1

execute "E:\loader_multiple.exe"
hide 0:show 10:set_focus 10
active 11 :active 12
return

ajout_item:
  filter 1,"choisir un programme .bas|*.bas;*.bak"
  f$ = file_name$(1)
  if f$ <> "_" then item_add 2,f$:file_save 2,"z:\clic_fichier.txt"
  active 12
return

lancer_prg:
  inactive 12
  show 0
return
annule:
  hide 0 :active 12
return
fin:
if message_confirmation_ok("on quitte vraiment ?") =1 then terminate

' Auteur : cosmos70
hide 0
dim a$
memo 1 : width 1,3000 : ' mettre large pour éviter les sauts de ligne
if file_exists("E:\envoi nom fichier.txt")=1
FILE_OPEN_READ 1,"E:\envoi nom fichier.txt"
FILE_READLN 1,a$
FILE_CLOSE 1 : ' on récupère le contenu du presse-papier
end_if

if file_exists(a$)=1  then file_load 1,a$
if count(1)>0
    file_save 1,"c:Temp\panoramic.bas" : ' on sauvegarde le contenu
    chain "c:Temp\panoramic.bas"    : ' puis on exécute...
  end_if
end

rem ============================================================================
rem        Exemple d utilisation de PICK.DLL par Papydall                    .
rem ============================================================================
LABEL clic,FinProg
DIM r,v,b
ALPHA 10 : TOP 10,350 : LEFT 10,100 : FONT_BOLD 10
2d_fill_color rnd(255),rnd(255),rnd(255) : 2d_circle 300,200,100
2d_rectangle 10,20,50,300  : 2d_flood 11,21,255,255,0
2d_rectangle 210,20,250,300 : 2d_flood 11,21,0,255,0
2d_circle 300,200,50: 2d_flood 300,200,0,255,255
DLL_ON "C:\Panoramic\NARDO\pick.dll" : ' Adaptez le chemin
ON_CLOSE 0,FinProg
TIMER 1:TIMER_INTERVAL 1,100
ON_TIMER 1,clic

END

REM ============================================================================
clic:
  Pick()
RETURN
rem ============================================================================
SUB Pick()
  DIM_local Pick_Coordonnee$, Pick_x,Pick_y,Pick_retour%,bt%,t$

  Pick_Coordonnee$ = STRING$(8," ")
  bt% = dll_call1("GetMouseXY",ADR(Pick_Coordonnee$))
  Pick_x = VAL(LEFT$(Pick_Coordonnee$,4))
  Pick_y = VAL(RIGHT$(Pick_Coordonnee$,4))
  Pick_Coordonnee$=STRING$(20," ")
  Pick_retour% = dll_call3("GetColorXY",Pick_x,Pick_y,ADR(Pick_Coordonnee$))

  CAPTION 0,"Coordonnées "+str$(Pick_x)+" x "+str$(Pick_y)+" couleur :"+Pick_Coordonnee$
  r = hex(left$(Pick_Coordonnee$,2))
  v = hex(mid$(Pick_Coordonnee$,3,2))
  b = hex(mid$(Pick_Coordonnee$,5,2))

  t$ = "Déplacez la souris où vous voulez, même en dehors de cette fenêtre"+chr$(13)+chr$(13)
  t$ = t$ + "Coordonnées de la souris : x="+str$(Pick_x)+" y="+str$(Pick_y)+" bouton="+STR$(bt%)+chr$(13)
  t$ = t$ + "Couleur du pixel :R = "+str$(r) + "  V = " + str$(v) + "  B = "+str$(b)

  caption 10,t$

END_SUB
rem ============================================================================

FinProg:
  DLL_OFF
TERMINATE

rem ============================================================================