实用对话框 1.1.0.0

chenyucheng · 发表于 2024-8-27 13:50:00

本来定于2024年1月20日星期六发布，可是当时没时间。导致拖到现在才发布。

实用对话框模块说明

本模块有“颜色选择框”，调用Windows API完成，支持自定义颜色。还有自定义对话框“仿VB输入框”“从列表中选择”，以后会陆续增加实用的自定义对话框。本模块也有一个比较实用的命令“附加_字节集到整数数组”，方便存储和还原二进制格式的自定义颜色文件用。

目前本模块拥有以下命令：

［API通用对话框］

对话框_颜色选择框 (窗口句柄, 初始颜色, 自定义颜色表, 选项_默认显示自定义颜色, 选项_禁用自定义颜色, 选项_只能选16色, 选项_能选任意色)

［自定义对话框］

对话框_仿VB输入框 (提示信息, 窗口标题, 初始文本, 窗口左边, 窗口顶边, 输入方式, 父窗口)
对话框_从列表中选择 (文本列表, 提示信息, 窗口标题, 初始选择, 窗口左边, 窗口顶边, 父窗口)
对话框_长文本提示框 (文本内容, 窗口标题, 关闭按钮文本, 显示关闭按钮, 滚动条模式, 可调节大小)

［其他实用命令］

附加_字节集到整数数组 (字节集, 返回值)

1.1.0 版更新说明

除了“_临时子程序”内的调试命令以外，源码中“输出调试文本”和“调试输出”相关代码行均被屏蔽，使在程序中运行某些模块命令后不会在输出框自动显示一些看不懂的调试信息。
“仿VB输入框”能自动调整对话框高度以完整显示内容，并且调整了默认显示位置的比例，使默认窗口位置和VB差不多。
增加了“对话框_从列表中选择”。
在源码中添加了一点注释，便学者理解一些难理解的代码。
对话框可以自适应窗口高度，以便在不同Windows版本的操作系统中完整显示对话框，防止因窗口标题高度不同而产生下边部分不显示（如WinXP、Win7、Win10等默认风格的窗口标题比Win9x的普通经典样式窗口高的Windows版本）
增加了“对话框_长文本提示框”，可以用来显示一些多行信息，如关于程序的信息。还自带滚动条。

目前本模块增加的命令的参数说明：

子程序名	返回值类型	公开	备注
对话框_从列表中选择	整数型		打开一个列表选择对话框，在选择列表项后将会返回其选择的索引值（从1起）。若选择“取消”，则返回0.
参数名	类型	参考	可空	数组	备注
列表	文本型				显示与对话框中的列表项
提示信息	文本型				可以被省略。作为对话框消息出现的字符串表达式。如果提示信息包含多行，可在各行之间用回车符 (即“字符 (13)”)、换行符 (即“字符 (10)”) 或回车换行符的组合 (即：“字符 (13) + 字符 (10)”) 来分隔。如果提示信息太长或行数过多，那么就像VB一样，会自动增高窗口使显示内容完整。
窗口标题	文本型				可选的。显示对话框标题栏中的字符串表达式。如果省略，默认为“选择列表项目”。
初始选择	整数型				可选的。可以被省略。参数值指定初始设置对话框选择列表框中的选中项序号（从1起）。
窗口左边	整数型				可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。
窗口顶边	整数型				可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

子程序名	返回值类型	公开	备注
对话框_长文本提示框			显示一个提示框，里面有文字。可以使用多行长文本，用来显示注释等内容。
参数名	类型	参考	可空	数组	备注
文本内容	文本型				信息文本内容。
窗口标题	文本型				如果省略，则无标题。
关闭按钮文本	文本型				指定窗口下面的“关闭”按钮的标题文本，不能过长。如果省略，默认文本为“关闭”。
显示关闭按钮	逻辑型				是否显示窗口下面的“关闭”按钮。真=显示，假=不显示。如果省略，默认为“真”。
滚动条模式	整数型				指定滚动条的模式，用序号表示。序号说明：0.无滚动条(自动换行)；1.横向滚动条(一般用不到)；2.纵向滚动条(自动换行)；3.纵横滚动条(不自动换行)。如果省略，默认为“纵向滚动条”。
可调整大小	逻辑型				是否可以调整大小。如果省略，默认“假”。

