VB6 Pictureboxトップポジション

Question

私のアプリケーションでは、2つの画像ボックスがあります。 Picture1は下部に揃えられています。マウスボタンを押してPicture2を動かすと、Picture1の高さがそれに応じて変化します。そのうまく動作します。

私の問題は、Picture1とPicture2が異なる位置にあるようにフォームのサイズを変更するときです。 Picture2は、Picture1の一番上の位置にはありません。

Private Sub Form_Resize() 
    Picture2.Width = Me.ScaleWidth 
    Picture2.Top = Picture1.Height + Picture1.Top 
End Sub 

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
On Error Resume Next 
Screen.MousePointer = 7 
If Button = 1 Then 
    Picture2.Top = Picture2.Top + (Y) 
    Picture1.Height = Me.Height - Picture2.Top - 720 
End If 
End Sub 

Answer 1

あなたは何を達成しようとしているのですか？私にはPicture1 が一番上に、一番下には整列していないようです。

とにかく。あなたはこれを意味しましたか？

Private Sub Form_Resize() 
    Picture2.Width = ScaleWidth 
    Picture2.Top = Picture1.Top + Picture1.Height 
End Sub 

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    On Error Resume Next 

    Screen.MousePointer = 7 

    If Button = 1 Then 
     Picture2.Top = Picture2.Top + (Y) 
     Picture1.Height = Picture2.Top 
    End If 

End Sub 

Answer 2

画像ボックスは、フォームのサイズを変更しても同じ位置に留まるかどうかは関係ありません。 @ mil milinkが言ったように、私はあなたが本当に達成すべきものは何かを知りません。