将图片框插入图片框vb6答案

【问题标题】：insert picturebox into picturebox vb6将图片框插入图片框vb6
【发布时间】：2023-03-03 23:46:02
【问题描述】：

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

我点击的位置不正确。我想要图片内部会显示在我点击的地方

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

您的信息将很有帮助，感谢您的关注

【问题讨论】：

标签： vb6 picturebox

【解决方案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 居中。

【讨论】：