.版本 2<br />
<br />
.子程序 对话框_从列表中选择, 整数型, 公开, 打开一个列表选择对话框，在选择列表项后将会返回其选择的索引值（从1起）。若选择“取消”，则返回0.<br />
.参数 列表, 文本型, 数组, 显示与对话框中的列表项<br />
.参数 提示信息, 文本型, 可空, 可以被省略。作为对话框消息出现的字符串表达式。如果提示信息包含多行，可在各行之间用回车符 (即“字符 (13)”)、换行符 (即“字符 (10)”) 或回车换行符的组合 (即：“字符 (13) + 字符 (10)”) 来分隔。如果提示信息太长或行数过多，那么就像VB一样，会自动增高窗口使显示内容完整。<br />
.参数 窗口标题, 文本型, 可空, 可选的。显示对话框标题栏中的字符串表达式。如果省略，默认为“选择列表项目”。<br />
.参数 初始选择, 整数型, 可空, 可选的。可以被省略。参数值指定初始设置对话框选择列表框中的选中项序号（从1起）。<br />
.参数 窗口左边, 整数型, 可空, 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。<br />
.参数 窗口顶边, 整数型, 可空, 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。<br />
<br />
.子程序 对话框_长文本提示框, , 公开, 显示一个提示框，里面有文字。可以使用多行长文本，用来显示注释等内容。<br />
.参数 文本内容, 文本型, , 信息文本内容。<br />
.参数 窗口标题, 文本型, 可空, 如果省略，则无标题。<br />
.参数 关闭按钮文本, 文本型, 可空, 指定窗口下面的“关闭”按钮的标题文本，不能过长。如果省略，默认文本为“关闭”。<br />
.参数 显示关闭按钮, 逻辑型, 可空, 是否显示窗口下面的“关闭”按钮。真=显示，假=不显示。如果省略，默认为“真”。<br />
.参数 滚动条模式, 整数型, 可空, 指定滚动条的模式，用序号表示。序号说明：0.无滚动条(自动换行)；1.横向滚动条(一般用不到)；2.纵向滚动条(自动换行)；3.纵横滚动条(不自动换行)。如果省略，默认为“纵向滚动条”。<br />
.参数 可调整大小, 逻辑型, 可空, 是否可以调整大小。如果省略，默认“假”。

其他命令说明：

子程序名	返回值类型	公开	备注
对话框_颜色选择框	整数型		返回选择的颜色整数值。若选择“取消”则返回 -1。
参数名	类型	参考	可空	数组	备注
窗口句柄	整数型				颜色选择框的父窗口句柄。可以设定为空，表示无主窗口。
初始颜色	整数型				设定打开颜色对话框后的默认选择颜色。如果为空，则使用颜色选择框默认选择的颜色（一般是黑色）。
自定义颜色	整数型				要提供一个一维数组变量，数组里面必须要有16个项目。窗口被关闭后，不管选择了“确定”还是“取消”，都会将用户规定的自定义颜色赋值到传入的数组变量当中。
选项_默认显示自定义颜色	逻辑型				如果为“真”，则自动打开“规定自定义颜色”一栏。若此参数为空，默认“假”。
选项_禁用自定义颜色	逻辑型				如果为“真”，则禁用“自定义颜色”设置，并且“规定自定义颜色”按钮是禁用的。若此参数为空，默认“假”。
选项_只能选16色	逻辑型				此选项在高于256色的显示模式（如16位增强色、24位/32位真彩色）中无效。在这种现在都普遍使用的高级显示模式下，效果基本等同于设定此参数为“假”一样。若此参数为空，默认“假”。
选项_能选任意色	逻辑型				意义不明。若此参数为空，默认“假”。

