以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口控件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113508)
--  作者：blsu33
--  发布时间：2018/1/17 10:22:00
--  [求助]窗口控件
老师 ，
   如图 这块控件是什么？带....是Panel  加的图片？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180117102241.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/1/17 10:41:00
--  

1、可能是【状态栏】http://www.foxtable.com/webhelp/scr/3118.htm

 

2、也可以是图片，看你喜欢。
--  作者：blsu33
--  发布时间：2018/2/22 15:43:00
--  
老师，
 定义工具栏单click事件 如何定义

Public Sub Strip_Click(ByVal sender As Object, ByVal e As EventArgs)
Functions.Execute("za_nb_Stripclick", sender,e)
End Sub



AddHandler Strip.ItemClick, AddressOf Strip_Click


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180222154249.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/2/22 15:53:00
--  

如果是foxtable的窗口，不需要定义事件，直接用全局事件即可

 

http://www.foxtable.com/webhelp/scr/3112.htm

 

 

 
--  作者：blsu33
--  发布时间：2018/2/22 16:00:00
--  
老师，
 窗口上有PANL，想要加到PANL中去，还有NEW 的窗口，如何自定义添加？
--  作者：有点甜
--  发布时间：2018/2/22 16:03:00
--  

如果确实要绑定，就这样写，如

 

Dim cd As System.Windows.Forms.ToolStripMenuItem = e.form.strips("主菜单").items("项目1").items("项目1").basecontrol
AddHandler cd.click, AddressOf Strip_Click
--  作者：blsu33
--  发布时间：2018/2/22 16:26:00
--  
哦 好了


[此贴子已经被作者于2018/2/22 16:31:58编辑过]
--  作者：有点甜
--  发布时间：2018/2/22 16:32:00
--  

那你就根据提示改呗，不是很明显了？

 

Dim cd As System.Windows.Forms.ToolStripButton = e.form.strips("工具栏1").items("New").basecontrol
--  作者：blsu33
--  发布时间：2018/2/22 22:18:00
--  
老师，
  如何定义一个strips 然后添加到PANL中呢？例如下面的 都是错误 

            Dim p As WinForm.Panel=FormS(dr("ckname")).controls("pnl_cz_" & frmname & "_" & dr("id"))
            Dim Striptab As System.Windows.Forms.ToolStripMenuItem
            Striptab.Name = "Strip_" & p.Name.Trim("p","g","_")
            P.basecontrol.controls.add(Striptab)
--  作者：有点甜
--  发布时间：2018/2/22 22:28:00
--  

如

 

Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip.Items.Add("New", "新建", "new.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Open", "打开", "Open.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Save", "保存", "Save.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Print", "打印", "Print.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Cut", "剪切", "Cut.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Copy", "复制", "Copy.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Brush", "格式刷", "Brush.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Help", "帮助", "Help.ico", StripItemTypeEnum.Button)

 

e.form.controls("panel1").basecontrol.controls.add(strip.basecontrol)