在上面放一个Text控件 Private Sub MSFlexGrid1_EnterCell() Text1.Visible = True With MSFlexGrid1 Text1.Left = .Left + .CellLeft Text1.Top = .Top + .CellTop Text1.Width = .CellWidth Text1.Text = .TextMatrix(.Row, .Col) End With End SubPrivate Sub MSFlexGrid1_LeaveCell() With MSFlexGrid1 .TextMatrix(.Row, .Col) = Text1.Text End With End Sub
Private Sub MSFlexGrid1_EnterCell()
Text1.Visible = True
With MSFlexGrid1
Text1.Left = .Left + .CellLeft
Text1.Top = .Top + .CellTop
Text1.Width = .CellWidth
Text1.Text = .TextMatrix(.Row, .Col)
End With
End SubPrivate Sub MSFlexGrid1_LeaveCell()
With MSFlexGrid1
.TextMatrix(.Row, .Col) = Text1.Text
End With
End Sub