Visual Basic - SABER CUANDO AGRANDA UNA COLUMNA EN UN MSFLEXGRID

Life is soft - evento anual de software empresarial
 
Vista:

SABER CUANDO AGRANDA UNA COLUMNA EN UN MSFLEXGRID

Publicado por Rodrigo Vera (63 intervenciones) el 05/08/2004 16:28:33
HOLA AMIGOS:

EN UN FORMULARIO TENGO UN MSFLEXGRID Y NECESITO CAPTURAR CUANDO UNO AGRANDA UNA COLUMNA, PUSE PUNTOS DE QUIEBRE EN TODOS LOS EVENTOS PERO NO OBTUVE RESULTADO ALGUNO.
ME GUSTARIA QUE ALGUIEN ME ORIENTARA SI ESO SE PUEDE HACER, O SI TENGO QUE CREAR UN CONTROL Y SI ES ASI COMO SE CREAN EVENTOS EN ESTE, ETC.

DE ANTEMANO 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:SABER CUANDO AGRANDA UNA COLUMNA EN UN MSFLEXGR

Publicado por Semper (74 intervenciones) el 05/08/2004 22:32:15
Puedes usar algo como esto ...

Dim aColSizes() As Long

Private Sub Form_Load()
Dim nCol As Long

' ...

ReDim aColSizes(Me.MSFlexGrid1.Cols - 1)
For nCol = 0 To Me.MSFlexGrid1.Cols - 1
aColSizes(nCol) = Me.MSFlexGrid1.ColWidth(nCol)
Next

End Sub

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nCol As Long

If y >= Me.MSFlexGrid1.Top + Me.MSFlexGrid1.RowHeight(0) Then
Exit Sub
End If

For nCol = 0 To Me.MSFlexGrid1.Cols - 1
If Not aColSizes(nCol) = Me.MSFlexGrid1.ColWidth(nCol) Then
MsgBox "Ancho Col " & nCol & " Ha cambiado de " & aColSizes(nCol) & _
" A " & Me.MSFlexGrid1.ColWidth(nCol)
aColSizes(nCol) = Me.MSFlexGrid1.ColWidth(nCol)
Exit Sub
End If
Next
End Sub
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