[菜鸟学易]用鼠标拉动扩宽控件宽度

添加时间:2007-11-18 原文发表:2007-11-18 人气:79

[例程]用鼠标拉动扩宽控件宽度13_181.e
下载: e 文件
逆@风@者

窗口程序集：窗口程序集1
程序集容器：鼠标状态    数据类型：整数型
------------------------------
子程序：_外形框1_鼠标位置被移动
返回值类型：逻辑型
参数：横向位置    数据类型：整数型
参数：纵向位置    数据类型：整数型
参数：功能键状态数据类型：整数型
如果真 (鼠标状态 ≠ 0)
   外形框1.左边＝ (外形框1.左边＋横向位置) －外形框1.宽度 ÷ 2
   列表框1.宽度＝外形框1.左边－外形框1.宽度 × 2 － 2
如果真结束
如果真 (列表框1.宽度＜ 96)
   列表框1.宽度＝ 96
如果真结束
如果真 (外形框1.左边＜ 126)
   外形框1.左边＝ 126
如果真结束
------------------------------
子程序：_外形框1_鼠标左键被按下
返回值类型：逻辑型
参数：横向位置    数据类型：整数型
参数：纵向位置    数据类型：整数型
参数：功能键状态数据类型：整数型
鼠标状态＝ 1
------------------------------
子程序：_外形框1_鼠标左键被放开
返回值类型：逻辑型
参数：横向位置    数据类型：整数型
参数：纵向位置    数据类型：整数型
参数：功能键状态数据类型：整数型
鼠标状态＝ 0
------------------------------
子程序：__启动窗口_鼠标位置被移动
返回值类型：逻辑型
参数：横向位置    数据类型：整数型
参数：纵向位置    数据类型：整数型
参数：功能键状态数据类型：整数型
鼠标状态＝ 0

• [菜鸟学易]聊天室——控件的综合运用

• 锁屏工具

• hookAPI给卷帘式菜单加上背景图片

• 控件使用之标签

• 利用QQ最新版控件捕捉屏幕