自定义窗体中的鼠标指针类型

技巧1

自定义窗体中的鼠标指针类型

使用对象的MousePoi nter属性可以自定义鼠标掠过窗体控件时的指针类型，如下面的代码所示。

Private Sub UserForm_ Initializ e()

With

Me.TextBo x1

.MousePoi nter = 99 .MouseIco n= LoadPictu re(ThisWo rkbook.Pa th& "\myMouse .ico")

End With

End Sub 代码解析：

当用户把

鼠标放到

窗体的文

本框上

时，所显

示的鼠标

指针的类

型为自定

义图标。

第3行代码

设置文本

框的

MousePoi

nter属性。

MousePoi

nter属性指

定当用户

把鼠标放

到特定对

象上时，

所显示鼠

标指针的

类型，语

法如下：

object.Mo

usePointe

r[=

fmMousePo

inter]

参数object

是必需

的，一个

有效对象

。

参数

fmMouse

Pointer是

可选的，

所需鼠标

指针的形

状。

fmMouse

Pointer的

设置值如

表格

141?1所示

。

常量值说明

fmMousePo interDefault 0标准指针。

根据对象来

决定指针的

图像（默

认）

fmMousePo

interArrow

1箭头

fmMousePo

interCross

2十字线指针

fmMousePo

interIBeam

3I 形标

fmMousePo interSizeNE SW 6斜下的双箭

头

fmMousePo interSizeNS 7南北向的双

箭头

mMousePoi nterSizeNW SE 8斜上的双箭

头

fmMousePo interSizeWE 9东西向的双

箭头

fmMousePo

interUpArro

w

10向上键

fmMousePo

interHourgla

ss

11沙漏

fmMousePo interNoDrop 12在被拖动的

对象上有“

Not”符号

（有一条斜

线的圆）。

表示是无效

的放置目标

。

fmMousePo interAppSta rting 13带沙漏的箭

头

fmMousePo interHelp 14带问号的箭

头

fmMousePo interSizeAll 15调整所有尺

寸的光标

（四向箭

头）

fmMousePo interCustom 99使用由

MouseIcon

属性指定的

图标

表格 141?1

MousePointer的设置值

第3行代码

将文本框

的

MousePoi

nter属性设

置为99，

使用由

MouseIco

n属性指定

的自定义

图标。

MouseIco

n属性为对

象指定一

个自定义

的图标，

语法如

下：

object.Mo

useIcon=

LoadPictu

re(

pathname

)

参数object

是必需

的，一个

有效的对

象。

参数

pathname

是必需

的，指定

包含自定

义图标的

文件的路

径和文件

名。

设置后的

鼠标指针

的形状如

图141?1

所示。

图 141?1

自定义鼠标指针类型