[VB] Déplacer une image ou un pictureRésolu

Question

Salut!! 

Je suis entrain de programmer un jeu d&#233;bile (je connais m&#234;me pas le but). Donc je souhaiterai que je puisse bouger l'image avec la souris. L'image doit uniquement se d&#233;placer sur des pictures, et je veux que certaines pictures soit pieg&#233;es (c'est &#224; dire que l'image ne peut pas passer dessus). Quelqu'un a-t-il des exemples de code?? 

Merci d'avance!!

Gobillot · Accepted Answer

si tu parles d'images plac&#233;es dans des Pictures, c'est tr&#232;s facile &#224; d&#233;placer, et s'il y a des endroits interdits, &#224; toi de g&#233;rer les collisions. 

Private Declare Function ReleaseCapture Lib "User32" () As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
       ReleaseCapture
       SendMessage Picture1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
       End If
End Sub

Daniel

adess00 · Answer

Tu dois utiliser mouse_event pour savoir ou et quand la souris se deplace apres tu bouge l image en fonction de sa mais n attend pas qu on te fasse ton prog

Aller au travail !

CraMiX · Answer

Merci beaucoup!! Mais comment je fait pour pieger une cases (picture), de fa&#231;on &#224; ce que le picture(pion avec MouseMove) ne puisse pas aller dessus. Et je souhaiterai aussi que les cases se pieges al&#233;atoirement &#224; chaque d&#233;marage. Comment faire??

Merci d'avance!

[VB] Déplacer une image ou un picture

3 réponses

Discussions similaires