以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计时器问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80352)
--  作者：drcqh
--  发布时间：2016/1/21 10:12:00
--  计时器问题

想在窗口打开后，窗口标题是一个动态的（从右向左移动的标题），于是在计划管理中代码如下：

 

Dim fm As WinForm.Form = Forms("窗口1")
If fm.Opened Then
    Dim j As Integer
    j=j+1
    fm.Text=space(30-j) & "欢迎使用......"
    If j>30 Then j=0
End If

 

窗口事件load中：

MyTimers("计划1").Enabled=True

 

运行时标题实际没有动，是哪里的问题？
--  作者：大红袍
--  发布时间：2016/1/21 10:16:00
--  
Dim fm As WinForm.Form = Forms("窗口1")
static j As Integer = 0
If fm.Opened Then
    j=j+1
    fm.Text=space(30-j) & "欢迎使用......"
    If j>30 Then j=0
End If
--  作者：drcqh
--  发布时间：2016/1/21 10:51:00
--  
谢谢！