为什么我使用PaintPicture方法后，picturebox里面还是什么都没有呢？

[xiaomin0613]

Dim spiKai1_Gazo As New StdPicture
Set spiKai1_Gazo = LoadPicture(frmKRFON2607.griHuguai.Text)
picKai1_Gazo.PaintPicture spiKai1_Gazo, 0, 0, picKai1_Gazo.Width, picKai1_Gazo.Height

[laviewpbt]

PaintPicture后面没有常数vbSrcCopy。

[xiaomin0613]

请问这个常数vbSrcCopy应该放在什么地方？

[wwqna]

用得着这么样子吗？不如直接load
picture1.picture = loadpicture("d:\1.bmp")

[xiaomin0613]

不可以，我要让图片按照控件的大小来显示的。。
现在我的大图片都显示不出来。

[laviewpbt]

vbSrcCopy放在PaintPicture的最后
’我要让图片按照控件的大小来显示的。。
如果只是显示大图片而不作处理的话，可以直接利用image控件，占资源有少，只要把他的stretch属性设为TRUE就可以了。

[xiaomin0613]

picKai1_Gazo.PaintPicture (spiKai1_Gazo, 100, 100, picKai1_Gazo.Width, picKai1_Gazo.Height, , , , , vbSrcCopy)
是这样写吗？
可是还是不好用。。。
5555555555555555我太笨了。。。

[韧恒]

如果你指的文件存在，并且是一个有效的图片文件，那么你的代码本身没有任何问题。

[laviewpbt]

可是还是不好用。。。什么意思

[dongge2000]

Picture1.AutoRedraw = True

[AprilSong]

这样看看～

picKai1_Gazo.AutoRedraw = True
picKai1_Gazo.ScaleMode = 3
picKai1_Gazo.PaintPicture spiKai1, 0, 0, picKai1_Gazo.ScaleWidth, picKai1_Gazo.ScaleHeight, , , , , vbSrcCopy

[霖湘凝]

AutoRedraw = True
建议用loadpicture

[xiaomin0613]

啊，原来是AutoRedraw 属性没有修改。。。
真是败给自己了，
谢谢各位啊，结贴了~~

[badboy168]

picKai1_Gazo.AutoRedraw = True
picKai1_Gazo.ScaleMode = 3
picKai1_Gazo.PaintPicture spiKai1.image, 0, 0, picKai1_Gazo.ScaleWidth, picKai1_Gazo.ScaleHeight, , , , , vbSrcCopy



picKai1_Gazo.AutoRedraw = True
picKai1_Gazo.ScaleMode = 3
picKai1_Gazo.PaintPicture spiKai1.picture, 0, 0, picKai1_Gazo.ScaleWidth, picKai1_Gazo.ScaleHeight, , , , , vbSrcCopy