在VB.Net中放大SizeMode设置为Stretch的PictureBox

在VB.Net中放大SizeMode设置为Stretch的PictureBox,vb.net,zooming,crop,picturebox,Vb.net,Zooming,Crop,Picturebox,所以我有一个pictureManager程序,我正在为班级创建。用于查看图像的pictureBox必须根据教授的规格将SizeMode设置为拉伸。我不知道如何使用我的hsb和vsb值来缩放图像。他称之为“裁剪”,但实际上它只是对图像进行缩放,但当我单击“应用”按钮时,似乎无法使其工作。我在网上找到了各种各样的解决方案,但似乎都没能奏效。有人能告诉我如何拍摄图片盒。图像并将其缩放,然后将其返回到图片盒。图像吗?谢谢 正如我的评论所说:将picturebox放在面板内。此外,我在窗体上添加了一个最小

所以我有一个pictureManager程序,我正在为班级创建。用于查看图像的pictureBox必须根据教授的规格将SizeMode设置为拉伸。我不知道如何使用我的hsb和vsb值来缩放图像。他称之为“裁剪”,但实际上它只是对图像进行缩放,但当我单击“应用”按钮时,似乎无法使其工作。我在网上找到了各种各样的解决方案,但似乎都没能奏效。有人能告诉我如何拍摄图片盒。图像并将其缩放,然后将其返回到图片盒。图像吗?谢谢

正如我的评论所说:将picturebox放在面板内。此外,我在窗体上添加了一个最小值为1、最大值为10的轨迹栏控件,并在面板上启用自动滚动。 如果将Picturebox.Sizemode设置为StretchImage,则要缩放,只需此代码

Public Class Form1
Private Sub AdjustSize()
    Dim zoommult As Double = TrackBar1.Value
    PictureBox1.Width = CInt(PictureBox1.Image.Width * zoommult)
    PictureBox1.Height = CInt(PictureBox1.Image.Height * zoommult)
End Sub
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
    AdjustSize()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    AdjustSize()
End Sub
End Class

如果您不分享您尝试过的内容,我们无法告诉您尝试过的内容有什么问题。我尝试过各种方法,例如使用矩形进行裁剪,然后将其返回到pictureBox,以及使用图形将裁剪后的图像绘制回pictureBox。这两种方法都不管用。我已经废弃了所有不起作用的代码,所以我不能在这里发布。如果有人对如何开始或知道一个解决方案有想法,这将非常有用。将picturebox放在面板中,并调整picturebox的大小和位置。完成后,您甚至可以轻松滚动。