服务器之家

服务器之家 > 正文

易语言表格不显示滚动条的代码

时间:2022-02-12 17:57     来源/作者:易语言源码教程

DLL命令代码

?
1
2
3
4
5
.版本 2
.DLL命令 滚动条, 整数型, , "ShowScrollBar"
  .参数 句柄, 整数型
  .参数 类型, 整数型
  .参数 与否, 逻辑型

表格不显示滚动条代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
.版本 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.取列数 (), #天蓝)

运行结果:

易语言表格不显示滚动条的代码

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

相关文章

热门资讯

蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
2022年最旺的微信头像大全 微信头像2022年最新版图片
2022年最旺的微信头像大全 微信头像2022年最新版图片 2022-01-10
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
返回顶部