vb如何写程序将picturebox的图片缩小一般半

如题所述

Private Sub Form_Load()
   Me.AutoRedraw = True
   Picture1.AutoRedraw = True
End Sub
Private Sub Picture1_Click()
   Me.PaintPicture Picture1.Picture, 0, 0, Picture1.Picture.Width / 3.5, Picture1.Picture.Height / 3.5
   Picture1.Picture = LoadPicture("")
   Picture1.Picture = Me.Image
   Me.Picture = LoadPicture("")
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fs8fvp8vvmpf8mff88m.html