Problema

[Xuleta 0]

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

[preda 0]

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

[Jeff_henrique 0]

No ultimo exemplo você pega o codigo asc das setas do teclado....Só q no meu micro não retorna codigo asc p/ as setas, se sabe porque?

[preda 0]

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

[Jeff_henrique 0]

Eu fui verificar isso, e descobri q para pegar o codigo da seta, tem que usar a variavel KeyCode dos eventos KeyDown ou KeyUp do form...Flw

[ZL* 0]

É facil,

 

form2.show

form1.visible = False http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Cypher 0]

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 :)