Cliquer glisser

Pingtix · Message par **Pingtix** » dim. 09/janv./2005 18:17

Comment faire pour pouvoir cliquer glisser un fichier son dans une fenetre et que le programme démarre la lecture du fichier son en question ?
En gros, je voudrais pouvoir cliquer glisser un fichier dans une fenetre.

Quelqu'un sait ?

nico · Message par **nico** » dim. 09/janv./2005 18:42

C'est sur le Forum, cherches et tu trouveras.

Pingtix · Message par **Pingtix** » dim. 09/janv./2005 18:45

Je viens de trouver un code sour le forum anglais, il marche, mais je pige rien...

Code : Tout sélectionner

  Procedure.l DropFiles ()
    ProcedureReturn EventwParam ()
  EndProcedure
  
  Procedure GetNumDropFiles (*dropFiles)
    ProcedureReturn DragQueryFile_ (*dropFiles, $FFFFFFFF, Temp$, 0)
  EndProcedure
  
  Procedure.s GetDropFile (*dropFiles, index)
    bufferNeeded = DragQueryFile_ (*dropFiles, index, 0, 0)
    For a = 1 To bufferNeeded: buffer$ + " ": Next ; Short by one character!
    DragQueryFile_ (*dropFiles, index, buffer$, bufferNeeded+1)
    ProcedureReturn buffer$
  EndProcedure
  
  Procedure FreeDropFiles (*dropFiles)
    DragFinish_ (*dropFiles)
  EndProcedure
If OpenWindow (0, 100, 100, 300, 100, #PB_Window_SystemMenu, "Drag 'n' drop")
  
  DragAcceptFiles_ (WindowID(), 1)
  

  
  Repeat
    
    Select WaitWindowEvent ()
      
      Case #WM_DROPFILES
        *dropped = DropFiles ()
        num.l = DragQueryFile_ (*dropped , $FFFFFFFF, Temp$, 0)
        
        f$ = ""
        For files = 0 To num - 1
          f$ + GetDropFile (*dropped, files) + Chr (13)
        Next
        
        MessageBox_ (0, Str (num) + " file (s) dropped:" + Chr (13) + Chr (13) + f$, "Drag 'n' Drop", 0)
        
        FreeDropFiles (*dropped)
        
      Case #PB_EventCloseWindow
        quit = 1
        
    EndSelect
    
  Until quit = 1
  
EndIf
End

nico · Message par **nico** » dim. 09/janv./2005 18:54

Ben oui, mais si t'écoute pas ce qu'on te dit.

Pingtix · Message par **Pingtix** » dim. 09/janv./2005 19:00

Tu m'as dit de chercher alors je cherche...

nico · Message par **nico** » dim. 09/janv./2005 19:10

Sur ce Forum, tu fais rechercher, tu tapes: glisser et en bas de la page, tu trouveras ce qui t'intéresse, ce qui revient à la même chose que ton code mais mieux écrit.

Pingtix · Message par **Pingtix** » dim. 09/janv./2005 19:43

Oh j'avais cherché drag drop et cliquer glisser or le topic s'apelle glisser déposer !
Comme quoi parfois des trucs tout betes.....
Merci beaucoup !