在做事件转移,已知被调用的子程序的参数信息,比如5个可空参数,现在的办法代码长,依次判断是否传参。
有没有简约点的办法,因为是类.子程序,所有不能用call,被调用的子程序不能修改,只能修改这个转移的事件内容
变量名 | 类 型 | 静态 | 数组 | 备 注 | _存取表 | 变量存取表类 | | | _变量链接 | 变量链接类 | | | _类索引 | 整数型 | | | _参数_左边 | 整数型 | | | _参数_顶边 | 整数型 | | | _参数_宽度 | 整数型 | | | _参数_高度 | 整数型 | | | _参数_是否立即重画 | 逻辑型 | | |
_变量链接. 链接_指针 (_存取表, 参数指针 )_类索引 = _存取表. 取附加值 ()读写锁_zyForm. 读进入 ()_存取表. 到变量 (1, _参数_左边, )_存取表. 到变量 (2, _参数_顶边, )_存取表. 到变量 (3, _参数_宽度, )_存取表. 到变量 (4, _参数_高度, )_存取表. 到变量 (5, _参数_是否立即重画, )如果 (_存取表. 是否为空_ (1 )) 如果 (_存取表. 是否为空_ (2 )) 如果 (_存取表. 是否为空_ (3 )) 如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, , , , )集_zyForm数组 [_类索引 ]. 移动 (, , , , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, , , _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (, , , _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, , _参数_宽度, , )集_zyForm数组 [_类索引 ]. 移动 (, , _参数_宽度, , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, , _参数_宽度, _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (, , _参数_宽度, _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (3 )) 如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, , , )集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, , , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, , _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, , _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, _参数_宽度, , )集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, _参数_宽度, , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, _参数_宽度, _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (2 )) 如果 (_存取表. 是否为空_ (3 )) 如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , , , )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , , , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , , _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , , _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , _参数_宽度, , )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , _参数_宽度, , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , _参数_宽度, _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, , _参数_宽度, _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (3 )) 如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, , , )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, , , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, , _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, , _参数_高度, _参数_是否立即重画 )如果 (_存取表. 是否为空_ (4 )) 如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, _参数_宽度, , )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, _参数_宽度, , _参数_是否立即重画 )如果 (_存取表. 是否为空_ (5 )) 集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, )集_zyForm数组 [_类索引 ]. 移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画 )读写锁_zyForm. 读退出 ()返回 (0 )
|