会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 窗体控件 > 正文

一个让你心动的窗体模板(+附件)

时间:2009-07-23 08:45 来源:这是本人平常制作窗体的窗体模板 作者:caoguang… 阅读:
正 文:

点击下载此附件示例中:

 

功能一:我(标签0)的宽度会随窗体的宽度变化而变化,窗体的页眉、页脚及子窗体(Child0)的宽度也与我一样,并且子窗体(Child0)的高度也随窗体的高度变化而变化

功能二:利用组合框来控制子窗体的所要显示的源对象(表、查询、子窗体(窗体)),示例中只对表和查询作为源对象的展示,子窗体(窗体),也是一样,依样画符可也,

VBA代码:

Private Sub Cbo1_AfterUpdate()  '---------[Cbo1]组合框更新事件
Me.Child0.SourceObject = Me.Cbo1
Me.Child0.Requery
'Me.Refresh
End Sub

Private Sub Form_Load()          '----------如果注释掉加载事件,打开窗体时,[Child0]子窗体为空白
Me.Child0.SourceObject = "表.表1"
End Sub

Private Sub Form_Resize()
'Me.Painting = False
Me.Child0.Width = Me.InsideWidth
Me.标签0.Width = Me.InsideWidth - 1134
Me.Child0.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
topline.Width = Me.InsideWidth
bottomline1.Width = Me.InsideWidth
'Me.Painting = True
End Sub

(责任编辑:admin)

顶一下
(1)
100%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: