| juanjose472 | Fecha: Lunes, 08 Ago 2011, 1:04:20 PM | Mensaje # 1 |
 Sargento
Grupo: Administradores
Mensajes: 26
Estatus: Offline
| Este programa lo realizo un excelente amigo mio de la universidad, (Por lo visto solo el lo realizo), y pidiendo el permiso respectivo nos comparte este codigo para las personas que necesite de ayuda en los keycode y el uso de timer.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Detiene el proceso
If KeyCode = 13 Then
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
MsgBox "Presione cualquier tecla para continuar o Esc para Salir"
'Reanuda el proceso
Else
Timer1 = True
Timer2 = True
Timer3 = True
Timer4 = True
End If
'Cierra el programa
If KeyCode = 27 Then
MsgBox "By: Melvin Randolfo Cante Guerra"
MsgBox "201015883"
End
End If
'Hacia arriba
If KeyCode = vbKeyUp Then
Timer1.Interval = 40
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
End If
'Hacia abajo
If KeyCode = vbKeyDown Then
Timer1.Interval = 0
Timer2.Interval = 40
Timer3.Interval = 0
Timer4.Interval = 0
End If
'Hacia izquierda
If KeyCode = vbKeyLeft Then
Timer1.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 40
Timer4.Interval = 0
End If
'Hacia Derecha
If KeyCode = vbKeyRight Then
Timer1.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 40
End If
End Sub
'Hacia arriba
Private Sub Timer1_Timer()
LblTexto.Top = LblTexto.Top - 100
If LblTexto.Top < 0 Then
Timer1.Interval = 0
Timer2.Interval = 40
End If
End Sub
'Hacia abajo
Private Sub Timer2_Timer()
LblTexto.Top = LblTexto.Top + 100
If LblTexto.Top > Me.Height Then
Timer1.Interval = 40
Timer2.Interval = 0
End If
End Sub
'Hacia izquierda
Private Sub Timer3_Timer()
LblTexto.Left = LblTexto.Left - 100
If LblTexto.Left < 0 Then
Timer3.Interval = 0
Timer4.Interval = 40
End If
End Sub
'Hacia derecha
Private Sub Timer4_Timer()
LblTexto.Left = LblTexto.Left + 100
If LblTexto.Left > Me.Width Then
Timer3.Interval = 40
Timer4.Interval = 0
End If
End Sub
SE ADJUNTA EL PROGRAMA
|
| |
| |
