[求助]如何用代码调整窗体大小

wang1999

我试过用窗体的WindowHeight和WindowWidth这两个属性，但都不能更改窗体（窗口）的大小，显示为只读，但我查看帮助文档却说这个属性是可读写的，有没有方法可以动态的改变窗体大小。其实我希望实现的效果就像Sygate软件一样，点一下命令按钮后就隐藏一部分窗体，再点就出现。

wang1999

没办法，只好想到用API了，代码如下，大家参考。如还更简单的方法，还请大家贴出来，谢谢Private Declare Function SetWindowPos Lib "user32" _

        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _

        ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_SHOWWINDOW = &H40

Private Const HWND_TOP = 0              '将窗口置于窗口列表顶部

Private Const SWP_NOMOVE = &H2          '保持当前位置（x和y设定被忽略）

Private Const SWP_NOZORDER = &H4        '保持窗口在列表的当前位置（hWndInsertAfter将被忽略）Private Sub Command0_Click()

    SetWindowPos Me.hwnd, HWND_TOP, 0, 0, 400, 100, SWP_NOMOVE Or SWP_NOZORDER

End Sub

wang1999

哦！对了SetWindowPos 中单位应该是象素值，VB中是缇，这一点不同

方漠

Me.height=your wantsizeme.width=your wantsizeme.repaint

wu8313

看看我写这个例子可以吗？分成简约和完整两个显示模式。

[此贴子已经被作者于2004-9-5 21:24:24编辑过]

wang1999

方漠:可惜上述方法我已试过无用,它只能调整窗体内区域的宽度,但不能调整窗口宽度,所以用me.repaint也无效

mrl

Pravite Sub FORM_Load()

DoCmd.MoveSize 500,500,3500,2000

End Sub

这样就能让窗体在启动的时候将其定位在距离屏幕顶端500踶，屏幕左边距离为500踶，同时，窗体的大小为3500×2000踶。

wang1999

用了这么久Access，"movesize"方法一直没注意到谢谢mrl！movesize应该是简单的方法了，直接可以调用实现动态改变窗体大小，不用API那么麻烦（不过API还是要稍微灵活一点）[em08]