VB按钮制作，美化，颜色渐变等：部分代码 '自动重绘 Private Function AutoMouseAction() As tMouse_Status_Enum Dim intMouseAction As tMouse_Status_Enum If UserControl.Enabled = True Then If IsMouseDown Then If isMouseOver Then intMouseAction = Mouse_Down Else intMouseAction =
这是一个重绘的 MFC List control 控件 ，里面包含了重绘的progress control控件、combo box控件 以及一个button 控件，可以在list control 控件的单元格中插入这些控件，便于更好的展示信息，对于初学者学习重绘控件有一定的启示，里面的方法都是比较简单基础的。其中响应按钮消息和进度条消息都是自己定义的。
