Msflexgrid怎样实现每列标头鼠标放上后出现提示内容

Question

考虑到中文名太长，故我的Msflexgrid的 表头采用.FormatString="^No.|^SeqID|^DATADATE"设置，我想当鼠标移到每列表头时出现对应的中文提示（即编号、序号、数据日期），鼠标移出则消失，请问如何实现。

Answer 1

Private Sub Form_Load()
    MSFlexGrid1.FormatString = "^No.|^SeqID|^DATADATE"
End SubPrivate Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    With MSFlexGrid1
        If .MouseRow = 0 Then
            Dim sInfo()
            sInfo = Array("编号", "序号", "数据日期")
            .ToolTipText = sInfo(.MouseCol)
        Else
            .ToolTipText = ""
        End If
    End With
End Sub