放大一個PictureBox與SizeMode設置爲伸展在VB.Net

所以我有一個我爲類創建的pictureManager程序。用於查看圖像的pictureBox必須根據教授的規格將SizeMode設置爲伸展。我無法弄清楚如何使用我的hsb和vsb值來縮放圖像。他稱之爲「裁剪」，但實際上它只是對圖像的縮放，但我似乎無法在單擊我的應用按鈕時使其起作用。我試過了我在網上找到的各種解決方案，但我似乎無法讓它工作。有人可以告訴我如何把pictureBox.Image和放大它，然後將其返回到pictureBox.Image？謝謝！放大一個PictureBox與SizeMode設置爲伸展在VB.Net

來源

2014-04-03 user2817309

我們不能告訴你什麼是錯的，你嘗試過什麼，你只需要這個代碼，如果你不分享什麼您試圖 – Plutonix

我已經試過各種事情，如使用矩形進行裁剪，然後將其返回到pictureBox並使用圖形將裁剪後的圖像拖回到pictureBox。這兩者都不會起作用。我已經取消了所有無法使用的代碼，因此我無法將其發佈到此處。如果有人有如何入門或瞭解解決方案的想法，這將是有用的。 – user2817309

將圖片框置於面板中並調整圖片框的大小和位置。完成，你甚至可以輕鬆地滾動。 – Jens

正如我的評論所說：將圖片框放置在面板內。我還在窗體上添加了最小值= 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

來源

2014-04-03 17:42:41 Jens

放大一個PictureBox與SizeMode設置爲伸展在VB.Net

回答

相關問題