主题：求助 查找控件

凑个热闹

 

 

函数：  查找

 

 

Dim nkey As String = Args(0)
Dim l1 As new List(of String)
Dim dt As DataTable = DataTables("测试")
Dim drs As List(Of DataRow) = dt.Select ("ParentKey ='" & nkey & "'")
If drs Is Nothing Then Return l1
For Each dr As DataRow In drs   
    Dim l2 As  List(of String) = Functions.Execute("查找",dr("Key"))
    For Each str1 As String In l2
        l1.Add(str1)
    Next  
    If dr("控件类型") = "按钮" Then l1.Add(dr("窗口以及控件姓名"))
Next
Return l1

 

命令调试：

 

Dim a As List(of String) = Functions.Execute("查找","863c0027")
For Each b As String In a
    Output.show(b)
Next