Visual Basic - Seleccionar texto en un MSFlexGrid

Life is soft - evento anual de software empresarial
 
Vista:

Seleccionar texto en un MSFlexGrid

Publicado por NinioDios (15 intervenciones) el 23/05/2006 10:56:15
Hola,
Me gustaria saber como se selecciona el texto de un celda en u MSFelxGrid.
A lo que me refiero es al igual que en los campos de texto lo que sucede cuando se escribe algo asi:
Text1.SetFocus
Text1.SelStart=0
Text1.SelLenght=len(Text1.Text)

A ver si alguien lo sabe!!!! Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Seleccionar texto en un MSFlexGrid

Publicado por Nicolas (97 intervenciones) el 23/05/2006 12:17:15
Un ejemplo:
Private Sub MSFlexGrid1_Click()
Dim pinchado As String

' Si la propiedad SelectionMode está a (1 - By Row), indicará
' el nombre de la 1ª columna de esa fila. Si está a
' (0 - Free), indicará el texto de la celda pulsada

If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = "" Then
pinchado = "Campo nulo"
Else
pinchado = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
pinchado = pinchado & " Fila: " & MSFlexGrid1.Row & " Col: " & MSFlexGrid1.Col
End If
MsgBox pinchado
End Sub
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Seleccionar texto en un MSFlexGrid

Publicado por NinioDios (1 intervención) el 23/05/2006 12:34:27
Muchas gracias, pero no es esactamente lo que buscaba. Lo que me refier es a seleccionar el texto entero, por ejemplo que si pulso borrar se borre entero de una vez. Alomejor esque no me estoy explicando bien XD

Bueno muchas gracias y a ver si alguien lo sabe!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Seleccionar texto en un MSFlexGrid

Publicado por Nicolas (97 intervenciones) el 23/05/2006 12:52:16
No lo había entendido bien, prueba con este código:
Private Sub Command1_Click()
Dim r As Integer
r = MsgBox("¿Eliminar " & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col), vbInformation + vbYesNo, "Atención")
If r = vbYes Then
Me.MSFlexGrid1.RemoveItem (Me.MSFlexGrid1.Row)
End If
End Sub
Con esto eliminas la fila seleccionada en el Grid pero si está conectado a un recordset, no se eliminará el registro de la tabla. Habría que utilizar otro procedimiento.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar