Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: Juanma91 en 27 Mayo 2013, 19:54 pm



Título: Como controlar los eventos del tablero y actualizar interfaz
Publicado por: Juanma91 en 27 Mayo 2013, 19:54 pm
como podría hacerlo se que es tipo:   Private Sub Movimi_EventHandler(...) Handles _tablero.MovimientoEvent pero no sé sacarle punta a esto.. lo que pretendo es que desde ese metodo se llame y se vaya actualizando mi interfaz al mover un objeto picturebox sobre un tablelayout.. y APARTE este código tambien no se sacarle punta!

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