我怎样将我的鼠标光标置到忙状态?另外,我怎样设一个模态对话框,且打开它?

Question

object.mousepoint=11
form.show vbmodal

Answer 1

MousePointer 属性
      返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。语法object.MousePointer [= value]MousePointer 属性语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
value 整数，按照设置值中的描述指定被显示的鼠标指针类型。 
设置值value 的设置值为：常数 值 描述 
vbDefault 0 （缺省值）形状由对象决定。 
VbArrow 1 箭头。 
VbCrosshair 2 十字线（crosshair 指针）。 
VbIbeam 3 I 型 
VbIconPointer 4 图标（矩形内的小矩形）。 
VbSizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。 
VbSizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。 
VbSizeNS 7 垂-直尺寸线（指向南和北的双箭头）。 
VbSizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。 
VbSizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。 
VbUpArrow 10 向上的箭头。 
VbHourglass 11 沙漏（表示等待状态）。 
VbNoDrop 12 不允许放下。 
VbArrowHourglass 13 箭头和沙漏。 
VbArrowQuestion 14 箭头和问号。 
VbSizeAll 15 四向尺寸线。 
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。 
说明在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。
====================================================================
Show 方法
      用以显示 MDIForm 或 Form 对象。不支持命名参数。语法object.Show style, ownerformShow 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则与活动窗体模块关联的窗体缺省为 object。 
Style 可选的。一个整数，它用以决定窗体是模式还是无模式 。如果 style 为 0，则窗体是无模式的；如果 style 为 1，则窗体是模式的。 
ownerform 可选的。字符串表达式，指出部件所属的窗体被显示。对于标准的Visual Basic 窗体，使用关键字 Me。 
说明如果调用 Show 方法时指定的窗体没有装载，Visual Basic 将自动装载该窗体。当 Show 在显示无模式窗体时，随后遇到的代码则要执行。当 Show 在显示模式窗体 (modal form) 时，则随后的代码直到该窗体被隐藏或卸载时才能执行。当 Show 在显示模式窗体时，除了模式窗体中的对象之外不能进行输入（键盘或鼠标单击）。对其它窗体进行输入前程序必须隐藏或卸载模式窗体（通常是处于响应用户某些操作状态）。MDIForm 不能是形式的。在模式窗体显示时，虽然应用程序中的其它窗体失效，但其它应用程序不会失效。应用程序的启动窗体在其 Load 事件调用后会自动出现。下面的例子说明如何使用ownerform 参数：Private Sub cmdShowResults_Click()
   ' 显示模式窗体 frmResults.
   frmResults.Show vbModal, Me
End Sub

Answer 2

哈,感谢二位,特别是zyl910,我已搞清了,现在结分