Private Sub Command15_Click()
Dim ph$
ph = photo.Value
Picture1.Picture = LoadPicture(App.Path & "\User\" & ph & ".jpg")
End Sub我很想知道Picture1.Picture是干什么的,然后这一个好像是picture1和picture都是空值
这是借鉴了百度的,还是有问题。

解决方案 »

  1.   

    Picture 属性
          返回或设置控件中要显示的图片。对于 OLE 容器控件,在设计时不可用在运行时为只读。语法object.Picture [= picture]Picture 属性有下列组成部分:部分 描述 
    object 对象表达式,其值是“应用于”列表中的一个对象。 
    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 联系。
      

  2.   

    Picture1.Picture = LoadPicture(App.Path & "\User\" & ph & ".jpg")这句执行时,提示什么错误?