3.7.1 如何在改变鼠标形状的同时实现鼠标热区

3.7  疑难问题的分析与解决

3.7.1  如何在改变鼠标形状的同时实现鼠标热区

在程序开发过程中，经常会通过使用一些热区和改变鼠标的形状来使程序界面更有亲和力，也可使人机交互界面更加友好。图3.39即为将鼠标设置成“小手”的形状。关于热区的设置，在3.6.9节中已经进行了介绍。这里只介绍一下如何改变鼠标的形状。

图3.39  改变鼠标形状

改变鼠标形状的方法有两种。

1．通过属性窗口进行设置

如果想设置鼠标为指定的图片，如图3.40所示，可以在属性窗口中单击“MouseIcon”属性右侧的 按钮，在弹出的对话框中选择相应的图标，如图3.40所示。

图3.40  设置“MouseIcon”属性

如果在程序运行时并不想将鼠标设置为图标，仅希望改变鼠标指针的类型，如将鼠标设置为沙漏形 用于等待，则可以通过“MousePointer”属性来设置。

A注意

在设置鼠标的形状时，如果是自定义的图标，则首先应设置“MousePointer”属性为“99”（用户自定义图标）。

MousePointer属性的设置值如表3.6所示。

表3.6 MousePointer属性的值

2．通过程序代码进行设置
上述过程还可以通过下面的程序代码来实现：

//……………………………………………例程3-27……………………………………………………//
Lbl_Shanghai(5).MousePointer = 99
Lbl_Shanghai(5).MouseIcon = LoadPicture(App.Path & "\image\鼠标.ico ")

技术细节

MousePointer 属性

返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时被显示的鼠标指针的类型。
语法：object.MousePointer [= value]