易语言如何实现表格不显示滚动条
这篇文章主要介绍易语言如何实现表格不显示滚动条,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!
创新互联公司为客户提供专业的成都网站建设、做网站、程序、域名、空间一条龙服务,提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、手机网站制作等网站方面业务。
DLL命令代码
.版本 2 .DLL命令 滚动条, 整数型, , "ShowScrollBar" .参数 句柄, 整数型 .参数 类型, 整数型 .参数 与否, 逻辑型
表格不显示滚动条代码
.版本 2 .程序集 窗口程序集1 .程序集变量 滚动条状态 .程序集变量 数据库名, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 运行目录, 文本型 .局部变量 字段, 字段信息, , "6" 滚动条状态 = 表格1.取窗口句柄 () 运行目录 = 取运行目录 () + “\” 数据库名 = 运行目录 + “编码表.edb” .如果真 (文件是否存在 (数据库名) = 假) 字段 [1].名称 = “编码” 字段 [1].最大文本长度 = 8 字段 [2].名称 = “品名规格” 字段 [2].最大文本长度 = 30 字段 [3].名称 = “单位” 字段 [3].最大文本长度 = 4 字段 [4].名称 = “单价” 字段 [4].类型 = #小数型 连续赋值 (#文本型, 字段 [1].类型, 字段 [2].类型, 字段 [3].类型) .如果真 (创建 (数据库名, 字段) = 假) 信息框 (“创建” + #左引号 + 数据库名 + #右引号 + “!”, #错误图标, “错误”) 结束 () .如果真结束 .如果真结束 .如果 (打开 (数据库名, , , , , , ) = 假) 信息框 (“无法打开” + #左引号 + 数据库名 + #右引号 + “!”, #错误图标, “错误”) .否则 .如果 (取记录数 () > 0) 填充表格 (数据库名) .否则 表格1.显示标尺 = 假 表格1.背景颜色 = #灰色 数据源1.置表头行数 (1) 数据源1.置文本 (1, 1, “编码”) 数据源1.置文本 (1, 2, “品名规格”) 数据源1.置文本 (1, 3, “单位”) 数据源1.置文本 (1, 4, “单价”) 数据源1.置对齐方式 (1, 1, 1, 4, #中中) 数据源1.置列宽 (1, 1, 200) 数据源1.置列宽 (2, 1, 750) 数据源1.置列宽 (3, 1, 100) 数据源1.置列宽 (4, 1, 200) 数据源1.置背景色 (1, 1, 100, 10, #白色) 数据源1.置背景色 (表格1.取光标行号 (), 1, , 数据源1.取列数 (), #天蓝) .如果结束 .如果结束 .子程序 __启动窗口_尺寸被改变 连续赋值 (取用户区宽度 (), 标签1.宽度, 分组框1.宽度) 分组框1.高度 = 取用户区高度 () - 标签1.高度 - 20 表格1.高度 = 分组框1.高度 - 10 表格1.宽度 = 分组框1.宽度 - 4 滚动条 (滚动条状态, 3, 假) .子程序 填充表格 .参数 数据库, 文本型 数据库提供者1.数据库文件名 = 数据库 数据源1.数据提供者 = “数据库提供者1” 表格1.数据源 = “数据源1” 返回 () .子程序 _表格1_光标位置改变 数据源1.置背景色 (1, 1, 100, 10, #白色) 数据源1.置背景色 (表格1.取光标行号 (), 1, , 数据源1.取列数 (), #天蓝)
运行结果:
以上是“易语言如何实现表格不显示滚动条”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注创新互联行业资讯频道!
网站名称:易语言如何实现表格不显示滚动条
标题路径:http://pwwzsj.com/article/peicpg.html