|
UseMaskColor 返回或设置一个值，该值决定了赋值给 MaskColor
属性的颜色是否被用作一个“掩码”。（也就是说，用来创建透明区域。）
语法：
object.UseMaskColor [= boolean]
boolean 一个布尔表达式，用来指定赋值给 MaskColor 属性的颜色是否被用作掩码。
boolean 设置值：
True 赋值给 MaskColor 属性的颜色被用作一个掩码，在该颜色所在处创建透明区域。
False （缺省）赋值给 MaskColor 属性的颜色被忽略，并且该颜色仍然不透明。
value CheckBox 和 OptionButton 控件－返回或设置控件的状态。
CommandButton 控件－返回或设置指示该按钮是否可选的值；在设计时不可用。
Field 对象－返回或设置字段的内容；在设计时不可用。
HScrollBar 和 VScrollBar 控件（水平和垂直滚动条）－返回或设置滚动条的当前位置，其返回值始终介于 Max
和 Min 属性值之间，包括这两个值。
语法：object.Value [= value]
value 该值指定控件的状态，内容或位置，“设置值”中有详细说明。
value 设置值：
CheckBox 控件－0 是没有检查（缺省值），1 为已检查，和 2 为变灰（变暗）。
CommandButton 控件－True 表示已选择该按钮；False（缺省值）表示没有选择该按钮。如果在代码中设置
Value 属性值为 True 激活该按钮的 Click 事件。
Field 对象－只受字段数据类型的限制。
HScrollBar 和 VScrollBar 控件－设置介于 -32,768 与 32,767 之间的值以定位滚动框。
OptionButton 控件－True 表示已选择了该按钮；False（缺省值）表示没有选择该按钮。
说明：
采用对象的缺省属性，不必在代码中指定它。例如，Field 是任何 Recordset 的缺省属性，Value 是 Field
对象的缺省属性。这使得下面的两条语句等效：
Dn.Fields("PubID").Value = X
Dn.("PubID") = X
第一个语句指定了缺省属性；第二个语句假定了该属性。
例：这个例子在 TextBox 控件中显示 HScrollBar（水平滚动条）控件的数值。要尝试这个例子，请将代码粘贴到包含一个
TextBox 控件和一个 HScrollBar 控件的窗体的声明部分。按 F5 键运行该程序，然后单击滚动条。
Private Sub Form_Load ()
HScroll1.Min = 0 ' 初始化滚动条。
HScroll1.Max = 1000
HScroll1.LargeChange = 100
HScroll1.SmallChange = 1
End Sub
Private Sub HScroll1_Change ()
Text1.Text = Format (HScroll1.Value)
End Sub
Visible:
返回或设置一指示对象为可见或隐藏的值。
语法：object.Visible [= boolean]
boolean 布尔表达式指定对象是可见还是隐藏。
boolean 设置值：
True （缺省值）对象是可见的。
False 对象是隐藏的。
说明：
要在启动时隐藏一个对象，在设计时将 Visible 属性设置为
False。在代码中设置该属性能够在运行时隐藏然后又重新显示控件以响应某特别事件。
注意 对窗体用 Show 或 Hide 方法，和在代码中将 Visible 属性分别设置为 True 或 False
的效果是一样的。
例：这个例子使用两个 PictureBox
控件创建动画。要尝试这个例子，请将代码粘贴到窗体的声明部分，这个窗体包含两个和图标大小相等的 PictureBox 控件。将两个
PictureBox 控件的 Name 属性设置为 FileCab 来创建数组，然后按 F5 键并单击图片查看动画。
Private Sub Form_Load ()
Dim I ' 声明变量。
FileCab(0).BorderStyle = 0 ' 设置 BorderStyle。
FileCab(1).BorderStyle = 0
' 将图标加载到图片框。
FileCab(1).Picture = LoadPicture("ICONS\OFFICE\FILES03B.ICO")
FileCab(0).Picture = LoadPicture("ICONS\OFFICE\FILES03A.ICO")
For I = 0 To 1
FileCab(I).Move 400, 400 ' 将图片放置到相同的位置。
Next I
FileCab(1).Visible = False ' 设置为不可视。
FileCab(0).Visible = True ' 设置为可视。
End Sub
Private Sub FileCab_Click (Index As Integer)
Dim I ' 声明变量。
For I = 0 To 1
' 切换两张图片的可视性。
FileCab(I).Visible = Not FileCab(I).Visible
Next I
End Sub
WhatsThisHelpID 返回或设置一个与对象关联的上下文编号。用以为应用程序提供使用 Windows 95
Help中的“这是什么”弹出式窗口的上下文敏感的 Help。
语法：object.WhatsThisHelpID [= number]
number 一个指定帮助上下文编号的数值表达式，参见“设置值”中的描述。
number设置值：
0 （缺省值）无指定的上下文编号。
>0 一个整数，该整数给与对象关联的“这是什么”主题指定有效的上下文编号。
说明：
Windows 95 使用窗口右上角处的“这是什么”按钮来启动 Windows Help，并加载一个由
WhatsThisHelpID 属性所标识的主题。
|
