ピクチャボックスをピクチャボックスに挿入する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

をクリックした場所に が表示されますしたいですクリック、あなたはこのようになり、外側の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 

また、あなたはしかし、あなたの内部のPictureBoxを中心にXとYでみたいものは何でも計算を実行するように選択することができます」 dが好きです。