Foxtable(狐表)用户栏目专家坐堂 → 按钮控制窗口问题


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

主题:按钮控制窗口问题

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
按钮控制窗口问题  发帖心情 Post By:2018/5/28 9:03:00 [只看该作者]

您好老师。
如何用一个按钮控制开和关同一个窗口?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/28 10:11:00 [只看该作者]

Dim frm = forms("窗口1")

If frm.Opened Then

    frm.Close

    e.sender.Text = "打开"

Else

    frm.Show

    e.sender.Text = "关闭"

End If


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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/28 10:40:00 [只看该作者]

有点甜老师,问题解决了。再次跟您说声“谢谢!!”

 回到顶部