Foxtable(狐表)用户栏目专家坐堂 → 窗口中控件很多时如何滚动显示?


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

主题:窗口中控件很多时如何滚动显示?

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/15 11:26:00 [显示全部帖子]

窗口:自动滚动 = True

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/15 13:55:00 [显示全部帖子]

在页面集合(TabControl)的某一页面上,加一个面板(Panel),停靠设为Fill,自动滚动设为True。

 


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/21 15:47:00 [显示全部帖子]

附件传不上去啦。

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/21 16:01:00 [显示全部帖子]

贴代码。

 

左移按钮:

If e.Form.Controls("Panel1").Left > = e.Form.Width - e.Form.Controls("Panel1").Width
    e.Form.Controls("Panel1").Left - = 10
End If

 

右移按钮:

If e.Form.Controls("Panel1").Left < 0
    e.Form.Controls("Panel1").Left + = 10
End If


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/21 17:14:00 [显示全部帖子]

怎么都传不上来,没办法。

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/21 18:26:00 [显示全部帖子]

鼠标移到窗口最右侧,按钮就会显示出来。

按住按钮不放,控件会一直移动,直到最左或最右。

单击一次,控件移动10。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:显示窗口外控件.table

[此贴子已经被作者于2014-2-21 18:34:30编辑过]

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/21 20:17:00 [显示全部帖子]

以下是引用有点甜在2014-2-21 18:38:00的发言:
 定义下16楼,不错。不过我打开的时候报错,菜单的问题,可能是因为我的是2013版foxtable的原因

是版本的问题。

倒是不影响本功能的演示。


 回到顶部