将picturebox插入picturebox vb6

Question

我有一些文章的代码。 （图片内部图片内部） 代码的结果是当我点击图片外部的位置时，图片内部将显示在我点击的位置，但是在对角线的位置。

我没有点击正确的地方。我希望图片内心会显示出来 在我点击的地方

picturebox1 name = PictOuter
picturebox2 name = PictInner

Dim pos As String
Dim bos As String

pos = Format(x / PictOuter.Width * 100, "0")
bos = Format(y / PictOuter.Height * 100, "0")

PictInner.Left = PictOuter.Width * pos / 100
PictInner.Top = PictOuter.Height * bos / 100
PictInner.Visible = True 

您的信息非常有用，感谢您的关注

Answer 1

如果您只想让内框的左上角位于您单击的位置，则可以使用外部PictureBox的MouseDown事件，如下所示：

Private Sub PictOuter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    PictInner.Left = X
    PictInner.Top = Y

End Sub

你也可以选择在X和Y上执行你想要的任何计算，使你想要的内部PictureBox居中。