VB图片浏览器一些效果的实现

用 PaintPicture 方法. 我给你举个例子就明白啦~o(∩_∩)o...

在窗体上建立一个command 和一个 picture 框 . 然后复制下面的代码就看到效果了..

Private Sub Command1_Click()
Dim p As Picture
'载入图片文件
Set p = LoadPicture("D:\photo\she1.jpg")

Me.PaintPicture p, 0, 0 '将图片按原大小显示在窗体上

'将图片按图像框的大小进行比例缩放显示在图片框中
Picture1.PaintPicture p, 0, 0, Picture1.Width, Picture1.Height

End Sub

当然你用API BitBlt 函数也可以办到...

这个以前我还明白 一年没有用过了 忘记了

这个问题要是早半年问，我直接把代码给你，现在。。。VB已经忘光了。。。

用printpicture方法

很简单啊 Image1.Width = Image1.Width / 2
Image1.Height = Image1.Height / 2
你把image1改写picture 就行了