用VBA动态改变窗体宽度

    

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

      

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

---

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

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

这样就按下结算按钮，就可以自由的设置窗体大小。  

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

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缇。 

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

      希望有需要的朋友用到。

◆

Access推荐资源

Access培训及企业版新春大优惠 

Access初学者学习计划

Access学习护航计划

Access 与 Excel 之对比

Access专家课堂操作指南

Access快速开发一日通 视频教程

Access职场实战范例 视频教程

◆

Access开发心得

色母粒进销存管理系统

财务数据管理平台

供应链及关务管理系统

◆

Access培训讲师

        

    

      张志，2003年-2013连续10年获选微软最有价值专家，Access数据库培训讲师，十余年Access数据库培训经验，服务过的知名企业有北京奔驰、立达（中国）纺织仪器有限公司、中信泰富特钢集团等。

◆

Access软件公司

上海盟威软件有限公司(www.UMVsoft.com)，专注于Access培训及为客户用Access定制开发软件。由微软最有价值专家团队创建，设有江阴分公司、株洲分公司。公司自主研发了国内第一款Access开发平台(盟威软件快速开发平台)，利用此平台，零基础的人士可以开发出专业的管理类软件，让管理人才转型为“精管理 会编程”的复合型人才。