- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]动态生成面板 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140098)
-- 发布时间：2019/8/29 13:03:00
-- [求助]动态生成面板
老师好，怎样连续动态生成5个面板同时停靠在分区面板2中。
-- 发布时间：2019/8/29 14:07:00
--
For i as integer = 1 to 5
生成面板的代码
Next
-- 发布时间：2019/8/30 16:09:00
--
老师，我要在窗口1中的面板中再动态生成5个面板横向排列间距30不知怎样设置。谢谢老师。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:面板.table |
-- 发布时间：2019/8/30 16:31:00
--
Dim left As Integer = 10
For i As Integer = 1 To 5
Dim txt As WinForm.Panel
txt = e.Form.CreateControl("Panel" & i, ControlTypeEnum.Panel)
txt.Left = left
txt.Top = 10
txt.Width = 100
txt.Height= 100
txt.backcolor = color.Azure
left += 110
e.Form.Controls("Panel1").AddControl(txt)
Next
-- 发布时间：2019/8/31 8:54:00
--
老师，怎样给下面5个面板设置不同的背景颜色。谢谢
For i As Integer = 1 To 5
txt = e.Form.CreateControl("系统Panel2" & i, ControlTypeEnum.Panel)
txt.backcolor = color.Azure
txt.Dock = 5
e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt)
Next
-- 发布时间：2019/8/31 9:32:00
--
dim cls() as string = {"","颜色1","颜色2",...}
For i As Integer = 1 To 5
txt = e.Form.CreateControl("系统Panel2" & i, ControlTypeEnum.Panel)
txt.backcolor = cls(i)
-- 发布时间：2019/8/31 14:13:00
--
老师，报错。
Dim cls() As String = {"","Crimson"}
For i As Integer = 1 To 5
txt = e.Form.CreateControl("系统Panel2" & i, ControlTypeEnum.Panel)
txt.Dock = 5
txt.backcolor = cls(i)
e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt) \'
Next
-- 发布时间：2019/8/31 14:16:00
--
Dim cls() As color = {color.red,color.Crimson,color.Azure,... }
-- 发布时间：2019/8/31 14:28:00
--
老师，打开窗口时报错。
.NET Framework 版本：4.0.30319.1026
Foxtable 版本：2019.8.29.1
错误所在事件：窗口,窗口面板,AfterLoad
详细错误信息：
Index was outside the bounds of the array.
Dim cls() As color = {color.red,color.Crimson,color.Azure,color.PaleVioletRed,color.LightSkyBlue}
For i As Integer = 1 To 5
txt = e.Form.CreateControl("系统Panel2" & i, ControlTypeEnum.Panel)
txt.Dock = 5
txt.backcolor = cls(i)
e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt)
Next
-- 发布时间：2019/8/31 14:53:00
--
Dim cls() As color = {color.red,color.red,color.Crimson,color.Azure,color.PaleVioletRed,color.LightSkyBlue}