主题：[求助]文件管理器

 做不到

测试了一下，这样写

 

Dim lbl As New Windows.Forms.Label
lbl.Text = "扫描"
e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1").Controls.Add(lbl)

绑定事件，参考

 

http://www.foxtable.com/help/topics/2374.htm

 

 代码这样写

 

Dim lbl As New Windows.Forms.Label
lbl.Text = "扫描"
lbl.ForeColor = Color.Blue
lbl.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj As object = Tables("表A").Cols("第一列").PictureViewer.basecontrol.Controls(0)
obj.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl)

 

 绑定事件参考

 

http://www.foxtable.com/help/topics/2374.htm

 

请看3楼和6楼。

  这段代码是列窗口的啊，如果你要对某个控件操作，你就换成对应的控件的引用

Dim lbl As New Windows.Forms.Label
lbl.Text = "扫描"
lbl.ForeColor = Color.Blue
lbl.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl)

 你的控件拉宽一点

肯定不会报这个错

改成这样

 

Dim lbl As New Windows.Forms.LinkLabel
lbl.Text = "扫描"
lbl.ForeColor = Color.Blue
lbl.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl)

 写在AfterOpenProject事件。