VB编写简易动态按钮控件

'添加一个UserControl1，加入以下代码：
Option Explicit
'将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入.
Private Declare Function SetCapture Lib “user32” (ByVal hwnd As Long) As Long
'为当前的应用程序释放鼠标捕获.
Private Declare Function ReleaseCapture Lib “user32” () As Long
Dim But As Integer '鼠标按下与弹起事件。
Public Event Click()

Private Sub UserControl_Initialize()
Call BosPic(0)
End Sub

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
But = Button '获得鼠标事件
Call BosPic(2)
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And X <= UserControl.Width And Y >= 0 And Y <= UserControl.Height Then
SetCapture UserControl.hwnd
If But <> 1 Then Call BosPic(1)
Else
ReleaseCapture '这里就是离开啦
But = 0
Call BosPic(0)
End If
End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And X <= UserControl.Width And Y >= 0 And Y <= UserControl.Height And But = 1 Then
RaiseEvent Click '触发单击事件。
End If
But = 0 '将鼠标弹起【释放】。
Call BosPic(0)
End Sub

Private Sub BosPic(Index As Integer)

Select Case Index
Case 0
UserControl.BackColor = RGB(255, 0, 0)
Case 1
UserControl.BackColor = RGB(0, 255, 0)
Case 2
UserControl.BackColor = RGB(255, 0, 255)
Case 3

End Select
End Sub

VB编写简易动态按钮控件相关推荐

学习笔记：VB.net动态添加控件数组并传递事件
学习笔记:VB.net动态添加控件数组并传递事件控件数组和事件 "中间人" 动态添加控件控件数组和事件新建一个用户窗体,在定义控件数组时,不能用Withevnets来定义数组 ...
用VB实现带图片的XP风格的按钮控件
虽然在VB里实现XP风格很简单,但是要使用XP风格同时又让按钮显示图片,则实现起来要麻烦一些,为此,我写了一个控件来实现前述功能,同时让读者可以从中了解XP主题界面的绘制过程. 使用办法很简单,在VB ...
datetimepicker控件怎么改变hover颜色_Qt编写自定义控件9-导航按钮控件
前言导航按钮控件,主要用于各种漂亮精美的导航条,我们经常在web中看到导航条都非常精美,都是html+css+js实现的,还自带动画过度效果,Qt提供的qss其实也是无敌的,支持基本上所有的CSS2 ...
MFC中动态创建控件以及事件响应实现方法
本文实例讲述了MFC中动态创建控件以及事件响应实现方法,分享给大家供大家参考.具体实现方法如下: 动态控件是指在需要时由Create()创建的控件,这与预先在对话框中放置的控件是不同的. 一.创建动态 ...
MFC中动态创建控件以及添加事件响应
本文实例讲述了MFC中动态创建控件以及事件响应实现方法,分享给大家供大家参考.具体实现方法如下: 动态控件是指在需要时由Create()创建的控件,这与预先在对话框中放置的控件是不同的. 一.创建动态 ...
MFC中动态创建控件及添加消息响应的方法实例
动态控件是指在需要时由Create()创建的控件,这与预先在对话框中放置的控件是不同的. 一.创建动态控件: 为了对照,我们先来看一下静态控件的创建. 放置静态控件时必须先建立一个容器,一般是对话框, ...
C++ Builder 动态创建控件
当开发类似解释程序或实现可视化操作功能等一类的应用程序时,都需要动态地创建控件(对象),而且还要为这些控件添加适当的事件处理程序,下面将介绍在C++Builder中如何实现基本的实现框架. 动态创建控 ...
asp.net动态添加控件学习
看了老师的教程后,自己一点感悟记录下来: 1.在页面提交后,动态生成的控件会丢失, 但如果生成控件的代码在pageload中,就可以,原理是每次生成页面都执行生成. 2.动态按件或页面原来控件, 在页 ...
pyqt5动态删除控件问题
pyqt5 用的滚动条,表格布局,里面动态添加控件可以但是动态删除,隐藏控件,第一次没反应,只有别的按钮点过后,这个才起作用.原因是因为: 调用了一个点击事件:self.dir_btns[0].cl ...

VB编写简易动态按钮控件

VB编写简易动态按钮控件相关推荐

最新文章

热门文章