Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件叠加


  共有3693人关注过本帖树形打印复制链接

主题：[求助]控件叠加
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]控件叠加  发帖心情 Post By：2019/8/17 17:15:00 [显示全部帖子]

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








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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/17 18:16:00 [显示全部帖子]

老师，动态生成的两个控件不能叠加在一起总是一个在下一个在上。代码标出的属性控件多是靠下，我的意思是面板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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 21:47:00 [显示全部帖子]

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


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)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 22:24:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 22:35:00 [显示全部帖子]

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

r3.Top = 330
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 22:50:00 [显示全部帖子]

老师，下面代码有报错

图片点击可在新窗口打开查看此主题相关图片如下：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)
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 23:11:00 [显示全部帖子]

老师，好了代码重复声明了。

Dim txt2 As WinForm.TabControl

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/19 9:51:00 [显示全部帖子]

老师，添加标出的代码报错

Dim txt5 As WinForm.Panel
txt5 = e.Form.CreateControl("Panel3", ControlTypeEnum.Panel)
txt5.BackColor =  Color.Crimson               '背景颜色
txt5.BorderStyle = BorderStyle.Fixed3D      '边框样式
txt5.Dock = 5
For i As Integer = 1 To 5
    Dim r5 As WinForm.Control = Forms("分区面板").Controls("面板3" & i)
    r5.Top = 150
    r5.left = 150 + 100 * (i-1)
    r5.BaseControl.font = new Font("微软雅黑",12.5,FontStyle.Regular)
    r5.TextAlign = TextAlignEnum.TopCenter    
    txt5.AddControl(r5)
Next
e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt5)
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/19 21:39:00 [显示全部帖子]

老师，动态生成按钮的这两个事件的代码怎样操作。


MouseEnter

鼠标进入控件的时候执行

If e.Form.Controls("SplitContainer1").Panel2.Collapsed = True Then

Else

    e.Sender.Width = 12

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width - 4

    e.Sender.TopMost = True

End If

MouseLeave

鼠标离开控件的时候执行。

If e.Form.Controls("SplitContainer1").Panel2.Collapsed = True Then

    e.Sender.Width = 12

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width - 12

    e.Sender.TopMost = True

Else

    e.Sender.Width = 4

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width

    e.Sender.TopMost = True

End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06152 秒, 5 次数据查询