Lunes 23 de Diciembre de 2024, 07:48
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Keyup
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Keyup (Leído 1135 veces)
roy
Miembro activo
Mensajes: 46
Keyup
«
en:
Miércoles 10 de Marzo de 2004, 21:45 »
0
hola a todos mi bronca es que estoy manejando las teclas de las funciones(F1...F12), con esto el usuario hace mas pronto su trabajo, asi que en lugar de tener un command1(boton en cual dar un click), que se me sirva para guardar alguna informacion, solo teclean F6 y efectua el codigo de un boton, pero cuando esta un datagrid no me funcionan, todo el codigo lo pongo en el KeyUp de la forma, para cual la inicializo, la propiedad keypreview a verdadero, y no se
que hacer, pero si me funciona la tecla ESC, pero ninguna de las funciones, si esta visible un DataGrid, asi que si me pueden ayudar se los agradecere
Tweet
elmango80
Miembro MUY activo
Mensajes: 149
Nacionalidad:
Re: Keyup
«
Respuesta #1 en:
Jueves 11 de Marzo de 2004, 07:12 »
0
Lo que tienes que hacer es que en el evento
KeyDown
o
KeyUp
del
DataGrid
le dices que ejecute el evento
KeyUp
de tu formulario, algo asi
Código: Text
Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Form_KeyUp KeyCode, Shift
End Sub
Citar
No soy bueno, tampoco soy malo sino todo lo contrario...
9tnix
Miembro MUY activo
Mensajes: 165
Nacionalidad:
Re: Keyup
«
Respuesta #2 en:
Jueves 11 de Marzo de 2004, 07:18 »
0
Salu2 Roy
Lo que podrias hacer es usar la api RegisterHotKey para registrar algunas teclas asi cuando las pulsas puedes usarlas para ejecutar alguna accion en este codigo que pongo lo que hace es registrar la combinacion CTRL+F para minimizar la ventana, espero que sirva de ayuda modificalo y luego me cuentas como te fue.
Código: Text
'//Pega esto en un form
Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type Msg
hWnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Sub ProcessMessages()
Dim Message As Msg
Do While Not bCancel
WaitMessage
If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
WindowState = vbMinimized
End If
DoEvents
Loop
End Sub
Private Sub Form_Load()
Dim ret As Long
bCancel = False
ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)
Me.AutoRedraw = True
Me.Print "Press CTRL-F to minimize this form"
Show
ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
bCancel = True
Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub
Un saludo zeekel ®
[KGT]
TP-Systems
our knowledge is our power!
roy
Miembro activo
Mensajes: 46
Re: Keyup
«
Respuesta #3 en:
Viernes 12 de Marzo de 2004, 22:59 »
0
GRACIAS A LOS 2, HE UTILIZADO TAMBIEN EL KEYUP DEL DATAGRID, Y HE TOMADO LA OPINION DEL ELMANGO80 Y DE AHI LLAMO EL CODIGO DEL KEYUP DE LA FORMA DE TODOS MODOS REVISARE EL CODIGO QUE ME ENVIAS ZEKEEL, MUCHAS GRACIAS
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Keyup