窗体加载问题？

唤　发表于：2012-03-21 13:05:22 　

请教一问题：在ADP中我用了这段代码后打开窗体后总会出滚动条，这是为什么？？

Private Sub Form_Load()

Dim i, J As Integer

Access.SetOption "Show Status Bar", False

DoCmd.Maximize

i = Me.WindowWidth

J = Me.WindowHeight

DoCmd.Restore

DoCmd.MoveSize 0, 0, i, J

End Sub

煮茶论道发表于：2012-03-21 13:48:10

窗体属性弹出设置为是看看。

唤发表于：2012-03-21 14:38:51

不行啊，这样菜单就不见了。

唤发表于：2012-03-21 14:39:17

有没其它的方法

煮江品茶发表于：2012-03-21 17:17:15

me.ScrollBars=0

唤发表于：2012-03-21 18:05:32

还是不行啊，请那位高手出招相助啊。

wsl 发表于：2012-03-21 19:39:50

从你的代码上看，用DoCmd.Maximize使窗体最大化（这时窗体无滚动条），窗体最大化后获取窗体的宽和高，然后用DoCmd.Restore还原窗体，最后用DoCmd.MoveSize 0, 0, i, J 使窗体最大化（有滚动条）。

DoCmd.MoveSize能调整窗体的大小，但不会消除窗体的边框（窗体边框样式不为无时）。窗体边框的宽、高加上i、J后，就大于窗体DoCmd.Maximize最大化后的尺寸，所以窗体DoCmd.MoveSize 0, 0, i, J后就出现了滚动条。

要想不会出现滚动条，一是将窗体边框样式设为无，二是在Form_Load()事件中，只用一次DoCmd.Maximize，之后的代码都不要。

唤发表于：2012-03-22 10:39:27

如果这样就达不到我的最终目的，我要的是登陆加载的这个窗体最大化，后面从菜单中打开的窗体保持原来的大小不变。

马山杨梅发表于：2012-03-22 20:04:48

那可否采用我的土办法，在数据库每个窗体设计时就根据这个窗体的显示需要，在窗体属性的激活事件中放入相应代码。

Private Sub Form_Activate()
DoCmd.Restore'恢复窗口
End Sub

或者

Private Sub Form_Activate()
DoCmd.Maximize ' 最大化窗口
End Sub

这样，哪个窗体成为当前窗体就相应自动转为哪种窗口形式。

总记录：8篇页次：1/1 9 1 :

Access交流中心