Foxtable(狐表)用户栏目专家坐堂 → 提取窗口所属的空间名


  共有2542人关注过本帖平板打印复制链接

主题:提取窗口所属的空间名

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
提取窗口所属的空间名  发帖心情 Post By:2021/6/25 11:07:00 [只看该作者]

If e.Col.Name = "窗口"  Then
    '列出所有窗口作为列内容
    Dim s1 As String = ""
    For Each frm As WinForm.Form In Forms
        s1 &= frm.name & "|"
    Next
    e.Table.cols("窗口").ComboList = s1.trim("|")
End If

If e.Col.Name = "窗口控件"  Then
    '列出所有窗口作为列内容
    Dim s1 As String = ""
    For Each frm As WinForm.Form In Forms
        s1 &= frm.name & "|"
    Next
    e.Table.cols("窗口控件").ComboList = 显示窗口所属的控件名     救助
End If

 回到顶部