求助，窗口移动过程中如果遇到画板更改内容就会变得卡顿

723120524

如题，求大神帮忙看看哪里出了问题

’---------------------以下为刷新画板的代码------------------------
.版本 2
.支持库 iext5

.子程序 子_UI刷新, , , 如果 运行状态=麦序 则 显示麦序时间 ，其他直接显示
.参数 运行状态, 文本型
.参数 是否不弹窗, 逻辑型, 可空
.局部变量 前向偏移, 小数型
.局部变量 实体宽度, 小数型, , "1", 为了节省内存，该变量类型可定义为短整数型，效果可能稍有出入
.局部变量 上升高度, 小数型
.局部变量 下沉深度, 小数型
.局部变量 文本数组, 文本型, , "1"
.局部变量 起点偏移, 小数型
.局部变量 i, 整数型
.局部变量 测量矩形, 矩形F
.局部变量 示例字体, GP字体, , "3"
.局部变量 字体族, GP字体族
.局部变量 可调节参数1, 整数型
.局部变量 可调节参数2, 整数型
.局部变量 坐标, 坐标F, , "1"
.局部变量 宽度, 整数型, , , 这个变量自己加的

.如果真 (运行状态 ＝ “麦序”)
    运行状态 ＝ “当前麦序时间：” ＋ 到文本 (YY_读麦序 (YY进程ID))
.如果真结束
.如果真 (是否不弹窗 ≠ 真)
    是否不弹窗 ＝ 假
.如果真结束
内存图形.清除 (RGB到ARGB (#背景颜色, ))
可调节参数1 ＝ 5  ' 可以试着调节这个参数
可调节参数2 ＝ 3  ' 可以试着调节这个参数
文本化整为零 (运行状态, 文本数组)
字体.创建自名称 (“微软雅黑”, 24, #字体风格_加粗, )
相同字体文本测量 (运行状态, 字体, 内存图形, 前向偏移, 实体宽度, 上升高度, 下沉深度)
.如果真 (是否不弹窗 ＝ 假)
    气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “<font color = #030303><b>” ＋ 运行状态 ＋ “</font></b>”, -1, 真)
.如果真结束
.计次循环首 (取数组成员数 (实体宽度), i)  ' 这一个循环自己加的
    宽度 ＝ 宽度 ＋ 实体宽度 [i]
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本数组), i)
    .如果 (i ＝ 1)
        起点偏移 ＝ (画板_值档_状态显示.宽度 － 宽度) ÷ 2
    .否则
        起点偏移 ＝ 实体宽度 [i － 1] ＋ 起点偏移
    .如果结束
    内存图形.画文本 (文本数组 [i], 字体, 纯色画刷, 制矩形F (起点偏移, 0, 1000, 1000), )
.计次循环尾 ()
图形.画图像 (图像, 0, 0)




’-------------------以下为移动窗口命令----------------------------
.版本 2

.子程序 _透明标签_移动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

主窗口.发送信息 (161, 2, 0)




’-----------------下面是主窗体设置--------------
随意移动=假
总在之前=假
可否移动=真

coolyanc

两种思路，一个是移动时禁止画板刷新；一个是将画板刷新放到线程里面