写配置设置鼠标

想学坏的小孩

.版本 2

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

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

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

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

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

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

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


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

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

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

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

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

想学坏的小孩

沙发 自己做
  记住了有问题 先用论坛的搜索功能
实在找不到 在提问

流浪狼

谢谢分享了！！！！！

Rabbits尐兎

感谢楼主分享，努力学习呀！

风蚀

好东西这是

dgd

好东西这是

颐养天年

华人太好人太好人挺好