按钮制作与美化 VB6.0

【文件属性】：

文件名称：按钮制作与美化 VB6.0

文件大小：20KB

文件格式：TXT

更新时间：2017-04-18 10:54:54

VB 按钮制作

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 = Mouse_Up End If Else If isMouseOver Then intMouseAction = Mouse_Move Else intMouseAction = Mouse_Up End If End If Else intMouseAction = Mouse_Enabled End If AutoMouseAction = intMouseAction End Function