Voilà mon projet :
Créer un tableau périodique des éléments sous VB6, avec chaque case insépendante, et glisser ces cases sur un endroit (image), donnant au fur et à mesure la masse molaire.
Plus concrètement, j'aimerais récupérer une valeur numérique d'une case à chaque fois que j'en dépose une sur l'image, qui s'ajoute avec la précédente valeur récupérée.

Pouvez-vous m'aider ??? je vous en supplie, je suis à genou en train d'écrire !

Je ne sais pas si ça va t'aider mais pour tout ceux qui galère avec le glisser-déposer regardé ce que j'ai pu trouver:ça marche nickel!


Private MonIndex As Long

Private Sub Form_Load()
txtItem.Visible = False
lstDraggedItems.AddItem "bart"
lstDraggedItems.AddItem "homer"
lstDraggedItems.AddItem "marge"
lstDraggedItems.AddItem "lisa"
lstDraggedItems.AddItem "petitpapanoel"
End Sub

Private Sub lstDraggedItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtItem.Text = lstDraggedItems.Text
If txtitem.Text = "" Then Exit Sub
txtItem.Top = Y + lstDraggedItems.Top
txtItem.Left = X + lstDraggedItems.Left
txtItem.Drag
MonIndex = lstDraggedItems.ListIndex
End Sub

Private Sub lstDroppedItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtItem.Text = lstDroppedItems.Text
If txtitem.Text = "" Then Exit Sub
txtItem.Top = Y + lstDroppedItems.Top
txtItem.Left = X + lstDroppedItems.Left
txtItem.Drag
MonIndex = lstDroppedItems.ListIndex
End Sub

Private Sub lstDraggedItems_DragDrop(Source As Control, X As Single, Y As Single)
On Error GoTo EndHere
If lstDroppedItems.ItemData(lstDroppedItems.ListIndex) = 9 Then
Exit Sub
End If

lstDroppedItems.ItemData(lstDroppedItems.ListIndex) = 9
lstDraggedItems.AddItem txtItem.Text
lstDroppedItems.RemoveItem MonIndex
EndHere:
End Sub

Private Sub lstDroppedItems_DragDrop(Source As Control, X As Single, Y As Single)
On Error GoTo EndHere
If lstDraggedItems.ItemData(lstDraggedItems.ListIndex) = 9 Then
Exit Sub
End If
lstDraggedItems.ItemData(lstDraggedItems.ListIndex)= 9
lstDroppedItems.AddItem txtItem.Text
lstDraggedItems.RemoveItem MonIndex
EndHere:
End Sub



-------------------------------
Réponse au message :
-------------------------------

Voilà mon projet :
Créer un tableau périodique des éléments sous VB6, avec chaque case insépendante, et glisser ces cases sur un endroit (image), donnant au fur et à mesure la masse molaire.
Plus concrètement, j'aimerais récupérer une valeur numérique d'une case à chaque fois que j'en dépose une sur l'image, qui s'ajoute avec la précédente valeur récupérée.

Pouvez-vous m'aider ??? je vous en supplie, je suis à genou en train d'écrire !