visionneuse de Bmp ou jpg en Panoramic

Execute_wait "Visionneuse.exe "+(adresse du dossier où sont les photos)

 Dim Ph$,I$,i,cx,x,x$
 ph$=param_value$(1)
 label chgt,affich,Avance,recul,Quitter

 caption 0,"Vous êtes dans le dossier n°: "+ph$
 height 0,487:width 0,617
 picture 5:height 5,450:width 5,600:file_load 5,"fd_visionneuse.jpg"
 picture 1:height 1,378 :width 1,570:stretch_on 1:color 1,240,240,240
 top 1,14:left 1,15
 dlist 2
 button 3:top 3,400:left 3,282:caption 3,"t":font_name 3,"Wingdings 3":font_size 3,12:width 3,25:cursor_point 3
 button 4:top 4,400:left 4,310:caption 4,"u":font_name 4,"Wingdings 3":font_size 4,12:width 4,25:cursor_point 4
 button 6:top 6,400:left 6,345:caption 6,"Exit":font_name 6,"arial":font_size 6,8:width 6,50:cursor_point 6

 gosub chgt
 on_click 4,Avance
 on_click 3,recul
 on_click 6,Quitter
 end
 
 
 chgt:
 dir_change ph$
 item_add 2,file_find_first$
 I$=file_find_next$
  while I$<>"_"
    item_add 2,file_find_next$
    I$=file_find_next$
  end_while
 file_find_close
 x=1
 x$=item_read$(2,x)
 caption 0,x$
 file_load 1,x$
 return
 
 affich:
 if count(2)>0
  for i=1 to count(2)
      if right$(item_read$(2,i),4)=".jpg"
          file_load 1,item_read$(2,i)
          caption 0,item_read$(2,i)
      else
          exit_for
      end_if
    wait 5000
  next i
 end_if
 return
 
 avance:
 x=x+1
 if x<count(2)
    x$=item_read$(2,x)
    if right$(x$,4)=".jpg"
    caption 0,x$
    file_load 1,item_read$(2,x)
    end_if
 else
    x=x-count(2)+1
    x$=item_read$(2,x)
    if right$(x$,4)=".jpg"
    caption 0,x$
    file_load 1,item_read$(2,x)
    end_if
 end_if
 return
 
 recul:
 x=x-1
 if x>0
    x$=item_read$(2,x)
    if right$(x$,4)=".jpg"
    caption 0,x$
    file_load 1,item_read$(2,x)
    end_if
 else
    x=count(2)
    x$=item_read$(2,x)
    if right$(x$,4)=".jpg"
    caption 0,x$
    file_load 1,item_read$(2,x)
    end_if
 end_if
 return
 
 Quitter:
 terminate