Bildbox in Bildbox einfügen Vb6

Question

Ich habe einen Code aus einem Artikel. (Bild innen im Bild äußeren) Das Ergebnis des Codes ist, wenn ich den Ort im Bild Außen klicken, wird das Bild innen an der Stelle angezeigt, die ich angeklickt habe, aber an diagonalen Ort.

Es war nicht an der richtigen Stelle, die ich klicke. Ich möchte das Bild Innen wird im Spot zeigt i

geklickt

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 

Ihre Daten werden so hilfsbereit, Dank für Ihre Aufmerksamkeit

Answer 1

Wenn Sie einfach die obere linke Ecke des Innenkastens sein wollen, wo Sie klicken, können Sie das Ereignis Mousedown des äußeren PictureBox verwenden, die wie folgt aussehen:

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

    PictInner.Left = X 
    PictInner.Top = Y 

End Sub 

Sie können auch Berechnungen durchführen wählen, was Sie auf X und Y möchten die innere PictureBox zum Zentrum aber Sie‘ d wie.