精易论坛

标题: 写配置设置鼠标 [打印本页]

作者: 想学坏的小孩 时间: 2010-1-21 17:41
标题: 写配置设置鼠标
.版本 2

.程序集窗口程序集1
.程序集变量屏幕宽度, 整数型
.程序集变量屏幕高度, 整数型
.程序集变量配置文件名, 文本型

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

初始子程序 ()
屏幕宽度＝取屏幕宽度 ()
屏幕高度＝取屏幕高度 ()

.子程序 _时钟1_周期事件
.局部变量水平位置, 整数型, 静态
.局部变量垂直位置, 整数型, 静态

.如果真 (水平位置 ≠ 取鼠标水平位置 () 或垂直位置 ≠ 取鼠标垂直位置 ())
水平位置＝取鼠标水平位置 ()
垂直位置＝取鼠标垂直位置 ()
编辑框1.内容＝到文本 (水平位置)
编辑框2.内容＝到文本 (垂直位置)
.如果真结束

.如果真 (选择框1.选中 ≠ 真)
返回 ()
.如果真结束

.如果真 (水平位置＝ 0)
设置鼠标 (屏幕宽度－ 2, 垂直位置)
.如果真结束
.如果真 (水平位置＝屏幕宽度－ 1)
设置鼠标 (1, 垂直位置)
.如果真结束
.如果真 (垂直位置＝ 0)
设置鼠标 (水平位置, 屏幕高度－ 2)
.如果真结束
.如果真 (垂直位置＝屏幕高度－ 1)
设置鼠标 (水平位置, 1)
.如果真结束

.子程序初始子程序
.局部变量窗口左边, 整数型
.局部变量窗口顶边, 整数型

配置文件名＝ “c:\配置文件.ini”
.如果真 (文件是否存在 (配置文件名) ＝假)
选择框1.选中＝真
返回 ()
.如果真结束

.如果 (读配置项 (配置文件名, “设置鼠标节名称”, “是否选中”, “1”) ＝ “1”)
选择框1.选中＝真
.否则
选择框1.选中＝假
.如果结束
窗口左边＝到数值 (读配置项 (配置文件名, “设置鼠标节名称”, “启动窗口左边”, ))
窗口顶边＝到数值 (读配置项 (配置文件名, “设置鼠标节名称”, “启动窗口顶边”, ))
_启动窗口.移动 (窗口左边, 窗口顶边, , )

.子程序 __启动窗口_将被销毁

.如果 (选择框1.选中＝真)
写配置项 (配置文件名, “设置鼠标节名称”, “是否选中”, “1”)
.否则
写配置项 (配置文件名, “设置鼠标节名称”, “是否选中”, “0”)
.如果结束
写配置项 (配置文件名, “设置鼠标节名称”, “启动窗口左边”, 到文本 (_启动窗口.左边))
写配置项 (配置文件名, “设置鼠标节名称”, “启动窗口顶边”, 到文本 (_启动窗口.顶边))

设置鼠标1.e

11.43 KB, 下载次数: 34, 下载积分: 精币 -2 枚

作者: 想学坏的小孩 时间: 2010-2-22 11:54
沙发自己做
记住了有问题先用论坛的搜索功能
实在找不到在提问

作者: 流浪狼 时间: 2010-2-22 22:20
谢谢分享了！！！！！

作者: Rabbits尐兎 时间: 2012-7-3 17:05
感谢楼主分享，努力学习呀！

作者: 风蚀 时间: 2012-8-3 23:24
好东西这是

作者: dgd 时间: 2012-8-13 21:06
好东西这是

作者: 颐养天年 时间: 2012-9-25 12:45
华人太好人太好人挺好

欢迎光临精易论坛 (https://125.confly.eu.org/)