变量数组问题

我的yyy123

用于储存坐标的变量，坐标数根据需要增减，所以储存组1，2，3 均为0，运行后鼠标取坐标后放开左键，立即提示超出定义范围，查看了一下坐标值变化，鼠标移动时有时会为负数，于是在赋值时先加10，取值时在减去10，但是依然超出定义范围，后把成员改为100，有时候可以，有时候超出定义范围，直接改为9999999后，运行正常了，网上查了很多方法均不能解决，哪位大神解惑一下。

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 程序集_捕获鼠标, 逻辑型
.程序集变量 程序集_窗口句柄, 整数型
.程序集变量 程序集_控件句柄, 整数型
.程序集变量 点击次数, 整数型
.程序集变量 储存组1, 整数型, , "0"
.程序集变量 储存组2, 整数型, , "9999990"
.程序集变量 储存组3, 整数型, , "9999990"
.程序集变量 a1, 整数型
.程序集变量 a2, 整数型
.程序集变量 a3, 整数型
.程序集变量 b1, 整数型
.程序集变量 b2, 整数型
.程序集变量 b3, 整数型

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

图片框_捕获鼠标.禁止 ＝ 假
图片框_捕获鼠标.鼠标指针 ＝ #手型
a1 ＝ 0
a2 ＝ 0
a3 ＝ 0
b1 ＝ 0
b2 ＝ 0
b3 ＝ 0
' 真是奇怪了，变量必须要在运行之前赋值，不赋值就加多少就一直是多少，不会有变化。
调试输出 (取数组成员数 (储存组1))

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

程序集_控件句柄 ＝ 图片框_捕获鼠标.取窗口句柄 ()
程序集_捕获鼠标 ＝ 真
图片框_捕获鼠标.鼠标指针 ＝ #精易鼠标
图片框_捕获鼠标.图片 ＝ {  }
处理事件 ()
SetCapture (图片框_捕获鼠标.取窗口句柄 ())

.子程序 _图片框_捕获鼠标_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (程序集_捕获鼠标)
    ReleaseCapture ()
    程序集_捕获鼠标 ＝ 假
    图片框_捕获鼠标.鼠标指针 ＝ #手型
    图片框_捕获鼠标.图片 ＝ #精易鼠标
    处理事件 ()
    a1 ＝ a1 ＋ 1
    a2 ＝ a2 ＋ 1
    a3 ＝ a3 ＋ 1
    调试输出 (a1)
    调试输出 (a2)
    调试输出 (a3)
    储存组1 [a1] ＝ 到整数 (编辑框_窗口句柄.内容)
    储存组2 [a2] ＝ 到整数 (编辑框_X.内容)
    储存组3 [a3] ＝ 到整数 (编辑框_Y.内容)
    编辑框2.内容 ＝ 到文本 (a1)

大司命

我的yyy123 发表于 2020-2-10 10:49
居然没人，查了一晚上的百度，找到原因了，要加入成员，这论坛不适合初学者啊，还是万能的百度靠谱些{:4_25 ...

重定义数组~

我的yyy123

居然没人，查了一晚上的百度，找到原因了，要加入成员，这论坛不适合初学者啊，还是万能的百度靠谱些