Foxtable(狐表)用户栏目专家坐堂 → 打开和关闭窗口


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

主题:打开和关闭窗口

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


加好友 发短信
等级:四尾狐 帖子:820 积分:5738 威望:0 精华:0 注册:2015/2/3 22:19:00
打开和关闭窗口  发帖心情 Post By:2018/10/17 16:48:00 [只看该作者]

设计了一个按钮, 点一下打开窗口, 再点一下关闭这个窗口。

If Forms("窗口1").visible = False 
Forms("窗口1").open
Else If Forms("窗口1").visible = True Then
Forms("窗口1").close()
End If

我没实现

[此贴子已经被作者于2018/10/17 16:59:11编辑过]

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


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

隐藏参考

 

Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    frm.Visible = not frm.Visible
Else   
    frm.Show
End If


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


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

关闭参考

 

Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    frm.close
Else   
    frm.Show
End If


 回到顶部