窗体打开时为什么滚动条的滚动不到位

king260815796

窗体打开时为什么滚动条的滚动不到位  





Private Sub UserForm_Click()
        滚动到
        MsgBox Me.ScrollTop
End Sub


Private Sub UserForm_Initialize()
    滚动到
End Sub


Private Sub 滚动到()
      Me.ScrollTop = Me.滚动条顶.Value
End Sub

点击时可以滚动到指定的位置

约定的童话

在VBA窗体中，控件的位置是相对于整个窗体的位置而言的。通常，当您使用鼠标或键盘滚动条时，窗体会滚动到指定的位置。然而，在某些情况下，窗体可能不会滚动到正确的位置。这可能是因为控件位置的调整导致窗体滚动条的位置出现错误。

要解决此问题，可以尝试以下解决方法：

检查窗体滚动条的位置。您可以通过将ScrollBars属性设置为fmScrollBarsVertical或fmScrollBarsBoth来添加垂直滚动条，然后使用以下代码检查滚动条的位置：

Debug.Print Me.ScrollTopvb
Debug.Print Me.ScrollTop
如果窗体滚动条的位置错误，可以使用以下代码将其设置为正确的位置：

Me.ScrollTop = 0  '将滚动条的位置设置为0vb
Me.ScrollTop = 0  '将滚动条的位置设置为0
调整窗体和控件的位置。如果控件的位置不正确，可以通过使用以下代码调整其位置来修复它：

'将控件向下移动50个像素
Me.myControl.Top = Me.myControl.Top + 50vb
'将控件向下移动50个像素
Me.myControl.Top = Me.myControl.Top + 50
您可以尝试用类似的代码调整控件的位置，并将其放置在正确的位置。

需要注意的是，滚动条的位置和控件的位置可能受到多种因素的影响。如果您无法解决这个问题，可能需要进一步检查您的控件位置，窗体滚动条的位置以及相关的VBA代码。