[R] Etrangeté du Darg&Drop

Ahbadiane · #1

Bonjour,

Dans l'exemple suivant, un drag & drop d'un fichier dans le champ de saisie entraine la modification du texte du bouton !!!

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FormDD = GUICreate("Drag&Drop", 550, 90, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $InputFichier = GUICtrlCreateInput("", 8, 12, 520, 21)
Global $ButtonQuitter = GUICtrlCreateButton("Quitter", 460, 52, 75, 25, 0)
GUICtrlSetState($InputFichier, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
WinSetOnTop("Drag&Drop", "", 1)
While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $ButtonQuitter
        Exit
    Case $GUI_EVENT_DROPPED
        GUICtrlSetData($GUI_EVENT_DROPPED, @GUI_DRAGFILE)
    EndSwitch
WEnd

Essayez, c'est presque drôle au regard du code correspondant. Mais surtout si vous avez une explication, je suis preneur

PS : j'utilise AutoIt v3.3.6.0

#2

car "GUICtrlSetData($GUI_EVENT_DROPPED, @GUI_DRAGFILE)" bah c'est pas bon !
GUICtrlSetData() prend en parametre 1: l'id du controle, 2: le contenu

En indiquant le control "$GUI_EVENT_DROPPED", ca bug et choisi le bouton.

Ce qui est étrange par contre, c'est que l'input se remplisse :/

Bref,

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FormDD = GUICreate("Drag&Drop", 550, 90, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $InputFichier = GUICtrlCreateInput("", 8, 12, 520, 21)
Global $ButtonQuitter = GUICtrlCreateButton("Quitter", 460, 52, 75, 25, 0)
GUICtrlSetState($InputFichier, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
WinSetOnTop("Drag&Drop", "", 1)
While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $ButtonQuitter
        Exit
    Case $GUI_EVENT_DROPPED
        GUICtrlSetData($InputFichier, @GUI_DRAGFILE)
    EndSwitch
WEnd

ou meme ceci, vu qu'autoit semble remplir automatiquement les input en présence de fichiers,

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FormDD = GUICreate("Drag&Drop", 550, 90, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $InputFichier = GUICtrlCreateInput("", 8, 12, 520, 21)
Global $ButtonQuitter = GUICtrlCreateButton("Quitter", 460, 52, 75, 25, 0)
GUICtrlSetState($InputFichier, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
WinSetOnTop("Drag&Drop", "", 1)
While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $ButtonQuitter
        Exit
    EndSwitch
WEnd

Ahbadiane · #3

Merci Iste,
La solution est dans @GUI_DROPID : Qui donne l'identificateur du contrôle

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FormDD = GUICreate("Drag&Drop", 550, 90, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $InputFichier = GUICtrlCreateInput("", 8, 12, 520, 21)
Global $ButtonQuitter = GUICtrlCreateButton("Quitter", 460, 52, 75, 25, 0)
GUICtrlSetState($InputFichier, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
WinSetOnTop("Drag&Drop", "", 1)
While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $ButtonQuitter
        Exit
    Case $GUI_EVENT_DROPPED
        GUICtrlSetData(@GUI_DROPID, @GUI_DRAGFILE)
    EndSwitch
WEnd

jl56 · #4

Bonjour

Je ne comprend pas votre intérêt
si comme je le pense ,vous désirez connaitre le nom du fichier alors

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $FormDD = GUICreate("Drag&Drop", 550, 90, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $InputFichier = GUICtrlCreateInput("", 8, 12, 520, 21)
Global $ButtonQuitter = GUICtrlCreateButton("Quitter", 460, 52, 75, 25, 0)
GUICtrlSetState($InputFichier, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
WinSetOnTop("Drag&Drop", "", 1)
While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $ButtonQuitter
        Exit
    Case $GUI_EVENT_DROPPED
        MsgBox(0,"Fichier",@GUI_DragFile)
        EndSwitch
WEnd

devrait suffire. Dans votre ligne

Code : Tout sélectionner

GUICtrlSetData($GUI_EVENT_DROPPED, @GUI_DRAGFILE)

vous affectez la variable $InputFichier par la valeur qu'il a déjà par @GUI_DRAGFILE
la je ne voie pas du tout l'intérêt
A+ JL56

AutoIt Français