вставьте картинку в коробку изображения vb6 - PullRequest
Новая
       16

вставьте картинку в коробку изображения vb6

0 голосов
/ 24 апреля 2009

У меня есть код из какой-то статьи. (внутренняя картинка внутри внешней картинки) Результатом кода является то, что когда я щелкаю место на внешнем изображении, внутреннее изображение отображается в том месте, где я щелкнул, но в диагональном месте.

Это было не в том месте, где я нажимаю. Я хочу, чтобы внутренняя картина показала в месте, где я щелкнул 

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

Ваша информация будет очень полезна, спасибо за ваше внимание

1 Ответ

1 голос
/ 05 мая 2009

Если вы просто хотите, чтобы верхний левый угол внутреннего поля находился там, где вы щелкаете, вы можете использовать событие MouseDown внешнего PictureBox, которое будет выглядеть так: 

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 так, как вам хочется.

...