大漠写屏问题

无啦啦

功能 创建写屏(下标)
    写屏开始[下标]=ts_R[下标].CreateFoobarRect(窗口句柄[下标],0,0,200,13)
    等待(50)
    dm[下标].FoobarSetFont(写屏开始[下标],"宋体",9,0)
    等待(50)
    dm[下标].FoobarSetTrans(写屏开始[下标],1,"d4d0c8",1.0)
    等待(50)
    调试输出(写屏开始[下标])
结束
功能 写屏(下标,内容)
    dm[下标].FoobarClearText(写屏开始[下标])
    调试输出(写屏开始[下标])
    等待(100)
dm[下标].FoobarDrawText(写屏开始[下标],1,1,200,13,内容,"FF0000",1)
    等待(100)
    dm[下标].FoobarUpdate(写屏开始[下标])
结束
会叠加呢，清除命令没清除