[分享]窗口中加入工具条函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

''函数名:加入工具条和控件

''用途:在窗口指定容器中动态添加工具条,并在工具条中加入控件

''参数0:要添加的容器

''参数1:要添加的控件，其控件事先加入并写好代码

如：AfterLoad事件

''添加工具条及控件

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer18")

Dim s() As String = {"复选","全选","反选","分隔条","查找:","查找关键词","查找","显示全部","高级查询","分隔条","第一页","上一页","页数","下一页","最末页","分隔条","每页:","每页条数","合计页数"}

Functions.Execute("添加工具条及控件",spl.Panel2,s)

望大家测试，并改良！

以下内容只有回复后才可以浏览

主题：[分享]窗口中加入工具条函数