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

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.取列数 (), #天蓝)

运行结果:

总结

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

(0)

相关推荐

  • 易语言快捷搜索信息与快捷录入信息的代码

    快捷录入信息与关键词匹配功能代码 .版本 2 .程序集 窗口程序集1 .程序集变量 快捷信息, 文本型 .程序集变量 分割信息, 文本型, , "0" .子程序 _输入编辑框_内容被改变 .局部变量 M, 整数型 .如果真 (输入编辑框.内容 = "") 内容列表框.可视 = 假 返回 () .如果真结束 内容列表框.清空 () .计次循环首 (取数组成员数 (分割信息), M) .如果 (寻找文本 (分割信息 [M], 输入编辑框.内容, , 假) ≠ -1) 内

  • 易语言用判断循环首来讲笑话的代码

    用判断循环首来讲笑话的代码 .版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 想看次数, 整数型 .局部变量 循环次数, 整数型 标准输出 (, "下面的故事你想看几遍?请输入:") 想看次数 = 到整数 (标准输入 ()) .判断循环首 (想看次数 ≠ 循环次数) 标准输出 (, "从前有座山,山里有个庙.庙里有个老和尚给小和尚讲故事!讲的故事是") 循环次数 = 循环次数 + 1 .判断循环尾 ()

  • 易语言秒数与时分秒格式转换工具的代码

    秒数与时分秒格式转换的代码 .版本 2 .程序集 窗口程序集1 .子程序 _秒数转换成时间按钮_被单击 .局部变量 总秒数 .局部变量 时 .局部变量 分 .局部变量 秒 总秒数 = 到数值 (输入秒数编辑框.内容) 秒 = 到数值 (输入秒数编辑框.内容) 分 = 取整 (秒 ÷ 60) 秒 = 秒 % 60 .如果真 (分 ≥ 60) 时 = 取整 (分 ÷ 60) 分 = 分 % 60 .如果真结束 信息框 (到文本 (总秒数) + "秒 = " + 到文本 (时) + &quo

  • 易语言将文本按照指定字符分割的代码

    分割文本代码 .版本 2 .程序集 窗口程序集1 .程序集变量 是否修改, 逻辑型 .程序集变量 文本数组, 文本型, , "0" .程序集变量 数组成员数, 整数型 .子程序 _编辑框1_内容被改变 是否修改 = 假 .子程序 _分割按钮_被单击 .局部变量 点击次数, 整数型, 静态 .局部变量 文本, 文本型 .局部变量 显示文本, 文本型, , "0" .如果真 (是否修改 = 假) 文本数组 = 分割文本 (编辑框1.内容, #换行符, ) 数组成员数 =

  • 易语言信息框调用子程序返回结果的代码

    调用子程序返回的结果 .版本 2 .程序集 窗口程序集1 .子程序 _调用子程序按钮_被单击 信息框 (被调用的子程序 (), 64, "子程序返回的结果", ) .子程序 被调用的子程序, 文本型 返回 ("这是 调用子程序 返回的结果") 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言创建一组随机数并将其排序的代码

    创建随机数并将其排序的代码 .版本 2 .程序集 窗口程序集1 .子程序 _排序按钮_被单击 .局部变量 计次 .局部变量 寄存器, 整数型, , "20" .局部变量 N 置随机数种子 () .计次循环首 (取数组成员数 (寄存器), 计次) 寄存器 [计次] = 取随机数 (1, 100) .计次循环尾 () .计次循环首 (取数组成员数 (寄存器), 计次) .计次循环首 (取数组成员数 (寄存器) - 1, N) .判断开始 (寄存器 [N] > 寄存器 [计次]) .默

  • 易语言子程序数据传递的应用代码

    子程序数据传递应用代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 整数变量1, 整数型 .局部变量 整数变量2, 整数型 .局部变量 小数变量1, 小数型 .局部变量 小数变量2, 小数型 .局部变量 文本型变量1, 文本型 .局部变量 文本型变量2, 文本型 参数赋值 (整数变量1, 整数变量2, 小数变量1, 小数变量2, 文本型变量1, 文本型变量2) 编辑框1.加入文本 ("参考整数型参数中的变量:" + 到文本 (整数变量1) + #换行符

  • 易语言取出两个编辑框中相同内容的代码

    对比两个编辑框内容的代码 .版本 2 .程序集 窗口程序集1 .子程序 _对比按钮_被单击 .局部变量 循环计次1, 整数型 .局部变量 文本1, 文本型, , "0" .局部变量 循环计次2, 整数型 .局部变量 文本2, 文本型, , "0" 对比结果编辑框.内容 = "" 文本1 = 分割文本 (编辑框1.内容, #换行符, ) 文本2 = 分割文本 (编辑框2.内容, #换行符, ) .计次循环首 (取数组成员数 (文本1), 循环计次1

  • 易语言文本型和字节集型数据相互转换的工具

    文本和字节集数据互相转换的代码 .版本 2 .程序集 窗口程序集1 .子程序 文本到字节集, 文本型, 公开 .参数 要转换的文本, 文本型 .局部变量 字节集变量, 字节集 .局部变量 循环次数, 整数型 .局部变量 字节型变量, 字节集 .局部变量 要输出的文本, 文本型 .局部变量 文本数据, 文本型 文本数据 = 要转换的文本 字节集变量 = 到字节集 (文本数据) .计次循环首 (取字节集长度 (字节集变量), 循环次数) 字节型变量 = 取字节集中间 (字节集变量, 循环次数, 1)

  • 易语言制作双色球随机选号工具的代码

    双色球随机选号代码 .版本 2 .程序集 窗口程序集1 .子程序 _随机选号按钮_被单击 .局部变量 z, 逻辑型 .局部变量 随机号 随机号 = 取随机数 (1, 33) .如果 (随机号 < 10) 红球编辑框1.内容 = "0" + 到文本 (随机号) .否则 红球编辑框1.内容 = 到文本 (随机号) z = 假 .如果结束 .循环判断首 () 随机号 = 取随机数 (1, 33) .如果 (随机号 = 到数值 (红球编辑框1.内容)) z = 真 .否则 .如果 (随机

  • 易语言文本排列的代码实例

    文本排列代码 .版本 2 .程序集 窗口程序集1 .子程序 _排列按钮_被单击 .局部变量 计次 .局部变量 重复文本 重复文本 = 4 顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (7, " ") + 取重复文本 (1, "*") + #换行符 顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (6, " ") + 取重复文本 (3, "*") + #换行符 顶部编辑框.内容 = 顶部编辑框.内容 + 取重

  • 易语言设置日期框禁止选择以前日期的代码

    禁止日期框选择小于当前日期的代码 .版本 2 .程序集 窗口程序集1 .子程序 _日期框_选择日期被改变 .如果真 (日期框.今天 < 取现行时间 ()) 信息框 ("不可选择以前的日期!", 16, "提示", ) 日期框.今天 = 取现行时间 () 返回 () .如果真结束 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言猜随机数小游戏的代码

    猜0~100随机数代码 .版本 2 .程序集 窗口程序集1 .程序集变量 随机数, 整数型 .子程序 _确定按钮_被单击 .如果 (到整数 (编辑框1.内容) = 随机数) 信息框 ("正确", 0, ) 置随机数种子 () 随机数 = 取随机数 (1, 10) .否则 .判断开始 (到整数 (编辑框1.内容) < 随机数) 信息框 ("小了", 0, ) .判断 (到整数 (编辑框1.内容) > 随机数) 信息框 ("大了", 0,

  • 易语言自定义数据类型的使用代码

    自定义数据类型表 .版本 2 .数据类型 消息类型 .成员 键盘消息, 文本型 自定义数据类型使用代码 .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 接收返回, 消息类型 接收返回 = 自定义返回的数据类型 () 信息框 (接收返回.键盘消息, 64, "自定义数据类型", ) .子程序 自定义返回的数据类型, 消息类型 .局部变量 消息类型, 消息类型 消息类型.键盘消息 = "anxia123++.." 返回 (消息类型) 运行结果

  • 易语言使用变量循环首命令显示0到50之间所有偶数的代码

    显示0到50之间的偶数代码 .版本 2 .程序集 窗口程序集1 .子程序 _变量循环首按钮_被单击 .局部变量 循环变量, 整数型 变量循环首编辑框.内容 = "" .变量循环首 (0, 50, 2, 循环变量) ' 显示0~50之间的所有偶数 变量循环首编辑框.加入文本 (到文本 (循环变量), ",") .变量循环尾 () 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解

随机推荐