insérer une zone d'image dans l'imagebox vb6

Question

J'ai un code d'un article. (image intérieure à l'intérieur de l'image externe) Le résultat du code est quand je clique sur l'endroit dans l'image extérieure, l'image intérieure montrera à l'endroit où j'ai cliqué, mais en diagonale.

Ce n'était pas au bon endroit je clique. Je veux l'image intérieure montrera dans l'endroit que je clique

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 

Vos informations seront très serviables, merci pour votre attention

Answer 1

Si vous voulez simplement le coin supérieur gauche de la boîte intérieure pour être là où vous clic, vous pouvez utiliser l'événement MouseDown du PictureBox extérieur, ce qui ressemblerait à ceci:

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

    PictInner.Left = X 
    PictInner.Top = Y 

End Sub 

vous pouvez également choisir d'effectuer tout calcul que vous souhaitez sur X et Y pour centrer le PictureBox intérieur mais vous » d aimer.