Question

所以我有一个我正在为课堂创建的pictureManager程序。用于查看图像的pictureBox必须将SizeMode设置为延伸至教授的规格。我无法弄清楚如何使用我的hsb和vsb值来缩放图像。他称之为“裁剪”，但实际上它只是对图像的缩放，但是当我点击我的应用按钮时，我似乎无法使其工作。我尝试过在网上找到的各种解决方案，但我似乎无法让它发挥作用。有人可以告诉我如何拍摄pictureBox.Image并缩放它，然后将其返回到pictureBox.Image？谢谢！

Answer 1

正如我的评论所说：将图片框放在面板内。我还在表单上添加了一个最小值= 1和最大值= 10的轨迹栏控件，并在面板上启用了AutoScroll。要缩放，只需将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，在VB.Net中将SizeMode设置为Stretch

1 个答案: