|
|
域名空间 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>VB编程>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
创建自定义的光标http://www.iyit.net 日期：2006-4-29 22:29:46 来源： 点击： |
在设计应用程序时,Visual Basic允许程序员将许多控件的Mouse Pointer属性设计成12个预先定义好的鼠标光标之一。典型情况是程 序员希望改变一个控件的MousePointer 属性,以告诉程序的用户正在 或已经进行某种类型的行为,例如,沙漏光标表示一个消耗时间的过程 。另外,可以改变光标来通知用户他已经将鼠标的指针指向了一个特 殊的控件,如一个文件列表框。要做到这些,程序员只需要简单地在Vi sual Basic程序中在适当时刻改变该控件的MousePointer属性即可。 然而,有些程序员或许会希望显示一个12个预定义形状中的光标 之外的光标。本文说明如何创建不同的鼠标指针(光标),包括为一个 没有MousePointer属性的控件创建光标。 改变光标(鼠标指针) 要在Visual Basic应用程序中将光标(鼠标指针)改变成不同的形 状,需添加代码来改变希望监视的控件的MouseMove和DragOver事件。 MouseMove事件所包含的代码用于触发该控件的Drag方法。当鼠 标在被选中的控件上移动时,轮流显示新的鼠标指针。当鼠标指针离 开该控件时,DragOver事件被触发。在Vi sual Basic程序中,可以重 新复位此Drag属性,以便以前的鼠标指针能够再次显示出来。 样例程序 下面的程序实现当鼠标指针移动到一个文件列表框控件上时,将 其改变成不同的形状。 1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。 2.在Form1上添加一个文件列表框控件,采用缺省的方法建立File1。 3.将File1控件的DragIcon属性设置为所选择的.ICO文件。 4.将如下代码添加到File1的MouseMove事件中: Private Sub File1_MouseMove(Button As Integer, Shift As Integer, X As Si ngle, Y As Single) File1.Drag 1 icon on End Sub 5.将如下代码添加到Form1的DragOver事件中: Private Sub Form_DragOver(Source As Control, X As Single , Y As Single, State As Integer) File1.Drag 0 icon off End Sub 按下F5功能键执行此程序。得到的运行结果是:将鼠标指针移动 到该文件列表框控件上时,程序将把所选中的.ICO文件作为缺省的鼠 标光标;将鼠标指针离开该控件时,光标则会自动恢复为缺省的形状。 编辑： [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：几种常见数据库比较 下一篇：从公共对话框控件中提取多个文件名称 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术