Foxtable(狐表)用户栏目专家坐堂 → 调整第一列宽度


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

主题:调整第一列宽度

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
调整第一列宽度  发帖心情 Post By:2018/12/18 11:49:00 [显示全部帖子]

老师,有没办法自动调整第一列宽度?


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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/18 12:10:00 [显示全部帖子]

老师,不是这个意思,我是想根据窗口自动调整第一列列宽,不是根据内容调整列宽。

 

逻辑型,是否自动调整最后一列的宽度,以适用表宽。

示例:

Tables("表A").ExtendLastCol = True


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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/20 13:52:00 [显示全部帖子]

以下是引用有点甜在2018/12/18 12:26:00的发言:

方法一:第一列移动到最后一列,执行 ExtendLastCol 后得到宽度,然后移动到第一列。

 

方法二:循环每一列计算宽度累加,table控件宽度减去各列的累加,即可。

老师,我测试方法一无效呢?

方法二,我自适应的,获取到的msgbox(("主窗口_Table1").Grid.width)值不同啊。

[此贴子已经被作者于2018/12/20 14:41:16编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/20 15:49:00 [显示全部帖子]

就这样的啊

    .Cols("标题").Width = .Grid.Width - .Cols("发布日期").Width
    .Cols("发布日期").Width = 80

[此贴子已经被作者于2018/12/20 15:49:33编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 9:26:00 [显示全部帖子]

以下是引用有点甜在2018/12/20 18:34:00的发言:

不会做,请把实例发上来测试。

 

 

 

 

请老师看看

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

[此贴子已经被作者于2018/12/21 9:55:11编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 10:02:00 [显示全部帖子]

谢谢老师,做的通知公告栏完美了。

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181221095946.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 13:23:00 [显示全部帖子]

以下是引用有点甜在2018/12/21 9:45:00的发言:

sizeChanged事件,写代码,如

 

Dim t As WinForm.Table = e.Form.Controls("Table1")
Dim w As Integer = 0
For Each c As object In t.Table.grid.Cols
    w += c.widthdisplay
Next
If w < t.width Then
    t.Table.grid.Cols(1).widthdisplay += t.width-w
End If

老师,又有个新问题,当页签只有主页是正常的,如11楼,当我在打开其他页签后,在返回主页就不正常了,效果变为这样了:

 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181221131924.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 13:33:00 [显示全部帖子]

知道问题在哪儿了,我在项目属性了面设置强制显示滚动条。

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 14:51:00 [显示全部帖子]

老师,发布前没问题,发布后还是不对了。图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 17:22:00 [显示全部帖子]

就按照你的代码写的,发布前没问题,发布后第二列显示就不全了,只显示了一半。
[此贴子已经被作者于2018/12/21 17:22:51编辑过]

 回到顶部
总数 16 1 2 下一页