Public Class Form1
'CREO UNA FUNCIO QUE DESACTIVA LES FLETXES. AIXI ESTALVIO REPETIR CODI
Private Sub DesactivaFletxes()
Amunt.Enabled = False
Avall.Enabled = False
Esquerra.Enabled = False
Dreta.Enabled = False
End Sub
'QUAN ES CARREGUI EL FORMULARI
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CRIDA A LA FUNCIO QUE DESACTIVA LES FLETXES
DesactivaFletxes()
End Sub
'QUAN ES PREM AVALL ALGUNA TECLA
Private Sub TextBox1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
'CRIDA A LA FUNCIO QUE DESACTIVA LES FLETXES
DesactivaFletxes()
'SI PREM TECLA FLETXA AMUNT
If e.KeyCode = Keys.Up Then
'IL.LUMINA ETIQUETA AMUNT
Amunt.Enabled = True
'MOU BOLA AMUNT
Bola.Top = Bola.Top - 10
End If
'SI PREM TECLA FLETXA AVALL
If e.KeyCode = Keys.Down Then
'IL.LUMINA ETIQUETA AVALL
Avall.Enabled = True
'MOU BOLA AVALL
Bola.Top = Bola.Top + 10
End If
'SI PREM TECLA FLETXA ESQUERRA
If e.KeyCode = Keys.Left Then
'IL.LUMINA ETIQUETA ESQUERRA
Esquerra.Enabled = True
'MOU BOLA ESQUERRA
Bola.Left = Bola.Left - 10
End If
'SI PREM TECLA FLETXA DRETA
If e.KeyCode = Keys.Right Then
'IL.LUMINA ETIQUETA DRETA
Dreta.Enabled = True
'MOU BOLA DRETA
Bola.Left = Bola.Left + 10
End If
End Sub
End Class

Darrera modificació: dijous, 7 de febrer 2019, 14:00