主题：817事务日历改进-多个日历

没事不要乱改，要改先看懂代码啊。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历20140827.rar

留意红色代码

    Private Sub My_日历标签_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter, pl.MouseEnter
        Me.pl.ForeColor = Color.Red
        Dim str As String = _主表dr(n主题) & vbCrLf & _主表dr(n内容)
        zxbToolTip.SetToolTip(sender, str)
    End Sub