1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Ajuda] Visual Basic 2005

Discussão em 'Programação' iniciada por Negat1ve, 5 de Outubro de 2007. (Respostas: 1; Visualizações: 744)

  1. Ola.
    Estou a criar um projecto e tenho uma duvida.
    O problema é o seguinte:
    Eu tenho dois .ico's e crio uma 'animaçao' no VB:
    Código:
        Public Class Form1
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If pb1.Visible = True Then
                pb1.Visible = False
                pb2.Visible = True
            ElseIf pb1.Visible = False Then
                pb1.Visible = True
                pb2.Visible = False
            End If
    
        End Sub
    
        Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
            If e.KeyCode = Keys.Left Then
                pb1.Left = pb1.Left + 10
                pb2.Left = pb2.Left + 10
    
            End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            pb2.Visible = False
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Timer1.Enabled = True
        End Sub
    End Class
    Agora quero mover essa animação,por exemplo clico na tecla de direcção para a esquerda e a animação vai para a esquerda.
    A animação sucede-se mas não consigo mover esta.Alguma ajuda?
     
  2. balute

    balute Power Member

    Altera a propriedade KeyPreview no teu Form para True. Assim ele detecta as keys que são enviadas para qualquer objecto dentro do form.
     
    Última edição: 6 de Outubro de 2007

Partilhar esta Página