|
Parent
返回包含控件、或其它对象或者集合的窗体、对象、或集合。
语法：object.Parent
说明：
使用 Parent 属性可访问一个对象的父亲的属性、方法、或控件。例如：
MyButton.Parent.MousePointer = 4
Parent 属性在应用程序中是很有用的，其中可将对象作为参数来传递。例如，可以传递一个控件变量给模块中的一个一般的过程，并使用 Parent
属性访问其父窗体。
在 Parent 属性和 MDIChild 属性之间没有任何联系。尽管如此，但在一个 MDIForm 对象和任何已经将其 MDIChild 属性设为 True
的 Form 对象之间仍有父-子关系。
例：该例子从一个没有焦点的窗体传递一个控件给模块中的一个过程，然后在父窗体上显示控件的状态。要试用此例，须创建三个窗体：包含一个 CommandButton
控件的 Form1，以及各包含一个 CheckBox 控件的 Form2 和 Form3。还必须创建一个新的模块（在
“工程”菜单中单击“添加模块”）。将下面的代码粘贴到各自的窗体或模块的声明部分中，然后按下 F5 键以运行该程序。
'在 Form1 中输入下面的代码。
Private Sub Form_Load ()
Form2.Show '显示所有的窗体。
Form3.Show
Form2.AutoRedraw = True
Form3.AutoRedraw = True
End Sub
Private Sub Command1_Click ()
ReadCheckBox Form2.Check1 '调用别的模块中的过程。
ReadCheckBox Form3.Check1 '并将控件作为参数进行发送。
End Sub
Picture
'在 Module1 中输入下面的代码。
Sub ReadCheckBox (Source As Control)
If Source.Value Then
Source.Parent.Cls '清除父窗体。
Source.Parent.Print "CheckBox is ON." '在父窗体上显示。
Else
Source.Parent.Cls '清除父窗体。
Source.Parent.Print "CheckBox is OFF." '在父窗体上显示。
End If
End Sub
Picture 返回或设置控件中要显示的图片。对于 OLE 容器控件，在设计时不可用在运行时为只读。
语法：object.Picture [= picture]
picture 字符串表达式，指定一个包含图片的文件，“设置值”中有详细说明。
picture 设置值：
(None) （缺省值）无图片。
(Bitmap, icon, metafile, GIF, JPEG)
指定一个图片。设计时可以从属性窗口中加载图片。在运行时，也可以在位图，图标，或元文件上使用 LoadPicture
函数来设置该属性。
说明：
在设计时，利用“编辑”菜单中的“复制”、“剪切”和“粘贴”命令通过剪贴板来传递图片，运行时，可以使用剪贴板方法，诸如具有非文本剪贴板常数
vbCFBitmap、vbCFMetafile 和 vbCFDIB 的 GetData、SetData 和 GetFormat，它们列在对象浏览器中的
Visual Basic (VB) 对象库中。
在设计时设置 Picture
属性，图片被保存起来并与窗体同时加载。如果创建可执行文件，该文件中包含该图象。如果在运行时加载图片，该图片不和应用程序一起保存。用
SavePicture 语句可以从窗体或图片框的图片存储到文件中。
注意 运行时，Picture 属性可以被设置为任何其它对象的 DragIcon、Icon、Image 或 Picture
属性，或者可将 LoadPicture 函数返回的图片分配给它。
注意 Unisys Corporation 有一项专利，该专利声称涉及到 GIF-LZW 压缩技术的某些方面，在该技术中使用了
PictureBox 和 Image 控件。Microsoft Corporation 于1996年9月获得了对 Unisys
LZW 专利的使用许可。然而，Microsoft 的许可证并不延伸到那些软件开发商或第三方，他们使用任何 Microsoft
工具包、语言开发或操作系统产品来在他们自己的产品中提供 GIF 读/写和/或任何其他 LZW 能力（例如，通过 DLL 和
API）。
如果您的商业应用程序使用了这些控件之一（并且因此使用了 LZW 技术），您可能会希望获得有关专利的独立的法律意见，详细信息请与
http://www.unisys.com/ 的 Unisys USA 联系。
例：这个例子从 Visual Basic 的图标库中将图标加载到三个 PictureBox
控件中的两个之中。在单击窗体时，第三个 PictureBox 用来切换图标。可以使用任意两个图标。请将代码粘贴到包含三个小的
PictureBox 控件的窗体的声明部分（对于 Picture3，设置 Visible = False）。按 F5
键运行该程序，然后单击窗体。
Private Sub Form_Load ()
' 加载图标。
Picture1.Picture = LoadPicture("ICONS\COMPUTER\TRASH02A.ICO")
Picture2.Picture = LoadPicture("ICONS\COMPUTER\TRASH02B.ICO")
End Sub
Private Sub Form_Click ()
' 切换图标。
Picture3.Picture = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Picture3.Picture
' 清除第三张图片（如果图片不可见则不需要清除）。
Picture3.Picture = LoadPicture()
End Sub
这个例子将剪贴板上的一张位图粘贴到 PictureBox 控件中。为了查找（以 vbCF
开始的）剪贴板格式常数的值，请参阅对象浏览器中的 Visual Basic (VB)
对象库。要尝试这个例子，请将代码粘贴到包含一个 PictureBox 控件的窗体的声明部分。按 F5
键，然后在另一个应用程序中把一个图标复制到剪贴板上，切换到 Visual Basic 并单击窗体。
Private Sub Form_Click ()
Picture1.Picture = Clipboard.GetData(vbCFDIB)
End Sub
RightToLeft 返回布尔值，它指示双向系统上的文本显示方向和控件可见的外观。
语法：
object.RightToLeft
RightToLeft 属性的布尔返回值：
True 控件运行在双向平台上（例如，阿拉伯语 Windows95 或者希伯来语
Windows95），文本从右向左显示。此时，控件应修改自身的行为，例如将垂直滚动条放置在文本框或列表框的左侧，将标签放置在文本框的右侧等等。
False 控件的表现和运行在非双向平台（例如英语
Windows95）一样，文本从左向右显示。如果容器没有实现这种环境属性，这将是缺省的设置值。 CheckBox
控件可配置标题文本的对齐和读顺序，并且能够自动调整新控件复选框的位置。
设计时，CheckBox 控件最初被创建时，其外观和行为是由它们父窗体的 RightToLeft
属性的设置来确定的。例如，如果窗体的 RightToLeft 属性为 True，则 CheckBox
的影响双向行为的两个属性设置如下：
RightToLeft=True
Alignment=1-Right Justify
标题文本读顺序将为 RTL，标题文本为右对齐，并且复选框将被放置到标题的右边。
CheckBox 控件被放置到窗体上之后，标题和复选框行为是通过分别设置 RightToLeft 和 Alignment
属性来独立地控制的。
|
