1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Besoin d'aide

Signaler
Messages postés
4
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
28 octobre 2007
 -
Messages postés
4
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
28 octobre 2007
 -
Salut,
Je suis débutant en VB , et j'espère faire un petit programme utilisant
le Drag and Drop :
je veux deplacer un Label1 et le déposer juste sur une Image1 sur le meme Form , et si l'utilisateur ne le depose pas sur l'image1 le Label1 revient à sa place précedente .
J'ai essayé avec les aides des rebriques de vbfrance ...
Mais je n'ai pas arrivé !

Je remerci toute personne qui me donne ce petit code .
Afficher la suite

6 réponses

Réponse 1 / 6
Messages postés
184
Date d'inscription
lundi 31 juillet 2006
Statut
Membre
Dernière intervention
26 mai 2016
 3
Tu n'arrives pas a quoi?
A selectionner l'option drag and drop ou faire revenir le label dans sa position initiale?.
Réponse 2 / 6
Messages postés
4
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
28 octobre 2007
Merci,
J'ai selectionné l'option drag and drop , mais quand j'execute mon programme je fais deplacer le label partout !
Moi je veux le poser juste sur l'image , sinon il faux il revienne à sa place precedante
Si vous pouvez me donner le code complet ,je vous remerci .
Réponse 3 / 6
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 18
Mets la propriété DragMode de ton Label à automatique
puis ce code seulement

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    Set Label1.Container = Picture1
    Label1.Left = 0      'modifier au besoin
    Label1.Top = 0      'modifier au besoin
End Sub

MPi²
Réponse 4 / 6
Messages postés
4
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
28 octobre 2007
Merci ,
Apres avoir coller le code :

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    Set Label1.Container = Picture1
    Label1.Left = 0      'modifier au besoin
    Label1.Top = 0      'modifier au besoin
End Sub

rien ne se passe !
Réponse 5 / 6
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 18
Comment ça... rien ne se passe (?)
peux-tu élaborer ?

MPi²
Réponse 6 / 6
Messages postés
4
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
28 octobre 2007
Merci,


J'ai fait tout mon effort sans arriver !


j'ai cherché partout sans résultat!


j'était bloqué sur le meme sujet en VB, et après j'ai debuté avec Delphi sur le meme drag and drop ,mais sans resultat positif !


Peut etre c'est la fin ! le chemin parait très difficil!
Merci pour tout aide.
Répondre Posez votre question