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