急！！！！VB loading

来源：百度知道 编辑：UC知道 时间：2024/05/23 19:50:57
做一个按钮查询数据，在等待数据出来的过程需要一个等待的图标或鼠标变成等待的形状，请问代码怎么写，急啊，谢谢各位了

在需要等待的时候用Screen.MousePointer = 11，恢复为默认时用Screen.MousePointer = 0

Private Sub Command1_Click()
If Text1.Text = "" Then Me.MousePointer = 11
End Sub

安装上面的例子把你的sql语句查询过程换成If Text1.Text = "",

Screen.MousePointer = vbHourglass
DoEvents

'这里加入你要处理的内容
Screen.MousePointer = vbDefault

记得给分哦！！！~~~~