Question

易语言如何写一个信息框，就是说有两个按钮单击是就关闭窗口，单击否就最小化到托盘，这个源码要怎么写？

另求大神在帮我写个可以让组合框随意拖动的源码。怕百度屏蔽，我满意后追加悬赏！

Answer 1

组件随意拖动如下
.版本 2

.子程序 _组合框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

组合框1.投递信息 (161, 2, 0)

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

标签1.投递信息 (161, 2, 0)

这是信息框是否钮操作

.版本 2

.子程序 __启动窗口_可否被关闭, 逻辑型

.如果 (信息框 (“是否关闭？”, 64 ＋ 4, “提示”) ＝ #是钮)
    返回 (真)
.否则
    ' 这里插入最小化操作
    返回 (假)
.如果结束

追问

大虾，第一个源码没用诶，无法拖动，能不能把写好的源码文件发给我？另外说一句，我打错了，是分组框，能不能请你发下文件？谢谢了！

追答

.版本 2

.程序集 窗口程序集1
.程序集变量 i, 整数型

.子程序 __启动窗口_创建完毕



.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (横向位置 ＜ 分组框1.左边 ＋ 分组框1.宽度 且 横向位置 ＞ 分组框1.左边)
    .如果真 (纵向位置 ＜ 分组框1.顶边 ＋ 分组框1.高度 且 纵向位置 ＞ 分组框1.顶边)
        i ＝ 1

    .如果真结束

.如果真结束


.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (i ＝ 1)
    分组框1.左边 ＝ 横向位置
    分组框1.顶边 ＝ 纵向位置
.如果真结束



.子程序 __启动窗口_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

i ＝ 0

 

追问

能给我你QQ吗？还是不行诶

追答

我的例程不行吗？

追问

你的例程是可以的，但是把它复制到我的软件源码里就失效了。而且百度超过三次追问是要扣财富值的。

追答

1653.999.089。 复制的时候，你要注意组件的名字和代码要和你的代码相匹配。。。否则就会出错

Answer 2

.如果 (信息框 (“是否关闭？”, 64 ＋ 4, “提示”) ＝ #是钮)
返回 (真)
.否则
' 这里插入最小化操作
返回 (假)
.如果结束