急！！！！VB loading
做一个按钮查询数据，在等待数据出来的过程需要一个等待的图标或鼠标变成等待的形状，请问代码怎么写，急啊，谢谢各位了...
做一个按钮查询数据，在等待数据出来的过程需要一个等待的图标或鼠标变成等待的形状，请问代码怎么写，急啊，谢谢各位了
展开
3个回答
展开全部
Private Sub Command1_Click()
If Text1.Text = "" Then Me.MousePointer = 11
End Sub
安装上面的例子把你的sql语句查询过程换成If Text1.Text = "",
If Text1.Text = "" Then Me.MousePointer = 11
End Sub
安装上面的例子把你的sql语句查询过程换成If Text1.Text = "",
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在需要等待的时候用Screen.MousePointer = 11，恢复为默认时用Screen.MousePointer = 0
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Screen.MousePointer = vbHourglass
DoEvents
'这里加入你要处理的内容
Screen.MousePointer = vbDefault
记得给分哦！！！~~~~
DoEvents
'这里加入你要处理的内容
Screen.MousePointer = vbDefault
记得给分哦！！！~~~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
