开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 27427|回复: 95
收起左侧

[易语言纯源码] [原创+方法]高级表格自动调整列宽 完美显示效果 可实现读取导入所有数据自动调列宽

[复制链接]
发表于 2015-2-14 04:34:05 | 显示全部楼层 |阅读模式   河北省廊坊市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
本帖最后由 377671771 于 2015-2-14 05:37 编辑

真的超好用哦,这个是高级表格的自动调列宽,不是超级列表框



四行代码看着很简单,但是通过它就能写出很多全自动高级功能。
只需四行代码!两行变量声明不算哦,因为完全可以不要那两个变量的。


简单四行代码,能够实现高级功能。怎么写高级功能那就要看你的了,这是核心代码。
并且全网搜索,除了我这个,就只有易官方论坛10年前的两个帖子是关于,自动调整高级表格列宽功能的。
绝对原创,易官方论坛也是我发的。
如果你的软件在使用高级表格的话用这个写法将会使文本数据更美观!



说说为什么要单独给高级表格自动调列宽
因为在高级表格上,用普通的写法根本没法实现完美的自动调列宽,即使用易官方论坛的两个源码 模块 也会在文字后面出现空白长尾巴

2.png 1.png
易官方论坛的上面那两个帖子年代久远到有将近10年之久,一个是源码,一个是模块,但是实际用到显示出的效果就是会在文字后面出现空白长尾巴,而且是文本越长,尾巴越长。全网搜索除了这两个帖子,其它就没有找到好的方法了。而我的这四行代码就完美解决了,调列宽后带有空白尾巴的问题。



高级表格的文本数据在显示出来后,看着是和其它窗口组件字体大小一样大小,但其实他的字体大小是和其它组件字体大小不一样的。窗口组件的字体基本都默认的是“宋体”,字体尺寸基本都默认的9;而高级表格的默认字体不但不是宋体”,而且字体尺寸也不是9!这就是为什么,在不换字体和尺寸的情况下,怎么调列宽度怎么乱的原因。
通过修改高级表格的字体与大小尺寸,在通过画板得到文本实际的长宽度,然后在通过一定的数字比例计算,就能够将高级表格的“显示出来后的文本”和单元框完美显示,没有尾巴,不会被覆盖。



通过这几行核心代码就能够写出导入或读取数据后,自动调全部的文本数据单元框列宽功能,不会因为数据文本长度不一导致很多字被覆盖看不到。看这个精易编程助手的高级表格,的截图就知道我说的文字看不到是什么意思了

QQ图片20150214041452.png

所谓的自动调列宽,就是将单元框的列宽度,根据文本的长度自动调整到宽度相同,将文字全部显示出来。如果文本很长的话,可以加个判断,限制住最大的列宽就行了。


更详细的说明:
' 画板.字体.字体名称 = “宋体”  ' 画板默认就是“宋体”可以不写,若换其它字体的话,就必须要画板和高级表格字体一致
高级表格.置字体名 (行, 列, , , “宋体”)  ' 必须写出来,高级表格默认的字体不是宋体
高级表格.置字体尺寸 (行, 列, , , 四舍五入 (画板.字体.字体大小 × 1.33, ))  ' 这个1.33只测试了“宋体”和“黑体”自动换算列宽完美显示,只测试了“微软雅黑”不适合
高级表格.置边距 (行, 列, , , 0)
高级表格.置列宽 (列, 画板.取宽度 (高级表格.取数据(行, 列)) + 2)  ' 列宽最后的“2”意思是要大于单元格边距1到3,否则最后一个字会和框线重合
' 如果使用的字体不是宋体和黑体,就要自己算一下。应该有很多个字体适合1.33的,我没有测试
' 上面1.33的算法很简单,先将高级表格“显示出来后”的字体大小 调到和画板字体大小一致了,然后用高级表格的“实际字体大小”除以画板字体大小
' 为什么要先手动调呢?因为高级表格显示出来后的字体大小,是和其它的窗口组件的字体大小不一样


高级表格自动调整列宽-字体大小换算方法.rar (2.27 KB, 下载次数: 1275)

点评

没有考虑表头进去,表头很长,内容很短会导致不如不改。。。。   江西省景德镇市  发表于 2024-4-8 00:06

评分

参与人数 1精币 +2 收起 理由
夜的静night + 2 感谢分享,很给力!~

查看全部评分


