Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Xuleta

Problema

Recommended Posts

Eu ando na secundária curso de PC's... só que agora tenho de criar um programa..... alguem me ajuda com alguns codigos???

 

Já agora eu quero mesmo é saber como se faz para carregar uma form...... e depois foltar para a form principal!!!!

 

Como se faz mover uma label para cima e para baixo.... e para os lados com teclas do teclado tipo w(cima); s(baixo); a(esquerda); d(direita)......e também com as setas porque é um jogo para dois jogadores.... e já agora disparar com o (control) para os dois..

 

 

HELP ME http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amigo, para chamar os forms, você pode simplismente esconde-los, ou descarrega-los das

seguintes maneiras:

 

Private Sub Command1_Click()Form2.ShowForm1.HideEnd Sub

Ou

 

Private Sub Command1_Click()Form2.ShowUnload Form1End Sub

e quanto a mover a label use o seguinte codigo:

Private Sub Form_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 119Label1.Top = Label1.Top - 100Case 115Label1.Top = Label1.Top + 100Case 97Label1.Left = Label1.Left - 100Case 100Label1.Left = Label1.Left + 100End SelectEnd Sub

Flw

 

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha testei o que você falou sobre as setas, e realmente ele não retorna valor algum.E no teclado numérico, ele só recebe o valor dos numeros. Não tenho ideia porquê. :huh: flw

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ainda é mais facil assim:

 

 

form2.showunload form1

e para mover basta dares valores na posição da tua form

form1.top=12343 form1.left=5543'estes numeros são a posição da form

 

Cypher :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.