Tenho um formulário e adicionei a ele , um botão e uma imagem ,quero saber se e possível criar uma sub rotina onde ao clicar no botão a imagem mova se de um lado para o outro?se for possível como fica no . vb6 Desde já a gradeço a ajuda de vocês abraços
1 Resposta
É possível fazer isso criando um Timer
em seu Form
, como mostrado na figura abaixo:
Em seguida, basta ajustar as propriedades Interval
e Enabled
do Timer
criado, para poder criar um evento repetitivo (onde você fará seu PictureBox
se mover), como nesse código:
Option Explicit
Private Indo As Boolean
Private Sub Form_Load()
'Inicialmente, desliga o timer, e configura seu intervalo
'(quanto menor, mais rápido)
Timer1.Enabled = False
Timer1.Interval = 10
End Sub
Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
'10 é um valor arbitrário (quanto maior, mais vai se mover)
If Indo = True Then
Picture1.Left = Picture1.Left + 10
'Se bateu no lado direito, volta
If Picture1.Left >= ScaleWidth - Picture1.Width Then
Indo = False
Picture1.Left = ScaleWidth - Picture1.Width
End If
Else
Picture1.Left = Picture1.Left - 10
'Se bateu no lado esquero, vai de novo
If Picture1.Left <= 0 Then
Indo = True
Picture1.Left = 0
End If
End If
End Sub
Sem utilizar Timer
, conforme pedido (não é a melhor prática):
Private Sub Command1_Click()
Do While True
If Indo = True Then
Picture1.Left = Picture1.Left + 10
'Se bateu no lado direito, volta
If Picture1.Left >= ScaleWidth - Picture1.Width Then
Indo = False
Picture1.Left = ScaleWidth - Picture1.Width
Exit Do
End If
Else
Picture1.Left = Picture1.Left - 10
'Se bateu no lado esquero, vai de novo
If Picture1.Left <= 0 Then
Indo = True
Picture1.Left = 0
Exit Do
End If
End If
DoEvents
Loop
End Sub
Com 4 botões, um para cada direção, conforme pedido:
Option Explicit
Private dir As Long
Private Sub cmdUp_Click()
dir = 0
Timer1.Enabled = True
End Sub
Private Sub cmdLeft_Click()
dir = 1
Timer1.Enabled = True
End Sub
Private Sub cmdDown_Click()
dir = 2
Timer1.Enabled = True
End Sub
Private Sub cmdRight_Click()
dir = 3
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Select Case dir
Case 0
Picture1.Top = Picture1.Top - 10
Case 1
Picture1.Left = Picture1.Left - 10
Case 2
Picture1.Top = Picture1.Top + 10
Case 3
Picture1.Left = Picture1.Left + 10
End Select
End Sub
-
-
Oi @user7752. Você pode fazer isso sem o
Timer
. Basta utilizar umWhile
,For
, ou qualquer outra estrutura de laço que desejar, colocando ao final do laço o comandoDoEvents
, para não "travar" a janela. Mas essa solução não é muito aconselhável ;) 30/05/2014 às 12:04 -
Tentei com o comando DoEventes dei o primeiro click move apenas uma vez , não move se ate que eu de um outro click no botao e eu queria que ao dar um click ele mova se sobre o form, não tem uma outra maneira eficaz de fazer isto?– user775230/05/2014 às 13:31
-
Oi @user7752. Fiz uma versão (adicionada na resposta). Mas, honestamente, fica tão, tão rápido que você não verá a animação. Realmente é só para você matar sua curiosidade, porque é uma péssima técnica em aplicações no dia-a-dia ;) 30/05/2014 às 14:07
-
A imagem so move apenas para um unico lado e o processo é muito rapido Não tem como ser um pouco mais lento como faz um leitor de musica vlc por exemplo quando estiver a tocar de como se movimenta é como gostaraa que fiicase.– user77522/06/2014 às 8:06