Foxtable(狐表)用户栏目专家坐堂 → 如何取得窗口名?


  共有11644人关注过本帖树形打印复制链接

主题:如何取得窗口名?

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/15 12:05:00 [显示全部帖子]

For Each frm As WinForm.Form In Forms
    If frm.TableName = "表A" Then
        Output.Show(frm.Name)
    End If
Next

 

是不是这样?可以找到表A中的所有窗口名.


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/15 12:05:00 [显示全部帖子]

在命令窗口测试.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/16 7:42:00 [显示全部帖子]

不知道你说什么,要干什么?加入171029925  ,可能有人帮你,很多版主在呢!

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/16 7:50:00 [显示全部帖子]

以下是引用huntkey在2011-12-15 21:12:00的发言:

感谢blackzhu,但是我的目的不是这个,可能是我没说清楚吧,我想要的是只在窗口中操作,不依托表A,而且只取得Dropdownbox控件所在窗口的窗口名……

越说越糊涂了图片点击可在新窗口打开查看

 

 

  你只需要获得窗口名,但是窗口做在那个表你应该知道的,所以我的办法是可行的.


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/17 11:23:00 [显示全部帖子]

你问了什么问题,我怎么没有看见.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/17 11:26:00 [显示全部帖子]

条件是什么,写出来看看.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/17 12:35:00 [显示全部帖子]

For Each frm As WinForm.Form In Forms
    Select frm.TableName
        Case "排单"
            Output.Show(frm.TableName & ":" & frm.Name)
        Case "BOPP印刷工艺生产日报表"
            Output.Show(frm.TableName & ":" & frm.Name)
    End Select
Next

 

 这段代码是什么表有什么窗口.

 

如果表A有10个窗口

 

For Each frm As WinForm.Form In Forms
    If frm.TableName ="表A" Then
        Select frm.Name
            Case "窗口1"
                执行代码
            Case "窗口2"
                执行代码
        End Select
    End If
Next

 


 回到顶部