| Pregunta: | 46291 - CODIGO FUENTE VB 6.0 Q RECONOSCA EL TECLADO CONECTADO |
| Autor: | Emerson Huayanay Pozo |
| Hola estoy buscando comandos en visual basic 6.0 q reconosca dispositivos ejemplo si el teclado esta conectado o desconcetado
Ejemplo Cuando el teclado es desconectado q me de un aviso el programa "dispositivo desconectado" algo asi... Soy del Peru por favor si alguien conoce esos comandos... | |
| Respuesta: | Miguel Hernandez Liebano |
| Saludos Emerson investigando encontre lo siguiente:
te doy el codigo fuente, a ver si te resulta aca tienes las apis (colocalas en u modulo) Public Const SPI_GETKEYBOARDSPEED = 10 Public Const SPI_GETKEYBOARDDELAY = 22 Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long en la propiedad load del formulario: Dim r As Long Dim t As String Dim k As Long Dim q As Long k = GetKeyboardType(0) If k = 1 Then t = "PC or compatible 83-key keyboard" If k = 2 Then t = "Olivetti 102-key keyboard" If k = 3 Then t = "AT or compatible 84-key keyboard" If k = 4 Then t = "Enhanced(IBM) 101-102-key keyboard" If k = 5 Then t = "Nokia 1050 keyboard" If k = 6 Then t = "Nokia 9140 keyboard" If k = 7 Then t = "Japanese keyboard" label1 = "Tipo de Teclado: " & t q = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, r, 0) label2 = "Repeticion de Teclas" = " & r & " Segundos" q = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0) scrRepeatSpeed = r label3 = "Velocidad de Repeticion = " & r & " Caracteres por segundo." en todo esto si K es 0 es que no hay teclado conectado espero haberte ayudado cualquier otra duda puedes escribirme | |