要什么引用才有stdpicture

[tomclose]

我用不了stdpicture.
是不是要加什么引用才有阿？

[daisy8675]

倒，这是外部控件吧，没听说过啊

[lyllxfly]

不是控件，而是一个对象类。

Dim Pic As New StdPicture
Dim Pic1 As StdPicture

[online]

直接用
Dim picture1 As New StdPicture

'判断文件是否存在，不存在抛出错误
If Dir(SourceFileName) <> "" Then
Set picture1 = LoadPicture(SourceFileName)
end if

[online]

还可以使用这个
Dim TempPic As IPictureDisp
Set TempPic = LoadPicture(FileName)