Visual Basic - Vbkey

Life is soft - evento anual de software empresarial
   
Vista:

Vbkey

Publicado por Villa (3 intervenciones) el 16/01/2009 11:50:38
Hola, me esta dando problemas el siguiente codigo, me sale el MSG:
RUN-TIME error 13
type mismatch

He esta probando de diferentes maneras pero me sale lo mismo, este es el codigo me da el fallo cuando pasa por el "CALL"

Dim Camp As String
camp = "H"
Call DAR_Tecla(vbKey & camp)

Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Vbkey

Publicado por P3L30N2009 (701 intervenciones) el 16/01/2009 12:31:40
¿Cómo declaras el parámetro de entrada en la función DAR_Tecla?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Vbkey

Publicado por Villa (3 intervenciones) el 16/01/2009 12:46:40
tengo declarado esto:


Call keybd_event(Tecla, 0, 0, 0)

Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Vbkey

Publicado por P3L30N2009 (701 intervenciones) el 16/01/2009 12:57:03
NO, no es eso!

Me refiero al parámetro de entrada de la función o Sub

Function DAR_Tecla(ESTEESELPARAMETRODEENTRADA AS ....)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Vbkey

Publicado por villa (3 intervenciones) el 16/01/2009 15:54:36
Esto es entero:

Sub Dar_Tecla(Tecla As Long)

Call keybd_event(Tecla, 0, 0, 0)

Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Vbkey

Publicado por P3L30N2009 (701 intervenciones) el 16/01/2009 17:13:53
Efectivamente, estás intentando pasar como argumento una cadena cuando el procedimiento espera un Long.

Prueba así

Dim Camp As Long
Camp = Asc("H")
Call DAR_Tecla(Camp)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar