动态网站制作指南 [  QQ表情  ]
[ 投票调查 ]
[ 企业邮箱 ]
[ 网站空间 ]
网站首页 | 网站学院 | 源码下载 | 软件下载 | 字体下载 | 图片素材 | 电脑书籍 | 网页模版 | 网站欣赏 | 小游戏 | 博客联播
网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
ASP源码 | .Net源码 | PHP源码 | JSP源码 | JAVA源码 | CGI源码 | VB源码 | C++源码 | Delphi源码 | PB源码 | VF源码 | 汇编 | 服务器
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic教程
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程：ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
文章搜索服务
邮件订阅
输入你的邮件地址，
你将不会错过任何关于：
[ Visual Basic教程 ]的信息

本月文章推荐
.字体对象克隆招法.
.如何取得计算机的所有字型.
.在VB中获取和修改计算机名字.
.快速初始化Variant和String类型数.
.用BASIC语言设计Windows风格的用.
.WindowsAPI的作用及使用技巧.
.用VB6.0设计简易赛车游戏.
.如何提高调用WindowAPI函数编程技.
.Access97的报表解决方案.
.关于VisualBasic6.0类开发(上).
.VB6.0中类聚集关系的实现.
.VBCOM基础讲座之编译的实例选项.
.VisualBasic设计多媒体应用程序.
.用VB5.0从Recordset中打印列表.
.读写INI文件的四个函数.
.教你在CoolBar中显示指定的图片.
.VB从零开始编外挂(一).
.变量名称变成了保留字.
.VB中远程共享显示及声音的实现.
.VB6内置的内码转换功能.

用VB实现鼠标的隐藏

发表日期：2006-2-27 |

在Windows的大多数场合下，鼠标都是始终可见的。但在有些场合需隐藏鼠标，使之不可见，以免影响屏幕画面的整体效果，如屏幕保护程序运行时，鼠标就是不可见的。在VB中可通过调用WindowsAPI函数ShowCursor()来非常轻松地实现鼠标的隐藏。方法如下：
方法一：
首先在全局模块中声明函数如下：
DeclareFunctionShowCursorLib"User"(ByValbShowAsInterger)AsInterger
当bShow为True时，系统内部计数器加1；当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示：
SubForm—Load
Dimrc％
rc％=ShowCursor(False)　'隐藏鼠标
……
rc％=ShowCursor(True)　'显示鼠标
Endsub
此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用，否则有可能造成鼠标“丢失”的现象，即调用若干次ShowCursor(True)也有可能显示不出鼠标来(视内部计数器值而定)。当鼠标“丢失”时，可通过重新启动Windows来找回鼠标。
方法二：
采用如下程序，可以不成对调用ShowCursor（）函数：
'隐藏鼠标
WhileShowCursor(False)>=0'将计数器值
'减至－1
Wend
'显示鼠标
WhileShowCursor(True)<0　'将计数器值加至0
Wend->
上一篇：人民币小写转大写 人气:3956
下一篇：将ENTER变成TAB键 人气:3867
浏览全部Visual Basic的内容 Dreamweaver插件下载 常用网页广告代码全集
  最新网站源码 最新软件下载
2008-8-21 Nucleus v3.33 多国语言版
2008-8-21 HDWiki v4.0 bulid 080821 UTF-8
2008-8-21 明科在线客服系统 v6.0
2008-8-21 KesionCMS v5.0.2 正式版 utf-8
2008-8-21 KesionEshop v5.0.2 正式版 utf-8
2008-8-21 HDWiki v4.0 bulid 080821 GBK
2008-8-21 新文互动酷站展示系统 v1.5
2008-8-21 Punbb v1.2.20 多国语言版
2008-8-21 QQ头像网 beta
 2008-8-16 iLaba Player(小喇叭播放器) v2.
2008-8-16 DoubleClickFix 鼠标双击修正工具
2008-8-16 CrystalCPUID 4.15.2.451
2008-8-16 VeryCD 电驴(easyMule) 1.0.4 Bu
2008-8-16 uTorrent 1.8 Build 11813 - Sta
2008-8-16 比特精灵(BitSpirit) v3.3.2.287
2008-8-16 StayInTune音叉 v1.0 破解版
2008-8-16 iChing《周易》汉化补丁 v1.0
2008-8-16 Starmap星空图v1.0汉化破解版
  发表评论
姓　名: 验证码:
内　容:
[ 汉字翻译拼音 ] [ 广告代码 ] [ 符号对照表 ] [ 进制转换 ] [ 经典小工具 ] [ 个税计算 ] [ 汉字简繁转换 ] [ 普通单位换算 ] [ 公制单位换算 ]
[ 生辰老黄历 ] [ 国内电话区号 ] [ 国家代码与域名缩写 ] [ 文字加密解密 ] [ 健康查询 ] [ 万年历 ] [ 手机号码查询 ] [ ip搜索 ] [ Google PR查询 ]
业务联系 | 广告刊登 | 频道合作 | 投稿荐稿 | 联系方式 | 加入收藏 | RSS订阅
Copyright © 2000-2008 www.knowsky.com All rights reserved | 网络实名：动态网站制作指南 | 沪ICP备05001343号