Duda con botón VB

[Ultra-Xandre]

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.

[seba123neo]

Hola,escribi en otro color de letra  ,podes hacer algo asi:

Código [Seleccionar] Expandir

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.

[Ultra-Xandre]

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

[cassiani]

Código (vb) [Seleccionar] Expandir

SendKeys "^(C)"

[Ultra-Xandre]

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)""

[cassiani]

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?

[Ultra-Xandre]

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

[SKL (orignal)]

seba... eso no se si anda bien, no hay que habilitar el KeyPreview del form antes???

o lo toma igual?

[cobein]

El problema es que al hacer click en el boton estas quitando el foco del textbox

[cassiani]

Es deducible, si pierde el foco ¡dáselo! 

Código (vb) [Seleccionar] Expandir


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!