daniel
30 de Abril del 2003

necesito introducir un checbox en una celda de felxgrid

Ab?o
30 de Abril del 2003

Experimenta o seguinte:

Arranja 2 bitmap (check e uncheck) e coloca cada 1 deles num PictureBox, ou em outro contentor.

No evento Click, coloca o bitmap pretendido na
célula do msflexgrid

Set MsFlexGrid1.CellPicture=Picture1.Picture
MsFlexGrid1.CellAlignment(MsFlexGrid1.col)=flexAlignmentCenterCenter

marcos
30 de Abril del 2003

Prueba con esto :

'Cuando pinchas en la celda
Private Sub MsFlex_Click()
GridEditCheck Asc(" ")
End Sub


Sub GridEditCheck(KeyAscii As Integer)
'emplear la fuente correcta
Check.FontName = MsFlex.FontName
Check.FontSize = MsFlex.FontSize

'posicionar el Check
Check.Left = MsFlex.CellLeft + MsFlex.Left
Check.Top = MsFlex.CellTop + MsFlex.Top
Check.Width = MsFlex.CellWidth
Check.Height = MsFlex.CellHeight
Check.Visible = True
Check.SetFocus
End Sub


'Cuando deja la celda
Private Sub MsFlex_LeaveCell()
If cmbFormaPago.Visible Then
MsFlex= Check.value
Check.Visible = False
End If
End Sub