hola
tengo un pequeño codigo que he creado en un form, y funciona, pero lo que yo quiero es que funcione aun estando el programa minimizado, no se si me explico
la idea es crear un pequeño programa que cuando se esta ejecutando
al pulsar alguna tecla que he definido del 1 al 9 y las letras (a,b,c) estas suman un 1 a una variable y cuando la variable sea igual a 4 me muestre un mensaje
el codigo que aqui pongo es el que empleo aunque para qe funcione tuve que emplear un text1 y me gustaria que funcione sin nesesidad de usarlo y estando la aplicacion minimisada
espero haberme explicado bien, perdonen mis errores pero no me se expresar muy bien
gracias
aqui les dejo el codigo:
Dim num(1 To 12) As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("1") Then
num(1) = num(1) + 1
Else
If KeyAscii = Asc("2") Then
num(2) = num(2) + 1
Else
If KeyAscii = Asc("3") Then
num(3) = num(3) + 1
Else
If KeyAscii = Asc("4") Then
num(4) = num(4) + 1
Else
If KeyAscii = Asc("5") Then
num(5) = num(5) + 1
Else
If KeyAscii = Asc("6") Then
num(6) = num(6) + 1
Else
If KeyAscii = Asc("7") Then
num(7) = num(7) + 1
Else
If KeyAscii = Asc("8") Then
num(8) = num(8) + 1
Else
If KeyAscii = Asc("9") Then
num(9) = num(9) + 1
Else
If KeyAscii = Asc("a") Then
num(10) = num(10) + 1
Else
If KeyAscii = Asc("b") Then
num(11) = num(11) + 1
Else
If KeyAscii = Asc("c") Then
num(12) = num(12) + 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
For x = 1 To 12
If num(x) = 4 Then
msgbox "el numero " & x & " se pulso 4 veces ya"
End If
Next x
End Sub