实用对话框 1.0.0.0

chenyucheng

## 1.0.0.0 正式版 说明

目前有以下命令：
对话框_颜色选择框
对话框_仿VB输入框
附加_字节集到整数数组

附加说明：关于之前发布的“颜色选择框”模块
我在之前发的“颜色选择框”(https://bbs.125.la/forum.php?mod=viewthread&tid=14804820)模块，是之前正在开发的“实用对话框”模块中的一部分。这个正式发布的“实用对话框”中的“颜色对话框”，修改了一个参数对应错误的bug(“只能选16色”同时对应了两个选项"CC_SOLIDCOLOR" "CC_ANYCOLOR"，应该把"CC_ANYCOLOR"对应到“能选任意色”那里才对)，并且在选择“取消”的时候，依然能将“自定义颜色”赋值到提供的参数变量中。所以请使用之前发布的“颜色选择框”模块的程序员，赶快换到这个新的“实用对话框”模块，并且把所有的“颜色选择框 (……)”命令的前面部分，全替换成“对话框_颜色选择框 (……)”。并且这个最新版的模块还增加了一种对话框——仿VB输入框，以及参数说明得更详细。谢谢你使用本模块，以及谢谢你对本模块的支持。

---

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

颜色选择框例：

仿VB输入框例：


模块信息和命令表：

  

模块名称：实用对话框
作者：chenyucheng
版本：1.0
更多的实用高级对话框。
@备注:
目前有以下命令：
对话框_颜色选择框
对话框_仿VB输入框
附加_字节集到整数数组
附加说明：关于之前发布的“颜色选择框”模块
（见文首）
------------------------------

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

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

子程序名	返回值类型	公开	备 注
附加_字节集到整数数组			将字节集数据还原到整数数组，并赋值到传入的变量中。
参数名	类 型	参考	可空	数组	备 注
字节集	字节集
返回值	整数型				此处提供变量，用来取返回值

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

chenyucheng

实用对话框模块测试软件已制作完成，下载见附件

pjm123

谢谢分享  

1090448765

谢谢分享  

duisir

6666666666666666666666666666666666666666666666

year1970

谢谢分享  

李泽勇2

楼主很用心，支持！！

西山翠冷

开源精神必须支持~

wuqingg

挺好哈~~~~~~

光影魔术

感谢分享