[R] Drag an drop entre deux tableau 2d

[julie]

Bonjour a tous
Aujourd'hui je suis vraiment face a un mur je ne sait pas dutout comment gerer le probleme suivant:

Comme dit dans le titre j'aurai aimée faire du drag an drop entre deux tableau , les voici ci dessous:

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <ListviewConstants.au3>
#include <Array.au3>

Dim $array[3][5]
$array[0][1] = "20"
$array[1][1] = "40"
$array[2][1] = "50"



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 840, 250, 199, 127)
$listview = GUICtrlCreateListView("description du produit| en stock", 10, 10, 400, 130)
GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 20, 100)
GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 20, 200)
$listview1 = GUICtrlCreateListView("produit|prix ht|TVA %|nombres|Prix total ", 430, 10, 400, 130)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $lignetab1[3]
$lignetab1[0] = GUICtrlCreateListViewItem("assiette 18x18|" &$array[0][1] & "|" & $array[0][2], $listview)
$lignetab1[1] = GUICtrlCreateListViewItem("vers a vin|" &$array[1][1] & "|" & $array[1][2], $listview)
$lignetab1[2] = GUICtrlCreateListViewItem("couteaux|" &$array[2][1] & "|" & $array[2][2], $listview)


GUISetState()


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

    EndSwitch
WEnd
 

si il ne serait pas possible de faire de drag an drop y aurait il possibilité de faire cela via un boutton .
exemple:
on selectionne une ligne dans le tableau 1 et on clique sur un boutton et cette ligne apparait dans le second tableau.


maintenan si cela peut etre realisé je vous serait deja tres reconnaissante vraiment car ca m'aiderai beaucoup.

dans un second temps il aurait fallu que au moment du drop juste avant que la ligne apparaisse dans le second tableau qu'une input box demande combien de produit on veut ajouter pour ensuite calculer les different calcul dans les differentes colones(je tenterai de faire ca seule ).

Je sais qu'il y a pas mal de monde sur ce forum qui metrise l'autoit sur le bout des doigts j'espere que c'est personne qui ce reconaitrons et meme les autre pourraient me donner un coup de pouces .

merci .

[mikell]

Shématiquement, voilà le moyen le plus simple

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <ListviewConstants.au3>
#include <Array.au3>

Dim $array[3][5]
$array[0][1] = "20"
$array[1][1] = "40"
$array[2][1] = "50"
$array[0][2] = "7,50"
$array[1][2] = "12"
$array[2][2] = "17"


$Form1 = GUICreate("Form1", 840, 250, 199, 127)
$listview = GUICtrlCreateListView("description du produit| en stock|prix", 10, 10, 400, 130)
GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, 100)
;GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 20, 200)
$listview1 = GUICtrlCreateListView("produit|prix ht|TVA %|nombres|Prix total ", 430, 10, 400, 130)
GUICtrlSendMsg($listview1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUISetState(@SW_SHOW)

Dim $lignetab1[3]
$lignetab1[0] = GUICtrlCreateListViewItem("assiette 18x18|" &$array[0][1] & "|" & $array[0][2], $listview)
$lignetab1[1] = GUICtrlCreateListViewItem("vers a vin|" &$array[1][1] & "|" & $array[1][2], $listview)
$lignetab1[2] = GUICtrlCreateListViewItem("couteaux|" &$array[2][1] & "|" & $array[2][2], $listview)

$input = GUICtrlCreateInput("3", 350, 160, 30, 20)
$btn = GUICtrlCreateButton("copier", 400, 160, 50, 25)

GUISetState()


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
    $index = ControlListView ($Form1, "", $listview, "GetSelected")
    $produit = ControlListView ($Form1, "", $listview, "GetText", $index, 0)
    $prix = ControlListView ($Form1, "", $listview, "GetText", $index, 2)
    $prix = StringReplace($prix, ",", ".")
    $nb = GuiCtrlRead($input)
    $newitem = $produit & "| | | " & $nb & "|" & StringReplace($nb*$prix, ".", ",")
    GUICtrlCreateListViewItem($newitem, $listview1)
    EndSwitch
WEnd
 

[julie]

super mikell comme d'habitude merci je vais partir de ca pour continuer c'est super je passe en resolu

encore merci