[代码见内,使用资源来载入JPG格式图片问题]使用LoadResData后Byte()如何给一个IPictureDisp对象赋值?
Gutta 2006-01-24 08:21:56 Private Sub Form_Load()
Dim bs() As Byte
'自定义的101号资源就是外部的一个JPG资源
bs = LoadResData(101, "CUSTOM")
Me.Picture =...
End Sub
想把这个JPG资源做为桌面背景,如何把一个Byte()数据放到一个IPicutreDisp中去呢???