以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何编写某列显示窗口所有控件的名字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65376)
--  作者：jhq1989
--  发布时间：2015/3/14 18:28:00
--  如何编写某列显示窗口所有控件的名字

这样能实现吗求专家解答

Dim kj As String =""
For Each ct As WinForm.Form In Forms

  For Each c As WinForm.Control In ct.Controls
   kj &= ct.Name & "." & c.Name & "|"
  Next
Next
\'MessageBox.Show("kj")
  Tables("窗口1_分配权限").Cols("控件名").ComboList=kj
--  作者：jhq1989
--  发布时间：2015/3/15 9:26:00
--  

求专家解答啊
--  作者：有点甜
--  发布时间：2015/3/15 10:04:00
--  
 无法获取啊
--  作者：有点甜
--  发布时间：2015/3/15 10:05:00
--  

你的窗口中，必须不能有模式窗口

 

Dim kj As String =""
For Each ct As WinForm.Form In Forms
    ct.Open
    For Each c As WinForm.Control In ct.Controls
        kj &= ct.Name & "." & c.Name & "|"
    Next
    ct.close
Next
\'MessageBox.Show("kj")
Tables("窗口1_分配权限").Cols("控件名").ComboList=kj
--  作者：lsy
--  发布时间：2015/3/15 10:37:00
--  
还不能是下拉窗口