ESTUDIO DE TECLAS Y RATÓN

un formulario, una etiqueta para averiguar los codigos de las teclas, label1,

8 etiquetas para poner 8 letras, “a,b,c,x,y,z y A,Z”

4 etiquetas para las teclas de dirección (“flechas”)

un frame que simula el ratón,

dos shapes y una etiqueta más en el frame para el estudio de los códigos del ratón.

Dim x1 As Integer

Dim y1 As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Label1.Caption = "Tecla = " & Chr(KeyCode) & ", Keycode = " & KeyCode & ", Shift = " & Shift

Select Case KeyCode

Case 65:

Label2.BackColor = vbRed: If Shift = 1 Then Label8.BackColor = vbGreen

Case 66:

Label3.BackColor = vbRed

Case 67:

Label4.BackColor = vbRed

Case 88:

Label5.BackColor = vbRed

Case 89:

Label6.BackColor = vbRed

Case 90:

Label7.BackColor = vbRed: If Shift = 1 Then Label9.BackColor = vbGreen

Case 37:

Label13.BackColor = vbRed

Case 38:

Label10.BackColor = vbRed

Case 39:

Label11.BackColor = vbRed

Case 40:

Label12.BackColor = vbRed

End Select

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

Label4.BackColor = vbWhite

Label5.BackColor = vbWhite

Label6.BackColor = vbWhite

Label7.BackColor = vbWhite

Label8.BackColor = vbWhite

Label9.BackColor = vbWhite

Label10.BackColor = vbWhite

Label11.BackColor = vbWhite

Label12.BackColor = vbWhite

Label13.BackColor = vbWhite

End Sub

Private Sub Form_Load()

x1 = 0

y1 = 0

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

Label4.BackColor = vbWhite

Label5.BackColor = vbWhite

Label6.BackColor = vbWhite

Label7.BackColor = vbWhite

Label8.BackColor = vbWhite

Label9.BackColor = vbWhite

Label10.BackColor = vbWhite

Label11.BackColor = vbWhite

Label12.BackColor = vbWhite

Label13.BackColor = vbWhite

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label14.Caption = "Boton = " & Button & ", Shift = " & Shift

Select Case Button

Case 1:

Shape1.BackColor = vbRed: If Shift = 1 Then Shape1.BackColor = vbGreen

Case 2:

Shape2.BackColor = vbRed: If Shift = 2 Then Shape1.BackColor = vbGreen

End Select

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

x1 = X - Frame1.Left

y1 = Y - Frame1.Top

If Button = 1 Then

Frame1.Left = Frame1.Left + x1

Frame1.Top = Frame1.Top + y1

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label14.Caption = "Boton = " & Button & ", Shift = " & Shift

Select Case Button

Case 1:

Shape1.BackColor = vbRed: If Shift = 1 Then Shape1.BackColor = vbGreen

Case 2:

Shape2.BackColor = vbRed: If Shift = 2 Then Shape1.BackColor = vbGreen

End Select

End Sub

Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

End Sub