自定义按钮控件修改增加一个功能 - 编程论坛

#2

风吹过b2012-03-22 15:52

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

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

#3

风吹过b2012-03-22 16:07

在 '重画控件
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

#4

风吹过b2012-03-22 16:09

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

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

#5

sdhtli2012-03-22 16:18

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

#6

风吹过b2012-03-22 16:31

只有本站会员才能查看附件，请登录

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

#7

sdhtli2012-03-22 17:30

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

#8

sdhtli2012-03-26 10:04

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

只有本站会员才能查看附件，请登录

#9

风吹过b2012-03-26 11:38

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