用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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)