vincePG
-
25 avril 2001 à 15:35
cs_leseb
Messages postés9Date d'inscriptionlundi 28 janvier 2002StatutMembreDernière intervention27 janvier 2004
-
29 janv. 2002 à 11:03
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 ! :question)
cs_leseb
Messages postés9Date d'inscriptionlundi 28 janvier 2002StatutMembreDernière intervention27 janvier 2004 29 janv. 2002 à 11:03
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