Inicio
Buscar
Ingresar
Registrarse
Starfield: el juego que revolucionará el espacio y la tecnología
Hack x Crack - Comunidad de Seguridad informática
»
Programación
»
Visual Basic
»
problema en vb6 con teclado virtual
Imprimir
Páginas: [
1
]
Ir Abajo
Autor
Tema: problema en vb6 con teclado virtual (Leído 2521 veces)
hackmin
Visitante
problema en vb6 con teclado virtual
«
en:
Marzo 27, 2011, 08:58:32 pm »
Hola amigos de hackxcrack antes que nada quiero deciros que no e entrado en el foro por que me baje un virus por internet de un nota que me lo aconsejo y resultaba que lo que hacia era bloquearme todos los navegadores menos el internet explore..
con lo cual no podía entrar en esta web ya que bloqueaba parte del internet explore...
mm una vez dicho esto voy con mi duda xd
Bueno hice un proyecto con 33 comandos
y escribí el siguiente codigo:
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then cmdQ.BackColor = vbGreen
If KeyCode = vbKeyW Then cmdW.BackColor = vbGreen
If KeyCode = vbKeyE Then cmdE.BackColor = vbGreen
If KeyCode = vbKeyR Then cmdR.BackColor = vbGreen
If KeyCode = vbKeyT Then cmdT.BackColor = vbGreen
If KeyCode = vbKeyY Then cmdY.BackColor = vbGreen
If KeyCode = vbKeyU Then cmdU.BackColor = vbGreen
If KeyCode = vbKeyI Then cmdI.BackColor = vbGreen
If KeyCode = vbKeyO Then cmdO.BackColor = vbGreen
If KeyCode = vbKeyP Then cmdP.BackColor = vbGreen
If KeyCode = vbKeyA Then cmdA.BackColor = vbGreen
If KeyCode = vbKeyS Then cmdS.BackColor = vbGreen
If KeyCode = vbKeyD Then cmdD.BackColor = vbGreen
If KeyCode = vbKeyF Then cmdF.BackColor = vbGreen
If KeyCode = vbKeyG Then cmdG.BackColor = vbGreen
If KeyCode = vbKeyH Then cmdH.BackColor = vbGreen
If KeyCode = vbKeyJ Then cmdJ.BackColor = vbGreen
If KeyCode = vbKeyK Then cmdK.BackColor = vbGreen
If KeyCode = vbKeyL Then cmdL.BackColor = vbGreen
If KeyCode = vbKeyZ Then cmdZ.BackColor = vbGreen
If KeyCode = vbKeyX Then cmdX.BackColor = vbGreen
If KeyCode = vbKeyC Then cmdC.BackColor = vbGreen
If KeyCode = vbKeyV Then cmdV.BackColor = vbGreen
If KeyCode = vbKeyB Then cmdB.BackColor = vbGreen
If KeyCode = vbKeyN Then cmdN.BackColor = vbGreen
If KeyCode = vbKeyM Then cmdM.BackColor = vbGreen
If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbGreen
If KeyCode = 188 Then cmdComa.BackColor = vbGreen
If KeyCode = 190 Then cmdPunto.BackColor = vbGreen
If KeyCode = vbKeySpace Then cmdBarra.BackColor = vbGreen
If Shift = vbAltMask Then CmdAlt.BackColor = vbGreen
If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbGreen
If KeyCode = 111 Then CmdSlash.BackColor = vbGreen
End Sub
Hay todo bien,si presiono la tecla Q entonces el command se pone de color verde..
pero hay una cosa que quiero que haga mi teclado virtual y es que cuando yo deje de soltar la tecla Q se quite el color verde..
entonces para hacer eso necesito el evento keyUp
y bueno puse el siguiente codigo :
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then cmdQ.BackColor = vbbuttonface
End Sub
Bueno le di a f5 para probar si todo iba bien pero desgraciadamente al presionar la tecla Q ni se ponía verde no hacia nada..
luego quite vbbuttonface y puse vbwhite : if keycode = vbkeyQ then cmdQ.backcolor = vbwhite
luego presiono f5 para correr la aplicación y presiono la tecla Q y se puso de color blanco (white)
pero ese no era mi objetivo ademas cuando dejo de pulsar la tecla Q sigue siendo blanco
no se lo que hice mal, si alguien me puede ayudar se lo agradecería
un salu2
y gracias..
En línea
hackmin
Visitante
Re:problema en vb6 con teclado virtual
«
Respuesta #1 en:
Marzo 28, 2011, 03:57:02 pm »
Bueno ya lo hice yo solito xd
gracias de todas manera..
aquí pongo el codigo
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA:
LA.ForeColor = green
Case vbKeyB:
LB.ForeColor = green
Case vbKeyC:
LC.ForeColor = green
Case vbKeyD:
LD.ForeColor = green
Case vbKeyE:
LE.ForeColor = green
Case vbKeyF:
LF.ForeColor = green
Case vbKeyG:
LG.ForeColor = green
Case vbKeyH:
LH.ForeColor = green
Case vbKeyI:
LI.ForeColor = green
Case vbKeyJ:
LJ.ForeColor = green
Case vbKeyK:
LK.ForeColor = green
Case vbKeyL:
LL.ForeColor = green
Case vbKeyM:
LM.ForeColor = green
Case vbKeyN:
LN.ForeColor = green
Case vbKeyO:
LO.ForeColor = green
Case vbKeyP:
LP.ForeColor = green
Case vbKeyQ:
LQ.ForeColor = green
Case vbKeyR:
LR.ForeColor = green
Case vbKeyS:
LS.ForeColor = green
Case vbKeyT:
LT.ForeColor = green
Case vbKeyU:
LU.ForeColor = green
Case vbKeyV:
LV.ForeColor = green
Case vbKeyW:
LW.ForeColor = green
Case vbKeyX:
LX.ForeColor = green
Case vbKeyY:
LY.ForeColor = green
Case vbKeyZ:
LZ.ForeColor = green
Case vbKey0:
L0.ForeColor = green
Case vbKey1:
L1.ForeColor = green
Case vbKey2:
L2.ForeColor = green
Case vbKey3:
L3.ForeColor = green
Case vbKey4:
L4.ForeColor = green
Case vbKey5:
L5.ForeColor = green
Case vbKey6:
L6.ForeColor = green
Case vbKey7:
L7.ForeColor = green
Case vbKey8:
L8.ForeColor = green
Case vbKey9:
L9.ForeColor = green
Case vbKeyF1:
LF1.ForeColor = green
Case vbKeyF2:
LF2.ForeColor = green
Case vbKeyF3:
LF3.ForeColor = green
Case vbKeyF4:
LF4.ForeColor = green
Case vbKeyF5:
LF5.ForeColor = green
Case vbKeyF6:
LF6.ForeColor = green
Case vbKeyF7:
LF7.ForeColor = green
Case vbKeyF8:
LF8.ForeColor = green
Case vbKeyF9:
LF9.ForeColor = green
Case vbKeyF10:
LF10.ForeColor = green
Case vbKeyF11:
LF11.ForeColor = green
Case vbKeyF12:
LF12.ForeColor = green
Case vbKeyReturn:
Lintro.ForeColor = green
Case vbKeySpace:
Lspace.ForeColor = green
Case vbKeyEscape:
Lesc.ForeColor = green
Case vbKeyBack:
Lreturn.ForeColor = green
Case vbKeyUp:
Lup.ForeColor = green
Case vbKeyDown:
Ldown.ForeColor = green
Case vbKeyRight:
Lright.ForeColor = green
Case vbKeyLeft:
Lleft.ForeColor = green
Case vbKeyNumpad1:
LB1.ForeColor = green
Case vbKeyNumpad2:
LB2.ForeColor = green
Case vbKeyNumpad3:
LB3.ForeColor = green
Case vbKeyNumpad4:
LB4.ForeColor = green
Case vbKeyNumpad5:
LB5.ForeColor = green
Case vbKeyNumpad6:
LB6.ForeColor = green
Case vbKeyNumpad7:
LB7.ForeColor = green
Case vbKeyNumpad8:
LB8.ForeColor = green
Case vbKeyNumpad9:
LB9.ForeColor = green
Case vbKeyNumpad0:
LB0.ForeColor = green
Case vbKeyShift:
Lshift.ForeColor = green
Case vbKeyTab:
Ltab.ForeColor = green
Case vbKeySubtract:
Lsub.ForeColor = green
Case vbKeyAdd:
Ladd.ForeColor = green
Case vbKeyMultiply:
Lmm.ForeColor = green
Case vbKeyDivide:
Ldiv.ForeColor = green
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA:
LA.ForeColor = black
Case vbKeyB:
LB.ForeColor = black
Case vbKeyC:
LC.ForeColor = black
Case vbKeyD:
LD.ForeColor = black
Case vbKeyE:
LE.ForeColor = black
Case vbKeyF:
LF.ForeColor = black
Case vbKeyG:
LG.ForeColor = black
Case vbKeyH:
LH.ForeColor = black
Case vbKeyI:
LI.ForeColor = black
Case vbKeyJ:
LJ.ForeColor = black
Case vbKeyK:
LK.ForeColor = black
Case vbKeyL:
LL.ForeColor = black
Case vbKeyM:
LM.ForeColor = black
Case vbKeyN:
LN.ForeColor = black
Case vbKeyO:
LO.ForeColor = black
Case vbKeyP:
LP.ForeColor = black
Case vbKeyQ:
LQ.ForeColor = black
Case vbKeyR:
LR.ForeColor = black
Case vbKeyS:
LS.ForeColor = black
Case vbKeyT:
LT.ForeColor = black
Case vbKeyU:
LU.ForeColor = black
Case vbKeyV:
LV.ForeColor = black
Case vbKeyW:
LW.ForeColor = black
Case vbKeyX:
LX.ForeColor = black
Case vbKeyY:
LY.ForeColor = black
Case vbKeyZ:
LZ.ForeColor = black
Case vbKey0:
L0.ForeColor = black
Case vbKey1:
L1.ForeColor = black
Case vbKey2:
L2.ForeColor = black
Case vbKey3:
L3.ForeColor = black
Case vbKey4:
L4.ForeColor = black
Case vbKey5:
L5.ForeColor = black
Case vbKey6:
L6.ForeColor = black
Case vbKey7:
L7.ForeColor = black
Case vbKey8:
L8.ForeColor = black
Case vbKey9:
L9.ForeColor = black
Case vbKeyF1:
LF1.ForeColor = black
Case vbKeyF2:
LF2.ForeColor = black
Case vbKeyF3:
LF3.ForeColor = black
Case vbKeyF4:
LF4.ForeColor = black
Case vbKeyF5:
LF5.ForeColor = black
Case vbKeyF6:
LF6.ForeColor = black
Case vbKeyF7:
LF7.ForeColor = black
Case vbKeyF8:
LF8.ForeColor = black
Case vbKeyF9:
LF9.ForeColor = black
Case vbKeyF10:
LF10.ForeColor = black
Case vbKeyF11:
LF11.ForeColor = black
Case vbKeyF12:
LF12.ForeColor = black
Case vbKeyReturn:
Lintro.ForeColor = black
Case vbKeyEscape:
Lesc.ForeColor = black
Case vbKeySpace:
Lspace.ForeColor = black
Case vbKeyBack:
Lreturn.ForeColor = black
Case vbKeyUp:
Lup.ForeColor = black
Case vbKeyDown:
Ldown.ForeColor = black
Case vbKeyRight:
Lright.ForeColor = black
Case vbKeyLeft:
Lleft.ForeColor = black
Case vbKeyNumpad1:
LB1.ForeColor = black
Case vbKeyNumpad2:
LB2.ForeColor = black
Case vbKeyNumpad3:
LB3.ForeColor = black
Case vbKeyNumpad4:
LB4.ForeColor = black
Case vbKeyNumpad5:
LB5.ForeColor = black
Case vbKeyNumpad6:
LB6.ForeColor = black
Case vbKeyNumpad7:
LB7.ForeColor = black
Case vbKeyNumpad8:
LB8.ForeColor = black
Case vbKeyNumpad9:
LB9.ForeColor = black
Case vbKeyNumpad0:
LB0.ForeColor = black
Case vbKeyShift:
Lshift.ForeColor = black
Case vbKeyTab:
Ltab.ForeColor = black
Case vbKeySubtract:
Lsub.ForeColor = black
Case vbKeyAdd:
Ladd.ForeColor = black
Case vbKeyMultiply:
Lmm.ForeColor = black
Case vbKeyDivide:
Ldiv.ForeColor = black
End Select
End Sub
Un salu2
En línea
Imprimir
Páginas: [
1
]
Ir Arriba
Hack x Crack - Comunidad de Seguridad informática
»
Programación
»
Visual Basic
»
problema en vb6 con teclado virtual
Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso...
OK
Learn more