Foxtable(狐表)用户栏目专家坐堂 → 分区面板设置问题


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

主题:分区面板设置问题

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/2 11:27:00 [显示全部帖子]

AfterLoad 中  

Dim a As new FoxSplitContainerEx(e.Form.Controls("SplitContainer1"))下面加上




a.CollpaseOrExpand




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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/2 11:44:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:界面设计无闪烁添加两个分区 - 副本.foxdb


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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/2 12:11:00 [显示全部帖子]

AfterLoad 中  

Dim a As new FoxSplitContainerEx(e.Form.Controls("SplitContainer1"))下面加上




a.CollpaseOrExpand


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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/25 7:42:00 [显示全部帖子]

AfterLoad 中  

Dim a As new FoxSplitContainerEx(e.Form.Controls("SplitContainer1"))下面加上

Vars("a") = a



a.CollpaseOrExpand


用的时候


Dim a as FoxSplitContainerEx = Vars("a") 

a.CollpaseOrExpand


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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/29 9:42:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2020/3/29 10:59:00 [显示全部帖子]

你不是两个按钮吗?

一个按钮
 If vars("a").mCollpased = True Then
        vars("a").CollpaseOrExpand
    End If


另一个按钮
 If vars("a").mCollpased = False Then
        vars("a").CollpaseOrExpand
    End If

 回到顶部