扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这个简单。
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于网站设计制作、成都网站建设、九龙坡网络推广、微信小程序、九龙坡网络营销、九龙坡企业策划、九龙坡品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供九龙坡建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com
在VB点虐 中,每个事件都对应有两个参数:sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制,你直接 msgbox(sender) 将其输出,就能查看其中玄机。
获取控件名称代码:CType(sender, Control).Name。
关于用户控件的使用,点虐 与v6环境下是有那么小小的区别。v6环境下的用户控件编写后可以直接使用,而在点虐 环境下,则需要先生成控件库(dll,应用程序扩展格式),然后再将这个控件库导入到点虐 编程环境的工具箱上方可使用。其具体方法如下(以VS 2010,Visual Basic点虐 为例):1、新建项目-Visual Basic-Windows-Windows 窗体控件库-键入控件库名称(默认为Usercontrol1)确定;2、设计你的用户控件,完成后按“F7”进行编译;3、在该解决方案目录下找到控件库扩展(默认为UserControl1.dll),确认项目已经生成。在上三项为控件库DLL的生成方式,下面是调用方式:4、新建项目-Visual Basic-Windows-Windows 窗体应用程序-确定;5、打开工具箱,以任意一个控件上点击右键-选择项-点虐 framework组件-浏览-定位到生成的控件库扩展-确定;6、在工具箱中找到新添加的用户控件,将其拖至窗体中进行设计。经测,在点虐 环境下编译的用户控件是通用的。也就是说使用Visual Basic点虐 编写的用户控件,也可以在C#工程里使用,反之亦然。这充分体现了点虐 语言的交互性,在我看来,点虐 下各种语言能力相当,它们都是作为一种中间语言,编译出中间代码。所以,在点虐 环境下,采用混合编程也未尝不是一样提高效率的一种可选的方式。
子控件集合。
.controls
第一个子控件的子控件集合。
.controls(0).controls
Private ctrName As String '控件名称
Private isClick As Boolean '鼠标点击状态
'注:如果已知点击目标控件的父控件,ctrParent变量可以不要。
Private WithEvents ctrParent As Control '父控件
Private Sub ControlAMouseDown(sender As Object, e As MouseEventArgs) _
Handles Button1.MouseDown
isClick = (e.Button = MouseButtons.Left _
Or e.Button = MouseButtons.Right) '左键或右键按下
If isClick Then
Dim ctr As Control = CType(sender, Control) '转换Object为控件类型
ctrName = ctr.Name '获取控件名称
ctrParent = ctr.Parent '获取控件的父控件
End If
End Sub
'增加这个父控件事件,是为了正确判别鼠标弹起时是否已进入指定目标
Private Sub ParentMouseMove(sender As Object, e As EventArgs) _
Handles ctrParent.MouseMove '如果已取消ctrParent变量,改为相应的父控件
If isClick Then isClick = False '点击状态关闭
End Sub
Private Sub ControlBMouseUp(sender As Object, e As EventArgs) _
Handles Button2.MouseEnter
If isClick Then '如果点击状态为打开
Dim ctr As Control = CType(sender, Control) '转换Object为控件类型
MsgBox(ctrName " | " ctr.Name) '弹出消息显示结果
End If
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流