向各位老师们求救,想给自定义按钮增加一个功能,拜托各位大哥哥帮忙,好吗,谢谢

增加图片上去是弄成了，
目前还没找到它的产生 单击事件在那个过程里产生。还没看懂流程。

需要增加一个事件，然后这个事件需要在产生 单击 事件的过程中进行判断来决定是产生哪个事件
问题我目前还没找到这个单击事件是怎么产生的。

在 '重画控件
Private Sub ReDraw() 中接

        '-------------------------------------
        '开始绘制按钮了。img(mState)：图片是用
        'Image 控件组存放的，根据 mState 的值
        '调用相应的图片进行绘制。
        '-------------------------------------
这部分之后

        '****************************
        '如果状态BS_Point 或 BS_Pres时，鼠标在按钮上，显示关闭图片
        '***************************
        
        Dim lpPoint As POINT_API
        If mState = BS_Point Or mState = BS_Press Then
            GetCursorPos lpPoint
            ScreenToClient .hwnd, lpPoint
            If lpPoint.X < .ScaleLeft + .ScaleWidth - Image1(0).Width Or lpPoint.X > .ScaleLeft + .ScaleWidth Or _
               lpPoint.Y < .ScaleTop Or lpPoint.Y > .ScaleTop + Image1(0).Height Then
                '显示关闭按钮
                .PaintPicture Image1(1), .ScaleLeft + .ScaleWidth - Image1(0).Width - 2, 2
            Else
                .PaintPicture Image1(0), .ScaleLeft + .ScaleWidth - Image1(0).Width - 2, 2
            End If
        End If

第二部分
在
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'移动鼠标
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
这个过程中：

放在 End With 之前

    '鼠标移动时变动关闭按钮图标
    If X < .ScaleLeft + .ScaleWidth - Image1(0).Width Or X > .ScaleLeft + .ScaleWidth Or _
       Y < .ScaleTop Or Y > .ScaleTop + Image1(0).Height Then
        '显示关闭按钮
        .PaintPicture Image1(1), .ScaleLeft + .ScaleWidth - Image1(0).Width - 2, 2
    Else
        .PaintPicture Image1(0), .ScaleLeft + .ScaleWidth - Image1(0).Width - 2, 2
    End If

产生单击事件中。需要 读取鼠标位置，
当鼠标位置在 关闭按钮的 范围 之中，就产生 单击关闭 按钮事件，否则就产生 单击事件。

鼠标DOWM 事件， MOVE 事件 ，UP 事件 ，不用动。

谢谢版主,关闭按钮能不能增加一个独立事件呢

存在的BUG：
当在按钮上按住鼠标左键时，再移动鼠标出按钮区域，显示的关闭按钮无法被清除。
目前还不知道问题出在那里。没时间去测试了。

版主太伟大了,谢谢你,要是能消除这个BUG,就太完美了,论坛就少这样的按钮

版主为什么有时会发生错误呢

我没遇到过，好像是 与 SQL 通讯时出现问题导致的。你多百度一下吧。