Ultra-Xandre
 Desconectado
Mensajes: 36
|
Hola, quería saber como hacer para que un botón de VB6 reaccione al pulsar ENTER en vez de clicar. ¿Se podría hacer? Espero respuestas.
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
Hola,escribi en otro color de letra  ,podes hacer algo asi: Private Sub Command1_Click()
MsgBox "hola"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub saludos. |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
Ultra-Xandre
Desconectado
Mensajes: 36
|
Si, yame va. Ahora otra duda, ¿cómo hago para hacer un sendkeys Ctrl + C por ejemplo? Es decir, en vez de
SendKeys "Hola"
Hacer el mismo sendkeys pero en vez de "Hola" pues que pulse Ctrl + C
|
|
|
|
|
En línea
|
|
|
|
|
|
Ultra-Xandre
Desconectado
Mensajes: 36
|
No va. El problema es que selecciono text1.text lo le doi al botón que tiene ese code y luego lo que copió fue "SendKeys "^(C)""
|
|
|
|
|
En línea
|
|
|
|
cΔssiΔnі
Desconectado
Mensajes: 510
|
Control + C es para copiar al portapapeles... en ese sentido:
Selecciona el texto a copiar (por ejemplo) y luego presionas el botón donde le colocaste el sendkeys y ¡listo! se copio... no tiene más misterios... acá me funciona o ¿no es eso lo que querías hacer?
|
|
|
|
|
En línea
|
|
|
|
Ultra-Xandre
Desconectado
Mensajes: 36
|
Haber, yo le pongo ese code al botón y despues F5 y le doi a ese botón donde puse el comando una vez seleccionado el texto a copiar, y no me lo copia. :S
|
|
|
|
|
En línea
|
|
|
|
skullsp
Desconectado
Mensajes: 243
UpLoadSourceCode
|
seba... eso no se si anda bien, no hay que habilitar el KeyPreview del form antes???
o lo toma igual?
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
El problema es que al hacer click en el boton estas quitando el foco del textbox
|
|
|
|
|
En línea
|
|
|
|
cΔssiΔnі
Desconectado
Mensajes: 510
|
Es deducible, si pierde el foco ¡dáselo!  Option Explicit
Private Sub CmdCopiar_Click()
Text1.SetFocus
SendKeys "^(C)"
End Sub
Private Sub CmdPegar_Click()
Text1.SetFocus
SendKeys "^(V)"
End Sub
A mi me funcioooooonaaaaaaaa, tengo partes del cerebro inflamado (dolor de cabeza)  ¡saludos! |
|
|
|
« Última modificación: 10 Mayo 2008, 23:23 por cΔssiΔnі »
|
En línea
|
|
|
|
Ultra-Xandre
Desconectado
Mensajes: 36
|
Ahora me ha surgido otra duda. Perdonar si molesto:
¿Cómo hago para poner una imagen como botón? Es decir, un PictureBox solo que el problema es que si la imagen ocupa 10 cm y el PictureBox 11 cm me queda 1 cm en gris y no me gusta. ¿Hay alguna otra forma?
|
|
|
|
|
En línea
|
|
|
|
|
|
|
|
|
seba123neo
|
seba... eso no se si anda bien, no hay que habilitar el KeyPreview del form antes???
o lo toma igual? me mande cualquiera ,no es en el evento keypress del formulario es en el del boton... Private Sub Command1_Click()
MsgBox "hola"
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub asi anda,pero no se si notaron que cuando uno aprieta la tecla espaciadora arriba de un boton se aprieta el boton y se genera el evento click del boton ,hay qeu cancelar esa pulsacion saludos. |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
|
|
|
Autor
