Discussion :

[Bomba]

Bonjour,

J'aimerais savoir comment programmer le drag and drop entre 2 picturebox de 2 form différentes. Je m'explique, j'ai des images dans une form ouverte et je veux pouvoir le glisser dans le picturebox de lautre form, le lâcher et qu'automatiquement cette petite image s'ajoute en tant qu'élément nouveau dans la picturebox.

Merci

[jmfmarques]

Hou la......

Ce n'est plus du drag and drop mais du drag, jump and drop !

1) Explique-nous ce que tu connais déjà et sais faire en drag and drop
2) comment sais-tu déjà manier le clipboard
3) où en es-tu de tes connaissances en manipulation de graphiques ?

Si tu n'es pas déjà suffisamment à l'aise, commence par l'acquisition de ces connaissances.
Dans le cas contraire, montres-nous ce que tu sais déjà faire.

On verra ensuite...

[Bomba]

De mon côté ce que je connais déjà côté picturebox est assez faible pour le moment, je me base plus sur d'autres façons de programmer.

J'ai une carte avec création de "tokens" ou "petites images" par dessus, je peux les déplacer, suivre les mouvements, envoyer les informations par tcp, discutter entre ordinateurs afin d'avoir la même carte et les mêmes positions des tokens.

Ce que je veux faire est assez différent, j'avais cru possible de simplement prendre l'élément en variable et lorsque cet élément est relâché dans un autre picturebox qu'automatiquement je cré un élément de plus dynamiquement. Mais j'avous être un peu embêté là, je n'ai vraiment pas travaillé avec le drag and drop mais par contre je comprend assez rapidement un code, j'ai quand même appris VB en 2 jours seul et lorsque je lis un code je le comprend complètement ce n'est pas pour rien que j'ai fais des études là dedans

[méphistopheles]

j'ai quand même appris VB en 2 jours seul et lorsque je lis un code je le comprend complètement

bon ben si tu à appris vb, on n'a rien à t'aprendre... perso, je ne le connait toujours pas. Sinon, regarde dans la faq, il y as un article sur les drag and drop que tu devrais comprendre immédiatement.
une fois cela fait, on pourra passer à la suite.

[jmfmarques]

Je regrette, Bomba, mais ne compte pas sur moi pour t'accompagner dans une telle démarche qui consisterait, surtout, à "brûler" des quantités importantes d'étapes pour aboutit à du copier-coller très approximatif...


Etudies donc et reviens avec ta demande quand tu en sauras suffisamment pour me montrer à quel point tu as su t'investir...

A bientôt, peut-être

8)

Une autre (toute ?) petite chose :

quand tu écris :

entre 2 picturebox de 2 form différentes. Je m'explique, j'ai des images dans une form ouverte et je veux pouvoir le glisser dans le picturebox de lautre form

c'est très, très différent de ce que tu écris après :

j'avais cru possible de simplement prendre l'élément en variable et lorsque cet élément est relâché dans un autre picturebox qu'automatiquement je cré un élément de plus dynamiquement

Le 1er pas à faire, en développement, c'est, vois-tu, de mettre de l'odre dans ses idées... le reste vient en général assez facilement ensuite...

[Bomba]

J'ai de l'ordre dans mes idées, je demandais conseil principalement, c'est certain que je peux faire moi même mais j'espérais avoir des conseils de professionnels au lieu de me retrouver encore une fois à faire l'auto didacte, chercher par moi même et trouver comment faire d'ici 2 ou 3 mois.

C'est assez dommage de voir les réponses souvent subtile qui incitent à dire au posteur de demande d'aide "écoute, si tu veux de l'aide ne vient pas nous voir, cherche par toi même et trouve par toi même vu que tu semble être si bon en programmation" il m'est arrivé souvent de poster des questions et que j'aille reçu ces réponses. Je sais que c'est purement bénévolement que vous répondez alors lorsqu'un commentaire dit constructif doit être fait faite le sinon n'écrivez pas, c'est impersonnel et malsains d'après moi. Je m'adresse surtout à méphistopheles, nous sommes en majorité des adultes responsables, agissons avec courtoisie. J'aide ici moi aussi, je ne suis pas qu'un être inutile dans vos vies

[jmfmarques]

Tu as lestement interprété ce que t'a dit Mephisto par :

(ton interprétation : ) si tu veux de l'aide ne vient pas nous voir, cherche par toi même et trouve par toi même vu que tu semble être si bon en programmation

Alors qu'il tendait à t'expliquer que :



il ne faut pas confondre aide et soupe servie toute chaude, sans travail personnel autre que les efforts faits pour copier et coller quelque part, en ajoutant sans gêne qu'on a tout compris...

Je regrette, bomba, mais ne comptes plus sur moi ...



PS : 1) je note que tu as commencé à faire des efforts pour rester cohérent. C'est un bon début. continues...
2) regardes l'heure de ce message et saches que je me suis réveillé il y a déjà 2 heures et que je suis en train de "rebûcher" VB, que j'ai laissé de côté (ainsi que tout ce qui concerne l'informatique, y compris le clavier sur lequel je suis) pendant plus de 3 ans pour des raisons indépendantes de ma volonté...
3) saches également que, bien que je n'ai pas encore "posté" une demande d'aide au développement sur ce forum, il m'aide considérablement à me rafraichir la mémoire. Les réponses données aux autres me conduisent, chaque fois, à tester mes connaissances. Je lis donc tout et en profite.. Voilà ce à quoi, entre autres, peut servir ce forum..

[ProgElecT]

Les exemples complets permettent de progresser.
Il me semblait que répondre à une personne devait profiter à celui qui avait posé la question mais aussi forcement à tous ceux intéressé par la dite question.
Cela permet à chaque un d'avancer dans le bon sens.


dans 2 forms, 2 pictureboxs, AutoSeize = true
dans la Form1.Picture1 charger une image

dans la Form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Me.Top = 0: Me.Left = 0
Form2.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Form2
If Err.Number <> 0 Then On Error GoTo 0
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 2 Then
 Picture1.Drag (vbBeginDrag)
End If
End Sub

dans la Form2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Load()
Me.Left = Form1.Left + Form1.Width
Me.Top = Form1.Top
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Form1
If Err.Number <> 0 Then On Error GoTo 0
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Drag (vbCancel)
'passage de l'image sur cette Form
Picture1.Picture = Form1.Picture1.Image
Me.Height = Picture1.Top + Picture1.Height + 450
Me.Width = (Picture1.Left * 2) + Picture1.Width + 120
'evantuellement pour effacer la picture de Form1
Form1.Picture1.Picture = LoadPicture()
End Sub

Salut

[jmfmarques]

C'est bien, ProgElecT....
Mais tu as écrit :

Les exemples complets permettent de progresser.

alors, pour que les autres progressent vraiment :

tu es prié de commenter chacune des lignes, pour que chacun comprenne ce qu'elle fait... et pour nous montrer que tu as toi-même bien compris ce qu'elle font...

on attend

[ProgElecT]

alors, pour que les autres progressent vraiment :
tu es prié de commenter chacune des lignes

Il faudrait savoir si tous doit être éludé, mettre un code permet d’expérimenter en modifient des paramètres et voire ce qui ce passe.
Moi je suis satisfait quand on me donne un code qui fonctionne et me permet de passer à la suite,
Je revient plus tard sur l’endroit ou j’avais le problème pour comprendre la solution qui ma permis de continuer et j’apprend ……

Le week-end je ne programme que pour le plaisir.
Je ne vais pas me mettre à polémiquer sur ce site, les contrariétés suffisent au boulot.
Donc je ne posterais plus sur ce sujet.

Sur ce, salut

[jmfmarques]

A ProgElecT

Excuses-moi : j'ai lu trop vite et croyais que c'était un "Post" de Bomba, ce qui explique ma réaction

Encore mille excuses.

[jmfmarques]

A ProgElecT, indépendament de ce que j'ai écrit dans mon message précédent et que je réitère (en ce qui concerne mes excuses) :

Je ne sais pas de quelle version de VB dispose Bomba et ignore moi-même (je n'ai que VB5 sous la main) tout ce que peut faire VB6.

Mais, avec VB5, par exemple : je me suis amusé à mettre en oeuvre le code que tu as passé, avec le plus grand scrupule.... dans changer (ni bien sur ajouter) un iota : çà n'a pas marché !!!!! Pourquoi ?

Que manque-t-il ? Qu'y a-t-il qui empêche la "portabilité" ? Autant de questions que je me ... et ... te pose .

Je garde ouvert le projet correspondant à ton code et attends avec impatience tes corrections pour pouvoir en aprécier l'effet.. avant que Bomba ne se réveille et demande à son tour des explications.

Toutes mes amitiés



PS : rappel de ce que j'ai eu (voir plus haut) l'occasion de dire à notre ami Bomba :

il ne faut pas confondre aide et soupe servie toute chaude, sans travail personnel autre que les efforts faits pour copier et coller quelque part, en ajoutant sans gêne qu'on a tout compris...

Dans la foulée : peux-tu comprendre pourquoi le code que tu as fourni lors du sujet
http://www.developpez.net/forums/vie...183&highlight=

1) ne répondait pas à la question
2) était truffé de choses, y compris d'objets (un label, entre autres) n'ayant rien à voir la dedans ?
Dis-moi ... c'était également du copier-coller ??

[ProgElecT]

1) ne répondait pas à la question
2) était truffé de choses, y compris d'objets (un label, entre autres) n'ayant rien à voir la dedans ?
Dis-moi ... c'était également du copier-coller ??

Le sujet du message etant:

Bouton graphique et texte

Je ne crois pas être hors sujet, mais il manquait des précisions.
Très souvent je fait un projet le plus rapidement possible, le vérifie, mais il m’arrive d’oublier de préciser les paramètres pouvant être données au moment de la création du projet , les voici donc

1 Form, 1 PictureBox, 1 CommandButton et 1 Label
form.scalemode = 3 (donc en pixel)
picturebox.autosize= true, picturebox.Autoredraw=true, picturebox.scalemode = 3 (donc en pixel),
dans le picturebox charger une image.
Label.autosize = true
CommandButton.caption = "" , CommandButton.style = 1 (donc en Graphical)

Pour le code il fonctionne sous VB6
Le commentaire sur le commandbutton est dessiné en fonction du label

jmfmarques, si tu veux vérifier retourne voir le sujet

Salut