搜档网
当前位置：搜档网 › VB中图片自动适应picturebox控件大小
VB中图片自动适应picturebox控件大小
VB中图片自动适应picturebox控件大小
Private Sub Picture1_Paint()
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
设置2个Picturebox控件：Pic1,Pic2，其中 pic2的visible设置为false，Pic2的AutoSize设置为True，把要显示的图片加到PIC2中 或PIC2.Picture = LoadPicture("d:/b.jpg")
再在程序中加入：
Private Sub Pic1_Resize()
Pic1.PaintPicture Pic2.Image, 0, 0, Pic1.Width, Pic1.Height, 0, 0, Pic2.Width, Pic2.Height
End Sub
相关主题