这种情况下vb为什么不识别图片框 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 这种情况下vb为什么不识别图片框

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

只看楼主

中南红叶

等　级：新手上路
帖　子：15
专家分：7
注　册：2015-3-12
结帖率：33.33%

楼主

已结贴√ 问题点数：20 回复次数：5

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

dim S
Private Sub Form_Load()
   Picture1.Picture = LoadPicture("E:\abc.jpg")
   S = Picture1.Picture
   Picture2.Picture = S
end sub
窗添加了Picture1,Picture2，运行时出现vb 不识别Picture2，要求提供对象。
请教高指教！有何办法解决此问题。

搜索更多相关主题的帖子: 图片　

2015-06-14 09:34

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 2 楼

得分:7

使用你的代码测试了一下，很怀疑你自己没进行任何调试。

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

修改：
让系统把 S 当做一个对象来引用。在给S 值时，显式指出按对象方式去运算。
Set S = Picture1.Picture