quand je suis sur telle image
je ne puisse plus avancer
'code pour afficher le décors (ici le sol) Dim dec As Bitmap = My.Resources.terre e.Graphics.DrawImage(dec, 50, 100) dec.Dispose() 'code pour afficher un autre décors Dim dec2 As Bitmap = My.Resources.eau e.Graphics.DrawImage(dec2, 100, 200) dec2.Dispose() 'code pour afficher l'image du perso Dim perso As Bitmap = My.Resources.perso e.Graphics.DrawImage(perso, persox, persoy) perso.Dispose()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' bloquer vers le bas If persoy + persoh > b1.Top And persoy < b1.Top + b1.Height And persox > b1.Left And persox < b1.Left + b1.Width Then persoy = b1.Top - persoh End If 'bloquer vers le haut If persoy < b5.Top And persoy < b5.Top + b5.Height And persox > b5.Left And persox < b5.Left + b5.Width Then persoy = b5.Top + b5.Height End If 'bloquer vers la droite If persox + persow > b3.Left And persox < b3.Left + b3.Width And persoy < b3.Top + b3.Height And persoy > b3.Top Then persox = b3.Left - persow End If 'bloquer vers la gauche If persox > b4.Left And persox < b4.Left + b4.Width And persoy < b4.Top + b4.Height And persoy > b4.Top Then persox = b4.Left + persow End If