[求助]控件叠加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，下面是动态生成的面板，我要把面板叠加在分区面板框中。

Dim txt As WinForm.Panel

txt = e.Form.CreateControl("Panel1", ControlTypeEnum.Panel)

txt.Height=300

txt.BackColor = Color.Red

txt.BorderStyle = BorderStyle.Fixed3D

txt.Dock = 2

e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt)

Dim txt4 As WinForm.Panel

txt4 = e.Form.CreateControl("Panel2", ControlTypeEnum.Panel)

txt4.Height=200

txt4.BackColor = Color.SlateGray

txt4.BorderStyle = BorderStyle.Fixed3D

txt4.Dock = 2

e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt4)

[此贴子已经被作者于2019/8/17 19:04:01编辑过]

没看懂是什么问题

老师，动态生成的两个控件不能叠加在一起总是一个在下一个在上。代码标出的属性控件多是靠下，我的意思是面板2覆盖面板1以此类推。

此主题相关图片如下：image 1.png

Dim txt As WinForm.Panel

txt = e.Form.CreateControl("Panel1", ControlTypeEnum.Panel)

txt.Height=300

txt.BackColor = Color.Red

txt.BorderStyle = BorderStyle.Fixed3D

txt.Dock = 2

e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt)

Dim txt4 As WinForm.Panel

txt4 = e.Form.CreateControl("Panel2", ControlTypeEnum.Panel)

txt4.Height=200

txt4.BackColor = Color.SlateGray

txt4.BorderStyle = BorderStyle.Fixed3D

txt4.Dock = 2

e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt4)

[此贴子已经被作者于2019/8/17 19:04:23编辑过]

Dock 全部改为5

txt.Dock = 5

老师，按钮通过代码设置想要分配到动态生成面板的指定位置。下面代码不显示按钮。

Dim txt As WinForm.Panel

txt = e.Form.CreateControl("Panel1", ControlTypeEnum.Panel)

txt.BackColor = Color.RoyalBlue '背景颜色

txt.BorderStyle = BorderStyle.Fixed3D '边框样式

txt.Dock = 1

e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt)

For i As Integer = 2 To 6

Dim r3 As WinForm.Control = Forms("分区面板").Controls("Button" & i)

r3.Top = 330

r3.left = 10 + 70 * (i-1)

‘txt.AddControl(r3）

e.Form.Controls("Panel1").AddControl(r3)

超出范围了吧

r3.Top = 5 ，这样试试

老师，还是不行，按钮被调用了就是不显示。

老师，好了是下面标出的数字设置错了。

r3.Top = 330

老师，下面代码有报错

此主题相关图片如下：image 1.png

Dim txt2 As WinForm.TabControl

txt2 = e.Form.CreateControl("TabControl1", ControlTypeEnum.TabControl)

txt2.SetBounds(10, 120, 100, 200)

txt2.BackColor = Color.Red '背景颜色

txt2.backcolor=Color.red

e.Form.Controls("SplitContainer1") .Panel1.AddControl(txt2)

Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl

t.ShowCaption = Not t.ShowCaption

Dim txt2 As WinForm.TabControl

txt2 = e.Form.CreateControl("管理按钮", ControlTypeEnum.TabControl)

txt2.TabPages.Add("主页","主页")

txt2.TabPages.Add("按钮集合","按钮集合")

txt2.Left = 1

txt2.Top = 4

txt2.Width =200 '控件长

txt2.Height=400 '控件宽

txt2.Dock = 5

Dim c1tab As C1.Win.C1Command.C1DockingTab = txt2.basecontrol

c1tab.VisualStyle = C1.Win.C1Command.VisualStyle.Custom

c1tab.TabAreaBackColor = Color.SlateGray '标题区域的背景色

c1tab.BackColor = Color.skyblue '控件背景色

Dim pg As WinForm.TabPage = txt2.TabPages(0)

pg.TabForeColorSelected= Color.blue '选定项的标题颜色

pg.TabBackColor = Color.Red '标题背景色

pg.TabBackColorSelected = Color.SeaGreen '选定项的背景色

pg.BackColor = Color.DarkSeaGreen '页面背景色

txt2 .BaseControl.font = new Font("微软雅黑",10,FontStyle.Regular) 'Bold)

e.Form.Controls("SplitContainer1").Panel1.AddControl(txt2)

主题：[求助]控件叠加