Page 1 sur 1

[R] Help drag and drop sur bouton  

Posté : mar. 02 avr. 2019 09:39
par fredmame
Hello tout le monde,

j'ai crée un gui avec des boutons, chaque bouton lance une fonction.
Ca marche tres bien.
je voudrais améliorer cette gui en permettant un glissé déposé comme option supplémentaire sur le bouton10

J'ai ajouté un peu plus bas un bout de code pour vous aider à me corriger sur le bon placement du code pour ajouter ce comportement de drag&drop

Merci à celui ou celle qui saura me corriger.

Fred.

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 11:06
par TommyDDR
Au risque de me répéter :
Si vous voulez que les gens vous aident, fournissez un code qui permet d'être copié collé pour être testé.
Si vous forcez les gens à réécrire du code, 80% de ceux qui comptaient vous aider abandonneront (c'est mon cas pour votre question).

On ne voit pas entre autre la fonction10.

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 13:14
par fredmame
Hello,


mon programme est en fait beaucoup plus complexe (+ 1600 lignes) mais j'ai écrit ce bout de code pour montrer ce que je souhaite faire
sur le bouton "poussoir" appelé $button10 , je souhaite faire cohabiter à la fois l'appel de fonction10() lorsqu'on appui dessus (ca marche tres bien)
mais aussi un drag and drop d'un fichier qui serait transmis à cette fonction10() et serait alors exécutée.
j'ai commenté les parties de codes que j'essaye d'ajouter ( ; c'est ici que je fais des essais pour faire fonctionner le drag&drop) pour faire fonctionner.

(je sais les includes sont excessifs mais c'est ceux que j'utilise dans mon prog)

en retirant les lignes commentées, le prog fonctionne mais avec mes tests ,non évidemment car je n'arrive pas à savoir quoi placer et où...
il faut que ce soit dans la boucle car c'est un appel de fonction qui peut etre répété

merci des conseils.
Fred.
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=package.ico
#AutoIt3Wrapper_Outfile=ok.exe
#AutoIt3Wrapper_Res_Comment=
#AutoIt3Wrapper_Res_Description=
#AutoIt3Wrapper_Res_Fileversion=
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=
#AutoIt3Wrapper_Res_ProductVersion=
#AutoIt3Wrapper_Res_CompanyName=
#AutoIt3Wrapper_Res_LegalCopyright=
#AutoIt3Wrapper_Res_LegalTradeMarks=
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPIFiles.au3>
#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <IE.au3>
#include <File.au3>
#include <resourcesEX.au3>
#include <Date.au3>
#Include <Array.au3>
#include <StringConstants.au3>
#include <String.au3>
#include <Inet.au3>
#include <FileConstants.au3>
#include <ColorConstants.au3>
#include <StringSize.au3>
#include <EditConstants.au3>
#include <FontConstants.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>

$GUI = GUICreate("OK", 503, 272, 273, 188)
GUISetBkColor(0xB9D1EA)

$quitter = GUICtrlCreateButton("Quitter", 448, 16, 41, 41, $BS_ICON,$BS_DEFPUSHBUTTON)

GUICtrlSetTip(-1, "QUITTER")


$Button10 = GUICtrlCreateButton("Button10",  280, 152, 49, 41,$BS_ICON,bitor($BS_DEFPUSHBUTTON, $WS_EX_ACCEPTFILES))
GUICtrlSetTip(-1, "Coucou")
;GUISetState($Button10, $GUI_DROPACCEPTED)   ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
GUISetOnEvent($GUI_EVENT_DROPPED,"fonction10")  ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop

GUISetState(@SW_SHOW,$GUI)


While 1
    $MSG = GUIGetMsg()

        Switch $MSG


      Case -3
         Exit

      Case $quitter
         Exit

      Case Else

         If $MSG = $Button10 Then
         call("fonction10")

         Elseif $MSG = $GUI_EVENT_DROPPED Then ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
         GUISetOnEvent($GUI_EVENT_DROPPED,"fonction10")  ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
         msgbox(00,"le fichier","le fichier dragué est :"&@GUI_DragFile)  ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
         call fonction10(@GUI_DragFile)  ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop

         EndIf

    EndSwitch

WEnd

func fonction10()
   GUICtrlSetData(@GUI_DropId, @GUI_DragFile)  ; c'est ici que je fais des essais pour faire fonctionner le drag&drop
msgbox(00,"test",@GUI_DragFile) ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
$fichierini=@GUI_DragFile ; c'est ici que je fais des essais  pour faire fonctionner le drag&drop
   $Fichierini= FileOpenDialog("Sélectionnez le fichier", @WorkingDir & "\", "ini ou txt (*.ini;*.txt)", $FD_FILEMUSTEXIST)
   If @error Then
   MsgBox($MB_ICONWARNING, "Aucun fichier choisi...","Fin de cette fonction",3)
   Return
   EndIf
   msgbox(00,"ok","le fichier est: "&$fichierini)
   Return
   EndFunc

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 14:02
par walkson
Bonjour,
Un petit exemple qui devrait vous aider à construire votre code
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Form1 = GUICreate("Form1", 470, 191, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
Global $Button1 = GUICtrlCreateButton("Drop ici", 8, 24, 123, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
Global $Button2 = GUICtrlCreateButton("Button1", 136, 24, 123, 57)
Global $Button3 = GUICtrlCreateButton("Button2", 264, 24, 123, 57)
Global $Input1 = GUICtrlCreateInput("", 64, 112, 313, 21)
GUISetState(@SW_SHOW)


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
   Case $GUI_EVENT_CLOSE
      Exit
    Case $GUI_EVENT_DROPPED
      GUICtrlSetData($Input1, @GUI_DragFile)
      test()
    Case $Button1
      test()
    Case $Button2

    Case $Button3

 EndSwitch
WEnd
Func test()
   $chemin = GUICtrlRead($Input1)
   If $chemin = "" Then $chemin = FileOpenDialog("Path",@DesktopDir,"text(*.*)")
   ShellExecute("notepad.exe",$chemin)
   GUICtrlSetData($Input1,"")
EndFunc

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 16:01
par fredmame
merci pour ce code

ca marche mais bon, je galere un peu...
en fait je crois comprendre que le guicreateinput est necessaire pour recuperer la variable ?
alors j'ai modifé en mettant hide deja car esthetiquement je n'ai pas besoin de cet input

Voila déja une modif pour mettre selon mes besoins
il reste à inclure 2 entrées possible : soit en drag and drop, soit via un fileopendialog ...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>

Global $Form1 = GUICreate("Form1", 470, 191, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
Global $Button1 = GUICtrlCreateButton("Drop ici", 8, 24, 123, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
Global $Button2 = GUICtrlCreateButton("Button1", 136, 24, 123, 57)
Global $Button3 = GUICtrlCreateButton("Button2", 264, 24, 123, 57)
;Global $Input1 = GUICtrlCreateInput("", 64, 112, 313, 21)
Global $Input1 = GUICtrlCreateInput("", -1, -1, -1, -1)
GUICtrlSetState(-1,$GUI_HIDE)
GUISetState(@SW_SHOW)


While 1
 $nMsg = GUIGetMsg()

 Switch $nMsg
        Case $GUI_EVENT_CLOSE
                Exit
    Case $GUI_EVENT_DROPPED
                GUICtrlSetData($Input1, @GUI_DragFile)
                test()
         Case $Button1
                test()
         Case $Button2

         Case $Button3

 EndSwitch
WEnd
Func test()
   local $chemin
if $chemin ="" Then
   $chemin= FileOpenDialog("Sélectionnez le fichier", @WorkingDir & "\", "ini ou txt (*.ini;*.txt)", $FD_FILEMUSTEXIST)
       msgbox(00,"affichage","le fichier est: "&$chemin)
ElseIf $chemin =@error Then
   $chemin= FileOpenDialog("Sélectionnez le fichier", @WorkingDir & "\", "ini ou txt (*.ini;*.txt)", $FD_FILEMUSTEXIST)
       msgbox(00,"affichage","le fichier est: "&$chemin)
      Elseif
      $chemin = GUICtrlRead($Input1)
       msgbox(00,"affichage","le fichier est: "&$chemin)
       GUICtrlSetData($Input1, "")
      EndIf


EndFunc

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 17:02
par walkson
On peut le faire comme ceci si vous préférez
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $chemin
Global $Form1 = GUICreate("Form1", 470, 191, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
Global $Button1 = GUICtrlCreateButton("Drop ici", 8, 24, 123, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
Global $Button2 = GUICtrlCreateButton("Button1", 136, 24, 123, 57)
Global $Button3 = GUICtrlCreateButton("Button2", 264, 24, 123, 57)
GUISetState(@SW_SHOW)


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
        Case $GUI_EVENT_CLOSE
                Exit
    Case $GUI_EVENT_DROPPED
                $chemin = @GUI_DragFile
                test()
         Case $Button1
                test()
         Case $Button2

         Case $Button3

 EndSwitch
WEnd
Func test()

        If $chemin = "" Then $chemin = FileOpenDialog("Path",@DesktopDir,"text(*.*)")
        If Not @error Then msgbox(0,"affichage","le fichier est: "&$chemin)
        $chemin = ""
EndFunc

Re: Help drag and drop sur bouton

Posté : mar. 02 avr. 2019 18:10
par fredmame
Merci Walkson, c'est bien comme ca.!!

j'ai modifié le code pour qu'à la fois l'input ne soit pas visible et que le drag&drop puisse etre reconnu sur le bouton indépendamment d'un autre :D

Ce qui est dommage pour des raisons purement graphique, c'est qu'on soit obligé de mettre le comportement de drag&drop sur toute l'interface graphique via le guicreate et $WS_EX_ACCEPTFILES

Je trouve que cela prêterait moins à confusion pour l'utilisateur que tout la gui soit bloquée en drag&drop sauf le bouton, donc un $WS_EX_ACCEPTFILES sur le guictrlcreatebutton serait plus comprehensible à mes yeux...


Enfin bon, j'ai compris le principe et voila donc ce petit code exemple pour plusieurs boutons des fonctions propres à chaque bouton :arrow:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>



Global $Form1 = GUICreate("Test drag&drop sur boutons", 470, 191, -1, -1,-1, $WS_EX_ACCEPTFILES)


Global $Button1 = GUICtrlCreateButton("BOUTON 1", 8, 24, 123, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)


Global $Button2 = GUICtrlCreateButton("BOUTON 2", 136, 24, 123, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)


Global $Button3 = GUICtrlCreateButton("BOUTON 3", 264, 24, 123, 57)


GUISetState(@SW_SHOW)


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
   Case $GUI_EVENT_CLOSE
                Exit
   Case $GUI_EVENT_DROPPED

      If @GUI_DropId = $button1 Then
         $file=@GUI_DragFile
         test1($file)

      ElseIf @GUI_DropId = $button2 Then
      $file=@GUI_DragFile
      test2($file)

      EndIf

   Case $Button1
      $file=""
      test1($file)

    Case $Button2
       $file=""
      test2($file)

   Case $Button3
      test3()

 EndSwitch
WEnd




Func test1($file)

If $file = "" Then $file = FileOpenDialog("Choisissez un fichier",@DesktopDir,"(*.*)")
If Not @error Then msgbox(0,"affichage par fonction1","le fichier est: "&$file)
$file = ""


EndFunc

Func test2($file)

If $file = "" Then $file= FileOpenDialog("Choisissez un fichier",@DesktopDir,"(*.*)")
If Not @error Then msgbox(0,"affichage par fonction2","le fichier est: "&$file)
$file = ""

EndFunc

Func test3()
msgbox($MB_ICONWARNING,"attention","voici la fonction3"&@crlf&"lancée par le bouton 3"&@crlf&"et qui se coupe toute seule!",3)
Endfunc