跨多个图片框（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）跨越单个图像

回答

相关问题