发新话题
打印

[易语言原创教程]用易写网吧菜单(吸附窗口)[开源]

[易语言原创教程]用易写网吧菜单(吸附窗口)[开源]

注:这是多年以前学习易的时候写的一个源码,当时是发表在《电脑爱好者》的官方论坛cfan,源码忘记放哪了,只有当时的截图.

这个源代码是用于网吧菜单似的管理程序,用了一个卷帘式菜单,一个图片框,一个时钟,一个拖放对像。
   原本我是想将程序写成像QQ一样吸附收缩面板的功能,但就是在吸附收缩这里给卡住了,怎么弄也无法将窗口标题的地方给缩小收缩。所以将源代码公布出来给大家分享,也许有人能加以改善。
现在我们来说代码的内容和实现的思路。
1:__启动窗口_创建完毕事件中的代码:
这是程序运行后首先要执行的代码,也就是窗口创建完毕后的事件,我们将时钟1的时钟周期设置为100毫秒,这样就是让时钟每隔100毫秒就执行一次时钟周期事件中的代码。
然后我们设置程序的窗口标题为:MTzhenai信手程序管理箱,同时寻找桌面上的myzhenai信手工具箱目录是不是存在,因为这个是程序自动生成的文件夹,用来保存程序生成的配置文件,如果文件夹存在,就是说明之前有运行过程序,我们就可以跳过以下代码,如果文件夹不存在,程序就执行以下代码自动生成一个文件夹。这里我们用创建目录()命令来生成文件夹。
BBC()是让程序在启动后就自动执行BBC子程序里的代码。以此类推。
2:_时钟1_周期事件中的代码
取鼠标所在窗口句柄 () ,这条命令是自动取得鼠标现在正处于的窗口的句柄,在这里之所以要用到这个命令是因为我们要实现一个功能,就是当鼠标划过时是否与程序窗口里的句柄相同,如果相同就说明鼠标现在是在程序窗口之内,我们在这里用到了一个判断,如果窗口所处的位置在屏幕的最上端,那么鼠标处在窗口位置的话就自动展开窗口,如果不相同就说明鼠标已经离开了窗口,那么就判断窗口现在所处于的位置,如果是在屏幕的最顶部就自动收缩,否则就保持不变。

3:__启动窗口_位置被改变事件中的代码
用一个判断语句来判断窗口所处的位置,如果窗口所处的位置位于屏幕最顶端的话就自动收缩窗口,并把窗口的高度设置为1
4:__启动窗口_尺寸被改变事件中的代码
_启动窗口.宽度 = 211 这条命令将窗口的宽度限制为211,就是无法改变窗口的宽度。
5:BBC子程序事件
这里均是对拖放对像的设置

6:_拖放对象1_得到文件事件代码
在文件被拖放进窗口内时就自动取得文件的路径,并用命令取得文件名和文件图标并将这些信息写进配置项里,通过配置项我们可以让程序在启动时自动检测并显示出来。

7:__启动窗口_将被销毁事件代码
在窗口的X被按下的时候,就执行以下代码,将程序的图标置为空。

8:显示子程序事件代码
自动读取程序保存的配置文件,并显示到卷帘式菜单中。这里就是读取相对应的项目添加到相对应的项值

9:_卷帘式菜单1_项目被选择事件代码
读取配置文件中的信息,找到文件的路径,并运行程序,这是当程序中的项目被左键按下时发生的事件。
程序别外分别设置了一个图片组,一个图标图片,和一个图标
同时设置了三个全局变量,分别是文件路径[文本型],文件图标名[字节集],AE[文本型]


cfan原帖地址:http://bbs.cfan.com.cn/thread-682134-1-1.html
附件: 您所在的用户组无法下载或查看附件

TOP

虽然不懂 但还是要支持一下

TOP

虽然不懂 但还是要支持一下

TOP

发新话题