使鼠标指针变成忙碌状态的VB代码

具体就是把鼠标变成沙漏形状,可以移动,但不能点击,持续30秒,求详细代码写法。注:是添加在vbs文件里的... 具体就是把鼠标变成沙漏形状,可以移动,但不能点击,持续30秒,求详细代码写法。

注:是添加在vbs文件里的
展开
 我来答
czsoft001
2013-01-01 · 超过47用户采纳过TA的回答
知道答主
回答量:361
采纳率:0%
帮助的人:140万
展开全部
鼠标变形状容易啊,难就难在你还要把相关控件变灰变成不能使用,这样子才能避免点击
网海1书生
科技发烧友

2012-12-31 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26228

向TA提问 私信TA
展开全部
在VB家族语言中,VB、VBScript、VBA、HTA等等都是可以实现你说的这种功能的,因为它们都是本身有界面(或者宿主软件有界面)的,唯独VBS属于无界面运行的脚本语言,而鼠标指针的形状是取决于它所在的窗口或控件的(比如鼠标在某个软件的窗口里是沙漏,移到桌面上又变为默认形状了),VBS没有窗口就无法直接改变鼠标指针的形状,只能通过API函数(SetCursor或SetSystemCursor)来强行改变了。而要在VBS调用API函数本身又是一大学问,这里很难说清楚了,你自己百度一下吧。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
当时就楞了
推荐于2016-02-22 · TA获得超过132个赞
知道小有建树答主
回答量:150
采纳率:100%
帮助的人:40.4万
展开全部
窗体添加一个timer控件,Interval设置1000 也就是1秒触发一次。
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i > 30 Then
MousePointer = 1
Else
MousePointer = 11
End If
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式