Menù emergente (Click Derecho)

15/11/2007 - 02:33 por Bennet | Informe spam
Cordial saludos a todos...
En un UserForm Tengo varios TextBox, quiero utilizar el botòn derecho del
mouse para copiar de un textBox a Otro, pero pareciera que èsta funciòn
estuviera desactivcada. Serà posible ejecutar èsta acciòn?

Mil gracias
S@lu2
 

Leer las respuestas

#1 Héctor Miguel
15/11/2007 - 04:13 | Informe spam
hola, !

En un UserForm Tengo varios TextBox, quiero utilizar el boton derecho del mouse para copiar de un textBox a Otro
pero pareciera que esta funcion estuviera desactivcada. Sera posible ejecutar esta accion?



si tu intencion es utilizar el boton derecho (o secundario) tambien para hacer el "pegado" -?-
habria que hacer algunas adaptaciones al codigo (probablemente) administrando la tecla "shift" para el pegado ?-

en via de mientras, puedes "mandar al portapapeles" el contenido/valor/texto de un control haciendo un clic-secundario +/- asi:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then Copiar_al_Portapapeles TextBox1
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then Copiar_al_Portapapeles TextBox2
End Sub
Private Sub Copiar_al_Portapapeles(Control As Object)
Dim Mi_Dato As DataObject
Set Mi_Dato = New DataObject
Mi_Dato.SetText Controls(Control.Name).Value
Mi_Dato.PutInClipboard
Set Mi_Dato = Nothing
End Sub

despues puedes usar el "ctrl-V" para pegar a partir del punto de insercion o reemplazas el texto seleccionado (en el otro control)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares