用VBA动态改变窗体的宽度-leo
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


用VBA动态改变窗体的宽度

发表时间:2018/2/27 21:28:04 评论(1) 浏览(12299)  评论 | 加入收藏 | 复制
   
摘 要:控制窗体的宽度大小变化,用一个按钮实现扩展和缩放。
正 文:

      在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群(群号:198465573)
 
 相关文章
【access小品】图片的裁剪与缩放  【todaynew  2009/11/26】
【access源码】窗体自适应调节缩放函数  【红尘如烟  2010/3/31】
控件随窗体等比缩放  【Michaelx  2010/4/2】
无边框窗体鼠标拖动缩放示例  【落尘_小新  2014/1/3】
【Access报表】标签缩放打印,按缩放比例打印标签显示大小,按倍...  【落尘_小新  2014/2/12】
【Access报表示例】用代码控制报表预览比例,报表默认显示预览比...  【麥田  2014/12/9】
常见问答
技术分类
相关资源
文章搜索
关于作者

leo

文章分类

文章存档

友情链接