以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 动态增加FileManager控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114593)
--  作者：jackyfashion
--  发布时间：2018/2/10 15:01:00
--  求助 动态增加FileManager控件
老师:
   您好!
以下代码,动态FileManager内看不到有文件,背景颜色设计不了

 e.Form.Controls("Panel2").basecontrol.Controls.clear

        Dim s As Integer = Tabl es("表A").rows.count - 1

        For  i As Integer = 0 To s

 Dim fil As WinForm.FileManager = e.Form.CreateControl("FileManager" & i, ControlTypeEnum.FileManager)

            fil.Font = fnt

            fil.ForeColor = Color.FromARGB(0, 0, 0)

            fil.DoubleClickOpen = True

            fil.CommandVisible = False

            fil.BackColor = Color.FromARGB(53, 51, 52)

            fil.OpenEnabled = True

            fil.SelectedItem = True

            fil.Width = 160

            fil.Height = 38

            fil.Left = 220*i+30

            fil.Top = 16

            Fil.File = FileSys.GetFiles( "D:\\" & Tables("表A").Rows(i)("文件"))

            e.Form.Controls("Panel2").AddControl(fil）

请老师指教！！！

谢谢老师！！！



[此贴子已经被作者于2018/2/10 15:32:49编辑过]
--  作者：有点甜
--  发布时间：2018/2/10 15:53:00
--  

如下代码

 

Dim fil As WinForm.FileManager = e.Form.CreateControl("FileManager", ControlTypeEnum.FileManager)
fil.BindingField = "表A.第一列"
e.form.AddControl(fil)
Dim bfil= fil.basecontrol.Controls("SplitContainer1")
bfil.Panel2Collapsed = False
Dim lbx = bfil.panel1.controls(0)
lbx.backcolor = color.red
--  作者：jackyfashion
--  发布时间：2018/2/10 20:49:00
--  
谢谢老师!!!
谢谢!!!