用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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)