Cursor 属性

       

返回或设置指针的状态(形状)。可以是下列 WdCursorType 常量之一:wdCursorIBeamwdCursorNormalwdCursorNorthwestArrow wdCursorWaitLong 类型,可读写。

示例

本示例在状态栏显示一条信息,然后将指针形状改变正在执行任务的形状。

Dim intWait As Integer

StatusBar = "Please wait..."

For intWait = 1 To 1000
    System.Cursor = wdCursorWait
Next intWait

StatusBar = "Task completed"
System.Cursor = wdCursorNormal