Formula para mover una imagen en un laberinto microsoft visual studio

Solo disponible en BuenasTareas
  • Páginas : 2 (279 palabras )
  • Descarga(s) : 0
  • Publicado : 23 de noviembre de 2010
Leer documento completo
Vista previa del texto
Public Class Form1 'Jaime Adan Rodriguez Bueno Aguilar'
Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click

Dim Ay As IntegerDim Ax As Integer

For Ax = 12 To 209 Step +2
Me.PictureBox1.Location = New Point(Ax, Me.PictureBox1.Location.Y)

Next

For Ay = 562 To 509 Step -2Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Ay)
Next

For Ax = 209 To 156 Step -2
Me.PictureBox1.Location = New Point(Ax,Me.PictureBox1.Location.Y)
Next
For Ay = 509 To 457 Step -2
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Ay)
Next

For Ax = 156 To 267 Step +2Me.PictureBox1.Location = New Point(Ax, Me.PictureBox1.Location.Y)
Next
For Ay = 457 To 405 Step -2
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X,Ay)
Next
For Ax = 267 To 315 Step +2
Me.PictureBox1.Location = New Point(Ax, Me.PictureBox1.Location.Y)
Next
For Ay = 405 To 300 Step -2Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Ay)
Next
For Ax = 315 To 370 Step +2
Me.PictureBox1.Location = New Point(Ax, Me.PictureBox1.Location.Y)Next
For Ay = 300 To 63 Step -2
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Ay)
Next
For Ax = 370 To 457 Step +2Me.PictureBox1.Location = New Point(Ax, Me.PictureBox1.Location.Y)
Next
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesPictureBox1.Click
Me.PictureBox1.Location = New Point(12, 562)
End Sub

Private Sub PictureBox1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Move...
tracking img