KeyPress em Visual Basic

[Snow #41]

pus um video a correr em vb e keria k se o utilizador nao kise-x ver o video carraga-se em ESC...
kal é o kodigo para isso??
URGENTE!

 

[Kayvlim]

O ESC é o KeyAscii 27. Isto, tendo em conta que estás a utilizar o VB6, uma vez que não mencionaste qual das linguagens estás a usar.

Isto

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then MsgBox "ESC"
End Sub

é um exemplo de como usar.

Espero ter ajudado

 

[Snow #41]

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyPress = 27 Then
Historia.Show
V_Historia.Hide
End If
End Sub

Este kodigo ta certo?? e a linguagem é Visual Baisc 6.0

 

[Snow #41]

posso por o keypress na form_load??

 

[Kayvlim]

Não é assim.

Podes colocar no Form_KeyPress, mas isso é só se o teu form não tiver controlos (o que acho dificil), ou se a propriedade Form1.KeyPreview = True. Nesse caso, podes colocar no Form_KeyPress.

O valor ASCII da tecla pressionada vai para a variável KeyAscii, e não KeyPress que é o que tens aí. O evento é KeyPress mas a variável que contém a tecla é a KeyAscii.

Experimenta o seguinte:

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then
        Historia.Show
        V_Historia.Hide
    End If
End Sub

Não te esqueças de indentar o código (colocar os espaços, como eu fiz). Torna-o mais legível.

Já agora, como e para que é que queres o KeyPress no Form_Load? Não vejo lógica nisso... não consigo perceber o que queres fazer assim. Mas a resposta mais simples é "não, não podes"