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所说，我不知道你真正要做的是什么。

VB6 Picturebox顶部位置

2 个答案: