Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

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

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

希望有需要的朋友用到。



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助