用VBA动态改变窗体的宽度

时　间:2018-02-27 21:28:04
作　者:leo   ID：43273  城市：罗马
摘　要:控制窗体的宽度大小变化，用一个按钮实现扩展和缩放。
正　文:

      在Accesssoft网站，淘宝学习有段时间了， 今天第一次发帖，希望可以和各位access 爱好者一起交流 ，在这里分享自己的小小心得。

在制作销售窗体的时候，控制窗体的宽度大小变化，用一个按钮实现 扩展和缩放；

像是这样 原来的加载的窗体大小如下：

按下结算 ，可以显示  收款操作  ，

还有 需要注意的事，  窗体的设置要为弹出方式：

这样就按下结算按钮 就可以 自由的现实窗体大小  

窗体加载的时候给窗体大小赋值  

Private Sub Form_Load()

 Me.InsideWidth = 12195

end sub

在结算按钮，我写上相应的代码

Private Sub 结算_Click()
 Dim strStatus As Double
 strStatus = Me.InsideWidth
  Select Case strStatus
    Case 12195
    Me.InsideWidth = 17010
    Case 17010
    Me.InsideWidth = 12195
   End Select
Form_frm销售订单.Requery
End Sub

我们窗体的大小设计视图 是用厘米表示的， 在vba代码里设置 me.insidewidth 是用 缇表示， 他们的转换是   1厘米=567缇 

这样可以准确的设置我们相应的窗体大小了；

希望有需要的朋友用到。