Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim obj As object = Forms("产品单页").Controls("PictureViewer1").basecontrol.Controls("SplitContainer1").panel2.controls("FlowLayoutPanel1")
For Each o As object In obj.controls
o.Font = new Font("宋体", 11)
Next
如,代码
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.SplitterDistance = 200
For Each o As object In obj.panel2.controls("FlowLayoutPanel2").Controls
o.Font = new Font("宋体", 20)
Next
如,代码
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0) 这个代码不管用,报错“未设置对象变量或 With 块变量。” |