SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: abelsql3000 en Jueves 10 de Mayo de 2007, 07:25
-
Hola amigos deseo mover un boton de comando colocado en un formulario al presionar LAS TECLAS DIRECCIONALES
Se me ocurrio esto
Pero el boton se mueve si presiono tanto SHIFT Y Direccionales
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
Command1.Left = Command1.Left + 100
End If
End Sub
Yo solo deseo SOLO con teclas direccionales pero no se como realizarlo
Gracias por su apoyo
Atte Abel[/size]
-
Hola amigos
He estado indagando sobre la consulta de
Mover Controles con las Teclas Direccionales o Navegadores
Probando y probando
Me resulto
Aqui esta el codigo
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Picture1.Top = Picture1.Top - 50
Case vbKeyDown
Picture1.Top = Picture1.Top + 50
Case vbKeyRight
Picture1.Left = Picture1.Left + 50
Case vbKeyLeft
Picture1.Left = Picture1.Left - 50
End Select
End Sub
pero!!!!!!!!!!!!!!!!!!!!!
Solo funciona para los siguientes controles
Textbox,listbox,combobox,picturebox
Los demas Controles sólo se mueve si tienes Presionado el
SHIFT, CONTROL O ALT
Me gustaria mover El control IMAGE sin necesidad de presionar
SHIFT, CONTROL O ALTAlguien tiene alguna IDEA
Me dijeron que habia un API
Como es eso
Alguna otra idea
-
¿Te sirve :whistling: ....
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Image1.Top = Image1.Top - 50
Case vbKeyDown
Image1.Top = Image1.Top + 50
Case vbKeyRight
Image1.Left = Image1.Left + 50
Case vbKeyLeft
Image1.Left = Image1.Left - 50
End Select
End Sub
La propiedad la tiene la Picture1, pero se mueve el Image1 sin necesidad de Alt, Ctrl, etc.
-
:hola:
Hola amigos lo logre y este es el codigo :comp:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Image1.Top = Image1.Top - 50
Case vbKeyDown
Image1.Top = Image1.Top + 50
Case vbKeyRight
Image1.Left = Image1.Left + 50
Case vbKeyLeft
Image1.Left = Image1.Left - 50
End Select
End Sub
Gracias por su aporte :lol: