|
 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
|
