VB6 图片框顶部位置答案

【问题标题】：VB6 Picturebox top positionVB6 图片框顶部位置
【发布时间】：2016-06-25 14:20:35
【问题描述】：

在我的应用程序中，我有两个图片框。 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

【问题讨论】：

标签： vb6

【解决方案1】：

我不确定您要完成什么。在我看来，图片1 与顶部对齐，而不是底部。

无论如何。你是这个意思吗？

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

【讨论】：

我觉得这不是正确的答案，因为 Picture1.Height = Picture2.Top 不会正确增加 Picture1 的高度。我正在尝试创建一个底部面板，它可以像 SSTab 一样保持控制，所以当我增加 Picture1 的高度时，SSTab 的高度也会增加。

【解决方案2】：

无论您是否调整表单大小，图片框都应保持在同一位置。正如@ota milink 所说，我不知道您真正要完成什么。

【讨论】：

我正在尝试创建底部面板，在那里我可以拥有像 SSTab 这样的控件，所以当我增加图片框的高度时，SSTab 的高度也会增加。
我使用 Picturebox 作为底部面板