[VB.NET]显示鼠标位置
来源:互联网 发布:linux 更改home空间 编辑:程序博客网 时间:2024/05/01 14:30
实例说明
在本实例中,我们将制作一个显示鼠标位置的应用程序。用户可以确定是否显示鼠标位置。程序运行结果如图65-1所示。
图65-1 运行结果
技术要点
<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>l 鼠标位置的确定
l ImageList和ToolBar控件的结合使用
l 按钮切换状态的设置
实现步骤
■ 新建项目
打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"MousePosition:",然后选择保存路径。单击"确认"。
■ 添加控件
向当前窗体上添加一个ImageList控件,用于装入图形供ToolBar控件使用;一个ToolBar控件用于显示图标;一个StatusBar控件用于显示鼠标位置;一个Label控件用于说明鼠标如何操作。
■ 设置属性
右击ImageList控件,在弹出的属性页对话框中为ImageList控件添加一个图像,并将关键字设为"ShowMousePos"(ImageList控件的使用方法,读者可以参考前面实例);同样,将ToolBar控件和ImageList控件关联。
注意:此时要将"按钮"页中的"样式"栏改为"1-tbrCheck",默认值是"0-tbrDefault"。
■ 添加代码
Private Sub Form1_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Dim Button As Short = eventArgs.Button / &H100000
Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys / &H10000
Dim X As Single = eventArgs.X
Dim Y As Single = eventArgs.Y
'当鼠标移动时,相应的状态栏也应该改变
'判断工具栏的按钮是否按下,如果是,则显示鼠标位置
If Toolbar1.Buttons(1).Value = MSComctlLib.ValueConstants.tbrPressed Then
StatusBar1.Panels(1).Text = "当前鼠标位置:" & X & "," & Y
'否则,显示空
Else
StatusBar1.Panels(1).Text = ""
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMSComctlLib.IToolbarEvents_ButtonClickEvent) Handles Toolbar1.ButtonClick
'当单击工具栏时,立刻改变状态栏的信息;要不会出现单击按钮后不发生任何改变
Select Case eventArgs.Button.Key
Case "ShowMousePos"
If Toolbar1.Buttons(1).Value = MSComctlLib.ValueConstants.tbrPressed Then
StatusBar1.Panels(1).Text = "当前鼠标位置:0,0"
Else
StatusBar1.Panels(1).Text = ""
End If
Case Else
End Select
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例比较简单,但是其中用到的知识点比较多,使用了ImageList,ToolBar,StatusBar等控件,这些控件在以后是经常要使用到的,请读者注意掌握!
- [VB.NET]显示鼠标位置
- vb显示鼠标位置
- VB.Net WebBrowser如何取得鼠标点击位置的标签
- VB下获得鼠标位置
- 显示自定义动画鼠标或彩色图标(VB.net)
- 显示鼠标坐标位置
- 状态栏显示鼠标位置
- html5-----显示鼠标位置
- vb.net 鼠标控制
- 显示鼠标当前屏幕位置
- 显示鼠标当前屏幕位置 .
- 根据鼠标位置显示div
- Ogre 获取显示鼠标位置
- 【wxPython】wxPython显示鼠标位置
- vb 锁定鼠标到某一位置
- [VB.NET源码]全局鼠标
- [VB.NET源码]全局鼠标
- 用VB.NET实现AUTOCAD中鼠标选中后显示事件
- [VB.NET]随机图形
- [VB.NET]简单图形
- Rails for Java Developers [ILLUSTRATED]
- [VB.NET]小闹钟
- 这个冬天不太冷
- [VB.NET]显示鼠标位置
- Mastering TypoScript: Typo3 Website, Template, and Extension Development
- [VB.NET]图片浏览器
- FORM表单
- [VB.NET]读写INI文件
- LINQ: The Future of Data Access in C# 3.0
- [VB.NET]读写注册表
- [VB.NET] 文件查询系统
- 怎么判断数据库中的某条日期的数据为某月的第一条信息