Вставьте картинку в поле для фотографий 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

Если вы просто хотите, чтобы верхний левый угол внутренней коробки, чтобы быть там, где ты щелчок, вы можете использовать событие 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 однако вы» d нравится.