结帖率:95% (150/158)

签到天数: 8 天

发表于 2024-10-22 21:27:55 | 显示全部楼层   江西省上饶市
感谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 1 天

发表于 2024-7-11 01:31:12 | 显示全部楼层   湖北省十堰市
谢谢楼主分享
回复 支持 反对

使用道具 举报

签到天数: 3 天

发表于 2024-6-30 17:40:02 | 显示全部楼层   四川省成都市

辛苦了~~ 学习学习~~
回复 支持 反对

使用道具 举报

签到天数: 25 天

发表于 2024-6-4 16:07:01 | 显示全部楼层   广东省汕头市
学习了。。。。。
回复 支持 反对

使用道具 举报

签到天数: 1 天

发表于 2024-1-8 23:36:50 | 显示全部楼层   广东省广州市
开源精神必须支持~11111
回复 支持 反对

使用道具 举报

结帖率:33% (1/3)

签到天数: 1 天

发表于 2023-8-23 18:51:08 | 显示全部楼层   重庆市重庆市
但愿有用
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)

签到天数: 7 天

发表于 2023-3-1 17:06:24 | 显示全部楼层   福建省宁德市
感谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (4/4)
发表于 2023-1-9 16:05:48 | 显示全部楼层   重庆市重庆市
稍微优化了下:
.版本 2
.支持库 eGrid

.程序集 窗口程序集1

.子程序 _高级表格_结束编辑
.局部变量 行, 整数型
.局部变量 列, 整数型

行 = 高级表格.取光标行号 ()
列 = 高级表格.取光标列号 ()
画板1.字体.字体名称 = “宋体”  ' 画板默认就是“宋体”可以不写,若换其它字体的话,就必须要画板和高级表格字体一致。
高级表格.置字体名 (行, 列, , , “宋体”)  ' 必须写出来,可能高级表格默认的字体不是宋体。
高级表格.置字体尺寸 (行, 列, , , 四舍五入 (画板1.字体.字体大小 × 1.33, ))  ' 这个1.33只测试了“宋体”和“黑体”自动换算列宽完美显示,只测试了“微软雅黑”不适合。
高级表格.置边距 (行, 列, , , 0)
高级表格_调整宽度 (高级表格, 列, 80, 画板1)

' 高级表格.置列宽 (列, 画板.取宽度 (高级表格.取数据 (行, 列)) + 2)  ' 列宽要大于单元格边距1到3,否则最后一个字会和框线重合。
' 如果使用的字体不是宋体和黑体,就要自己算一下了。应该有很多个字体适合1.33的,我没有测试。
' 上面1.33的算法很简单,先将高级表格“显示出来后”的字体大小 调到和画板字体大小一致了,然后用高级表格的“实际字体大小”除以画板字体大小。
' 为什么要先手动调呢?因为高级表格显示出来后的字体大小,是和其它的窗口组件的字体大小不一样的!


.子程序 高级表格_调整宽度
.参数 高级表格, 高级表格
.参数 列位, 整数型, , 列的位置
.参数 最大宽度, 整数型, 可空, 默认不设置最大宽度,最好设置最大宽度,避免难看
.参数 画板, 画板, , 用于计算字体大小,任意位置,可视可为假
.局部变量 列数, 整数型
.局部变量 行数, 整数型
.局部变量 局_i, 整数型
.局部变量 最大列宽, 整数型
.局部变量 当前宽度, 整数型

行数 = 高级表格.行数
最大列宽 = 0
.计次循环首 (行数, 局_i)
    当前宽度 = 画板.取宽度 (高级表格.取数据 (局_i - 1, 列位)) + 2
    .如果真 (当前宽度 > 最大列宽)
        最大列宽 = 当前宽度
    .如果真结束

.计次循环尾 ()
.如果真 (最大宽度 > 0 且 最大列宽 > 最大宽度)
    最大列宽 = 最大宽度
.如果真结束
高级表格.置列宽 (列位, 最大列宽)
回复 支持 反对

使用道具 举报

发表于 2022-10-28 03:32:27 | 显示全部楼层   甘肃省兰州市
本帖最后由 700 于 2022-10-28 03:34 编辑

好像可以了。谢谢老板
回复 支持 反对

使用道具 举报

发表于 2022-10-28 03:26:30 | 显示全部楼层   甘肃省兰州市
这个代码从数据库读入不行。无法自动调整。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表