注册 登录
编程论坛 VB6论坛

这种情况下vb为什么不识别图片框

中南红叶 发布于 2015-06-14 09:34, 643 次点击
dim S
Private Sub Form_Load()
   Picture1.Picture = LoadPicture("E:\abc.jpg")
   S = Picture1.Picture
   Picture2.Picture = S
end sub
窗添加了Picture1,Picture2,运行时出现vb 不识别Picture2,要求提供对象。
请教高指教!有何办法解决此问题。
5 回复
#2
风吹过b2015-06-14 21:46
使用你的代码测试了一下,很怀疑你自己没进行任何调试。

在报错时,检查 S 的类型和值,
S 的类型是 Variant/Long ,说明什么,你这句  S = Picture1.Picture 取到的是 Picture1.Picture.handle ,是一个长整数类型的变量,
然后你下面一句,Picture2.Picture = S 里, 要求 提供一个对象,而 s 是一个 长整数,自然报错。
这个错误只要调试时看下变量类型就很清楚的错误。

修改:
让系统把 S 当做一个 对象来引用。在给S 值时,显式指出按对象方式去运算。
Set S = Picture1.Picture
#3
中南红叶2015-06-15 10:37
回复 2楼 风吹过b
谢谢板主指教,
#4
wmf20142015-06-15 13:40
回复 2楼 风吹过b
同意
#5
renxiaoyao362015-06-19 21:59
注意结贴
#6
bai71902015-07-01 22:07
学习了,呵呵
1