子程序名	返回值类型	公开	备注
对话框_仿VB输入框	文本型		本输入框模仿VB的输入框，比易语言自带的显得更美观，更专业一点。在一对话框中显示提示，等待用户输入正文并按下按钮。如果用户在确认输入后（按下“确认”按钮或回车键）退出，返回输入文本，否则返回空文本。
参数名	类型	参考	可空	数组	备注
提示信息	文本型				必需的。作为对话框消息出现的字符串表达式。如果提示信息包含多行，可在各行之间用回车符 (即“字符 (13)”)、换行符 (即“字符 (10)”) 或回车换行符的组合 (即：“字符 (13) + 字符 (10)”) 来分隔。如果提示信息太长或行数过多，那么就像VB一样，会自动增高窗口使显示内容完整。
窗口标题	文本型				可选的。显示对话框标题栏中的字符串表达式。如果省略，默认为当前在程序配置中设定的程序名信息。
初始文本	文本型				可选的。可以被省略。参数值指定初始设置到对话框输入文本框中的内容。
窗口左边	整数型				可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。
窗口顶边	整数型				可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。
输入方式	整数型				参数值可以为以下常量值： 1、#输入文本； 2、#输入整数； 3、#输入小数； 4、#输入密码。如果省略本参数，默认为“#输入文本”。
父窗口	窗口				可以是一个"窗口"类型数据。如果被省略,默认为无.

.版本 2<br />
<br />
.子程序 对话框_颜色选择框, 整数型, 公开, 返回选择的颜色整数值。若选择“取消”则返回 -1。<br />
.参数 窗口句柄, 整数型, 可空, 颜色选择框的父窗口句柄。可以设定为空，表示无主窗口。<br />
.参数 初始颜色, 整数型, 可空, 设定打开颜色对话框后的默认选择颜色。如果为空，则使用颜色选择框默认选择的颜色（一般是黑色）。<br />
.参数 自定义颜色, 整数型, 参考 可空 数组, 要提供一个一维数组变量，数组里面必须要有16个项目。窗口被关闭后，不管选择了“确定”还是“取消”，都会将用户规定的自定义颜色赋值到传入的数组变量当中。<br />
.参数 选项_默认显示自定义颜色, 逻辑型, 可空, 如果为“真”，则自动打开“规定自定义颜色”一栏。若此参数为空，默认“假”。<br />
.参数 选项_禁用自定义颜色, 逻辑型, 可空, 如果为“真”，则禁用“自定义颜色”设置，并且“规定自定义颜色”按钮是禁用的。若此参数为空，默认“假”。<br />
.参数 选项_只能选16色, 逻辑型, 可空, 此选项在高于256色的显示模式（如16位增强色、24位/32位真彩色）中无效。在这种现在都普遍使用的高级显示模式下，效果基本等同于设定此参数为“假”一样。若此参数为空，默认“假”。<br />
.参数 选项_能选任意色, 逻辑型, 可空, 意义不明。若此参数为空，默认“假”。<br />
<br />
.子程序 对话框_仿VB输入框, 文本型, 公开, 本输入框模仿VB的输入框，比易语言自带的显得更美观，更专业一点。    在一对话框中显示提示，等待用户输入正文并按下按钮。如果用户在确认输入后（按下“确认”按钮或回车键）退出，返回输入文本，否则返回空文本。<br />
.参数 提示信息, 文本型, , 必需的。作为对话框消息出现的字符串表达式。如果提示信息包含多行，可在各行之间用回车符 (即“字符 (13)”)、换行符 (即“字符 (10)”) 或回车换行符的组合 (即：“字符 (13) + 字符 (10)”) 来分隔。如果提示信息太长或行数过多，那么就像VB一样，会自动增高窗口使显示内容完整。<br />
.参数 窗口标题, 文本型, 可空, 可选的。显示对话框标题栏中的字符串表达式。如果省略，默认为当前在程序配置中设定的程序名信息。<br />
.参数 初始文本, 文本型, 可空, 可选的。可以被省略。参数值指定初始设置到对话框输入文本框中的内容。<br />
.参数 窗口左边, 整数型, 可空, 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。<br />
.参数 窗口顶边, 整数型, 可空, 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。<br />
.参数 输入方式, 整数型, 可空, 参数值可以为以下常量值： 1、#输入文本； 2、#输入整数； 3、#输入小数； 4、#输入密码。如果省略本参数，默认为“#输入文本”。<br />
.参数 父窗口, 窗口, 可空, 可以是一个"窗口"类型数据。如果被省略,默认为无.

画廊
仿VB输入框新特性：长文本提示