设置system.cursor=0为沙漏为什么不起作用

mrsxw2004 · 发表于 2005-4-19 14:47

设置system.cursor=0为沙漏为什么不起作用,好像这个属性只能读，每次出来都是2

[此贴子已经被作者于2005-4-19 15:00:18编辑过]

守柔 · 发表于 2005-4-19 15:32

试一下这个：

Sub Example() Dim intWait As Long With System StatusBar = "Please wait..." For intWait = 1 To 100000000 .Cursor = wdCursorWait Next intWait .Cursor = wdCursorNormal End With MsgBox "Task completed" StatusBar = "Task completed" End Sub

		自动登录	找回密码
密码			免费注册