|
MaskColor
返回或设置一个在按钮的图片中作为“掩码”（也就是说，透明）的颜色。
语法：
object.MaskColor [= color]
color 一个决定作为掩码的颜色的值或常数，“设置值”中有详细的描述。
VB用 Microsoft Windows 操作环境的红-绿-蓝 (RGB) 配色方案。
color 的设置值为：
Normal RGB colors 由调色板或通过在代码中使用 RGB 或 QBColor 函数指定的颜色。
&H00C0C0C0 （缺省）浅灰色。
说明：
如果系统颜色改变，则透明的颜色也改变，使图片的外观无法预见。最好不用系统颜色编程图片。
只有当 UseMaskColor 属性设置为 True 并且按钮中有赋值给其 Picture
属性的位图-风格图片时，该属性才被使用。（图标和元文件已经包含透明信息。）
如果 MaskColor 属性在运行时被改变，按钮将自己用被当作掩码的新颜色重画。
MouseIcon
返回或设置自定义的鼠标图标。
语法：
object.MouseIcon = LoadPicture(pathname)
object.MouseIcon [= picture]
pathname 字符串表达式，指定包含自定义图标文件的路径和文件名。
picture Form 对象、PictureBox 控件、或 Image 控件的 Picture 属性。
说明：
MouseIcon 属性提供一个自定义图标，它在 MousePointer 属性设为 99 时使用。
MouseIcon 属性使程序能够很容易地访问自定义光标，它可以是任意大小并具有任何热点位置的光标。Visual Basic
不能装入动画光标 (.ani) 文件，即使 32-位版的 Windows 支持这些光标。
例：本例说明 MouseIcon 属性是如何设置自定义鼠标图标的。要试用此例，先在窗体上创建一个 ListBox 控件，然后将
MultiSelect 属性设置为 1 或 2。在运行时期，能选择一个或多个项。根据选择的是单项还是多项，将显示不同的图标。
Private Sub Form_Load ()
' 在列表框中放置一些项。
List1.AddItem "Selection 1"
List1.AddItem "Selection 2"
List1.AddItem "Selection 3"
List1.AddItem "Selection 4"
List1.AddItem "Selection 5"
End Sub
Private Sub List1_MouseDown (Button As Integer, Shift As
Integer, X As Single, Y As Single)
' 为多项设置自定义鼠标图标。
If List1.SelCount > 1 Then
List1.MouseIcon = LoadPicture("ICONS\COMPUTER\MOUSE04.ICO")
List1.MousePointer = 99
Else ' 为单项设置自定义鼠标图标。
List1.MouseIcon = LoadPicture("ICONS\COMPUTER\MOUSE02.ICO")
List1.MousePointer = 99
End If
End Sub
MousePointer
返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。
语法：
object.MousePointer [= value]
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 部件时可能暂时地改变。
例：本例当在屏幕上画圆时将鼠标指针改变为沙漏标，然后在过程结束时将沙漏标恢复为鼠标指针。要试用此例，先将下面的代码粘贴到窗体的声明部分。按
F5 键 以运行该程序，然后单击窗体。
Private Sub Form_Click ()
Dim I ' 声明变量。
' 将鼠标指针改变为沙漏标。
Screen.MousePointer = vbHourglass
' 设置随机的颜色和在窗体上画圆。
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' 返回鼠标指针到正常状态。
Screen.MousePointer = vbDefault
End Sub
|
