跨多個圖片框（Visual Basic）跨越單個圖像

我沒有任何代碼，因爲我真的不知道從哪裏開始。我正在使用Visual Basic。當屏幕位於3DS上時，我有兩個按比例分開的圖片框。我想要的是能夠打開一個圖像文件，並將該圖像作爲一個跨越兩個相框。就像在屏幕連接的Nintendo 3DS上一樣。我這樣做的原因是，我可以將圖像裁剪成兩個完美的「屏幕」，它們將完美地垂直拼合在一起。我正在製作3DS主題裁剪器。很抱歉，我沒有任何代碼。我無法想到開始完成這件事的第一件事。如果我的問題不夠好，我也很抱歉。我不確定這個網站正在尋找什麼。語法？正確的措辭？我不知道。跨多個圖片框（Visual Basic）跨越單個圖像

這裏是我的意思的粗略圖：https://www.dropbox.com/home?preview=samplepix.png

來源

2017-02-02 BuddyRoach

發揮像這樣的東西，但不是真的沒有代碼的問題。

Sub threeds() 

    Dim p As Picture 

    Set p = ActiveSheet.Pictures(1) 
    p.ShapeRange.PictureFormat.Crop.PictureOffsetX = p.Width/2  
    Set p = ActiveSheet.Pictures(2) 
    p.ShapeRange.PictureFormat.Crop.PictureOffsetX = -(p.Width/2)   

End Sub

來源

2017-02-02 17:52:09

我發現一些代碼似乎工作。

Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap 
    Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight) 
    Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat) 
    Return cropped 
End Function 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim FN = "full path of the image file" 
    Dim bmp As Bitmap bmp = Bitmap.FromFile(FN) 
    PictureBox1.Image = CropBitmap(bmp, 4, 4, 13, 16) 
End Sub

來源

2017-02-02 18:16:43 BuddyRoach

跨多個圖片框（Visual Basic）跨越單個圖像

回答

相關問題