Question

vb 中Picture1.PaintPicture LoadPicture的问题

vb 中Picture1.PaintPicture LoadPicture(App.Path & "\Y.jpg"), 0, .ScaleHeight \ 3
运行第一次，图片加载了，再运行一次图片就消失了，为什么？
有关代码如下：
Picture1.AutoRedraw = True
Picture1.Cls

Picture1.BackColor = vbWhite
With Picture1
.PaintPicture LoadPicture(App.Path & "\Y.jpg"), 0, .ScaleHeight \ 3
End With

按理说不管我运行几次，这个图片应该每次都加载啊？

Answer 1

把图片编译成RES文件后试下LoadResPicture吧。
在VB里，点“外接程序”再点“外接程序管理器”，把VB资源编辑器勾选上 选择启动加载
重启VB，会看到工具栏上有一个类似注册表的图标，点开它，再点击图标是一个仙人掌的按钮，加入一个位图，再保存资源文件就行了

Answer 2

试下 .Picture= LoadPicture(App.Path & "\Y.jpg")

追问

这个不行的。保存的只是加载的picture而不是整个picturebox里面的内容（包括label等其他控件）

追答

PaintPicture 是画图
LoadPicture 是加载图
两个都用，怎么可以。