methode drag drop

Question

Salut.Une p'tite question:

-je voudrais permettre à l'utilisateur d'annuler une commande en cours en appuyant sur la touche "Echap" lorsque par exemple je suis en plein dans une commande de drag n drop et oups! je m'aperçois que je me suis trompé de bouton et donc réafficher mon curseur dans son état normal.
Dois-je utiliser la fonction keyascii ?

POUR CEUX QUI TROUVERONT CA UTILE :
voici un bout de code qui permet lors de l'appui sur un bouton l'opération de drag n drop et colle un symbole dans une msflexgrid.

Private Sub Command1_Click(Index As Integer)
'
bimage(k).Drag 1
'
End Sub

Private Sub MSFlexGrid1_DragDrop(Source As Control, x As Single, y As Single)
With MSFlexGrid1
If Source Is Image(index) Then
    .Row = .MouseRow
    .Col = .MouseCol
    Set .CellPicture = Image(index).Picture
End If
End With

End Sub

C'est très sommaire mais ça marche.

cs_equinoxe · Answer

Je rectifie mon code après relecture:

Private Sub Command1_Click(Index As Integer)
'
Image(index).Drag 1
'
End Sub

Ou Image(index) est une image jpeg ou bmp...

Methode drag drop

1 réponse

Discussions similaires