Discussion:
Copiar valor celda MsFlexGrid
(demasiado antiguo para responder)
Antonio
2007-03-06 14:28:20 UTC
Permalink
Hola a todos, tengo un MsFlexGrid, y me gustaria que el usuario al hacer
click sobre una celda pudiese copiar su valor dando al botón derecho, ¿sabeis
que propiedad hay que variar para que permita hacer esto?.

Muchas gracias
Antonio
2007-03-06 15:06:18 UTC
Permalink
Muchas gracias ferg por la respuesta, pero no me ha llegado, si eres tan
amable de enviarmela a ***@yahoo.es te lo agradezco .

Un abrazo
Antonio; te adjunto un ejemplo de como puedes hacer, explicando el uso del
objeto clipboard para copiar y pegar, y el popupMenu para presentar el menu
de copiar...
Saludos
--
Ing. Fernando D. Giletta
MP: 4035 CIEC
San Fco. Cba. Arg.
Post by Antonio
Hola a todos, tengo un MsFlexGrid, y me gustaria que el usuario al hacer
click sobre una celda pudiese copiar su valor dando al botón derecho, ¿sabeis
que propiedad hay que variar para que permita hacer esto?.
Muchas gracias
Rubén Vigón
2007-03-06 15:08:23 UTC
Permalink
Hola Antonio,

En el evento «MouseDown» comprueba si el botón pulsado ha sido el derecho, en cuyo caso obtén el contenido de la celda (mediante «TextMatrix», «MouseRow» y «MouseCol», limpia el portapapeles y asígnale el nuevo contenido. Por ejemplo, siendo "flx1" el nombre de tu control MSFlexGrid:

Private Sub flx1_MouseDown(Button As Integer,..., y As Single)
Dim strContenidoCelda As String
If Button = vbRightButton Then
strContenidoCelda = flx1.TextMatrix(flx1.MouseRow, flx1.MouseCol)
Clipboard.Clear
Clipboard.SetText strContenidoCelda
End If
End Sub

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org
Antonio
2007-03-06 15:16:05 UTC
Permalink
Muchas gracias Rubén por tu respuesta
Post by Rubén Vigón
Hola Antonio,
Private Sub flx1_MouseDown(Button As Integer,..., y As Single)
Dim strContenidoCelda As String
If Button = vbRightButton Then
strContenidoCelda = flx1.TextMatrix(flx1.MouseRow, flx1.MouseCol)
Clipboard.Clear
Clipboard.SetText strContenidoCelda
End If
End Sub
Un saludo!
Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org
Antonio
2007-03-06 15:14:35 UTC
Permalink
Ya me ha llegado muchas gracias ferg, y un saludo
Antonio; te adjunto un ejemplo de como puedes hacer, explicando el uso del
objeto clipboard para copiar y pegar, y el popupMenu para presentar el menu
de copiar...
Saludos
--
Ing. Fernando D. Giletta
MP: 4035 CIEC
San Fco. Cba. Arg.
Post by Antonio
Hola a todos, tengo un MsFlexGrid, y me gustaria que el usuario al hacer
click sobre una celda pudiese copiar su valor dando al botón derecho, ¿sabeis
que propiedad hay que variar para que permita hacer esto?.
Muchas gracias
Loading...