VB6 Picturebox 최상위 위치

Question

내 응용 프로그램에는 두 개의 그림 상자가 있습니다. 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

그림 상자는 양식의 크기를 조정할 때와 동일한 위치에 있어야합니다. @ota milink가 말했듯이, 나는 당신이 진정으로 이루고자하는 것이 무엇인지 모른다.