以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件管理器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57930)

--  作者:pcxjxjhkw
--  发布时间:2014/10/8 14:45:00
--  [求助]文件管理器
在文件管理器上另加命令按钮,自写代码。如加一"扫描"
--  作者:有点甜
--  发布时间:2014/10/8 14:47:00
--  
 做不到
--  作者:有点甜
--  发布时间:2014/10/8 14:56:00
--  

测试了一下,这样写

 

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

 


--  作者:pcxjxjhkw
--  发布时间:2014/10/8 15:27:00
--  

甜老师,学生还是没研究明白,麻烦你能否做一小例,主要是针对图片管理器,想另外增加一拍照和扫描。

谢谢


--  作者:pcxjxjhkw
--  发布时间:2014/10/8 15:34:00
--  
如图:
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141008153505.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/10/8 15:42:00
--  

 代码这样写

 

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

 


--  作者:有点甜
--  发布时间:2014/10/8 15:42:00
--  

请看3楼和6楼。


--  作者:pcxjxjhkw
--  发布时间:2014/10/8 15:44:00
--  
谢谢甜老师,我再琢磨一下
--  作者:pcxjxjhkw
--  发布时间:2014/10/8 19:32:00
--  
 
甜老师,你7楼的代码无法通过。
[此贴子已经被作者于2014-10-8 19:33:34编辑过]

--  作者:有点甜
--  发布时间:2014/10/8 19:35:00
--  
  这段代码是列窗口的啊,如果你要对某个控件操作,你就换成对应的控件的引用