访问 - 如果表单最大化，则允许滚动条

Question

我找到了这个API来检查表单是否最大化： ACC2000: How to Determine If a Form Is Maximized or Minimized

现在我想使用此API在表单上允许滚动条，如果它已最大化。问题是，当它被最大化时，滚动条不可见，直到我点击一些控件的详细信息部分。恢复表单时的方式相同 - 滚动条在点击某个控件之前不会消失。有什么方法可以解决这个问题吗？

我尝试了这个（我必须在此代码后单击Field1，重点不起作用）：

Private Sub Form_Current()
If Maximized = True Then
Me.ScrollBars = 2
Else
Me.ScrollBars = 0
End If

Me.Field1.SetFocus

End Sub

和这个（当设置Me.TimerInterval = 0时没有任何反应，否则它正在工作，但会一直触发计时器事件）：

Private Sub Form_Timer()
If Maximized = True Then
Me.ScrollBars = 2
Else
Me.ScrollBars = 0
End If

Me.Field1.SetFocus
Me.TimerInterval = 0
End Sub

Answer 1

我管理过，在resize事件代码中运行得很好：

{{1}}