当内部函数打开的时候如何获取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

当内部函数窗口打开的时候如何获取值

1，如何左边的目录树选择值

2，如何获得右边的函数体的代码值

如果能通过代码获取就好了，否则只能手工操作了。

谢谢

问题是；

Class183

内部函数

Button3

Button2

SplitContainer1

Button1

btnRename

btnAdd

btnDelete

btnEdit

调试只能输出一个分区控件及底部7个按钮的名称，上方的三个控件，没能输出，如何搞

对于SplitContainer1，你再循环查看它里面的panel1、panel2里面的控件啊。

代码求指点修改：

函数：

'Functions.Execute("显示子控件")

Dim ctl = Args(0)

For Each c As object In ctl.Children

output.Show(c.name)

If Typeof c Is WinForm.SplitContainer Then

If c.panel1.Children.Count > 0 Then Functions.Execute("显示子控件",c.panel1)

If c.panel2.Children.Count > 0 Then Functions.Execute("显示子控件",c.panel2)

Else

If Typeof c Is WinForm.Panel OrElse Typeof c Is WinForm.GroupBox Then

If c.Children.Count > 0 Then Functions.Execute("显示子控件",c)

End If

计划任务：

Dim frm = Windows.Forms.Form.ActiveForm

If frm IsNot Nothing Then

output.show(frm.name)

output.show(frm.text)

For Each c As object In frm.controls

output.show(c.name)

If c.Children.Count > 0 Then

Functions.Execute("显示子控件",c)

End If

但运行不正常。

---------------------------

错误

---------------------------

计划计划1代码执行出错，在对代码做出修正之前，将停止执行此计划。

错误信息：

System.MissingMemberException: 未找到类型“o_0O0o__”的公共成员“Children”。

在 Microsoft.VisualBasic.CompilerServices.Symbols.Container.GetMembers(String& MemberName, Boolean ReportErrors)

在 Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)

在 UserCode.Timer_计划1()

---------------------------

确定

---------------------------

[此贴子已经被作者于2016/6/20 21:46:29编辑过]

children改成controls

谢谢，改了，不报错了，但还是没能调试出结果

请老师出手一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件遍历a.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件遍历a.foxdb

谢谢老师辛苦了晚上零点还在工作

继续求助一下

以下计划是根据传递进来函数名称在内部函数的 ListBox1控件中进行函数名称的查找定位功能。 1 后报错，请老师提点：

Dim frm = Windows.Forms.Form.ActiveForm

If frm.Text = "内部函数" Then

Dim zhi As String = Vars("strFindFormName") ‘传递进来要查找的值

Output.Show(1)

Dim lb1 As object = frm.Controls("ListBox1") ' Ctype(frm.controls("ListBox1"),windows.Forms.ListBox) '

Output.Show(2)

For Each s As String In lb1.Items

Output.Show(3)

Output.Show(s)

If s = zhi Then

lb1.SelectedItem = s

Exit For

End If

Output.Show(4)

MyTimers("FindWindowsB").Enabled = False

End If

frm.Controls("SplitContainer1").Panel1.Controls("ListBox1")

主题：当内部函数打开的时候如何获取值