ERROR AL ABRIR EL BUSCARDOR DE WINDOWS
Publicado por JUAN (49 intervenciones) el 30/08/2005 02:35:02
Hola, haber si alguien puede corregir éste error de código.
Lo que hace es lo siguiente, al pulsar el boton del formulario, debería abrir el buscardor de archivos de windows, pero no lo hace, da un error,¿que es?
Public Declare Sub keybd_event Lib "user32" _
(ByValbVk As Byte, _
ByValbScan As Byte, _
ByValdwFlags As Long, _
ByValdwExtraInfo As Long)
Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_APPS = &H5D
Private Sub Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H46, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Muchas gracias de antemano.
Lo que hace es lo siguiente, al pulsar el boton del formulario, debería abrir el buscardor de archivos de windows, pero no lo hace, da un error,¿que es?
Public Declare Sub keybd_event Lib "user32" _
(ByValbVk As Byte, _
ByValbScan As Byte, _
ByValdwFlags As Long, _
ByValdwExtraInfo As Long)
Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_APPS = &H5D
Private Sub Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H46, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Muchas gracias de antemano.
Valora esta pregunta
0