Código:
Private Sub Form2_KeyDown(...) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Up
[b]_tablero.MoveUpH()[/b] -->[i] lo que pretendo con esta función es mover este objeto [b]( Picturebox)[/b] en mi tablelayout hacia arriba, del cual le he asignado unas dimensiones de 8X8, y el metodo de arriba [b]actualize la interfaz para moverlo por su tablero de las dimensiones dichas[/b].[/i]
End Select
También os facilito mi codigo del tablero:
Código:
Function moveUpH(ByVal heroe As Heroe) As Boolean
Dim coord = calculaCoordenada(heroe, 0, -1)
Return moveH(heroe, coord)
End Function
y este...
Código:
Function moveH(ByVal heroe As Heroe, ByVal c As Coordenadas) As Boolean
' Aquí lo que se hace cuando se mueve el héroe
If (TypeOf (e) Is Bloques) Then
Return False
ElseIf (TypeOf (p) Is Pastillas) Then
If (TypeOf (p) Is PastillaNormal) Then
' la consumo
Return True
ElseIf (TypeOf (p) Is Vitamina) Then
' Gano al villano
Return True
End If
End If
If (TypeOf (e) Is Villano) Then
' Duelo
Return False
End If
Return True
End Function