文档介绍:技巧1              自定义窗体中的鼠标指针类型
使用对象的MousePointer属性可以自定义鼠标掠过窗体控件时的指针类型,如下面的代码所示。
Private Sub UserForm_Initialize()
With
.MousePointer = 99
.MouseIcon = LoadPicture( & "\")
End With
End Sub
代码解析:
当用户把鼠标放到窗体的文本框上时,所显示的鼠标指针的类型为自定义图标。
第3行代码设置文本框的MousePointer属性。MousePointer属性指定当用户把鼠标放到特定对象上时,所显示鼠标指针的类型,语法如下:
[= fmMousePointer]
参数object是必需的,一个有效对象。
参数fmMousePointer是可选的,所需鼠标指针的形状。fmMousePointer的设置值如表格 141‑1所示。
常量 值 说明
fmMousePointerDefault 0 标准指针。根据对象来决定指针的图像(默认)
fmMousePointerArrow 1 箭头
fmMousePointerCross 2 十字线指针
fmMousePointerIBeam 3 I 形标
fmMousePointerSizeNESW 6 斜下的双箭头
fmMousePointerSizeNS 7 南北向的双箭头
mMousePointerSizeNWSE 8 斜上的双箭头
fmMousePointerSizeWE 9 东西向的双箭头
fmMousePointerUpArrow 10 向上键
fmMousePointerHourglass 11 沙漏
fmMousePointerNoDrop 12 在被拖动的对象上有 “Not”符号(有一条斜线的圆)。表示是无效的放置目标。
fmMousePointerAppStarting 13