以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体动态显示标签文本  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110328)
--  作者：裴保民
--  发布时间：2017/12/1 0:31:00
--  窗体动态显示标签文本

想在主窗体（属性类型为主窗口）做一个标签文本在主窗体上动态由左向右逐渐显示，是在计时器中写的代码，怎样控制只有当"主窗体"置顶时才执行计时器，否则计时器为False ，我写的计时器中，可是只有在程序启动后执行一次，第二次就不刷新的（也就是计时器不随着窗体所处的状态变化而变化），该怎么调整一下呢？

计时器TimerTick事件代码如下：

Dim zct As WinForm.Form = Forms("主窗体")
Dim lbl As WinForm.Label =Forms("主窗体").Controls("Label1")
If zct.Opened  And  zct.TopMost = True Then
If lbl.left+lbl.width > 0 Then
    lbl.left -= 10
Else
    lbl.left = Forms("主窗体").width
End If
End If

[此贴子已经被作者于2017/12/1 0:32:34编辑过]
--  作者：有点甜
--  发布时间：2017/12/1 9:13:00
--  

试试改成

 

If zct.Opened  AndAlso forms.ActiveForm IsNot Nothing AndAlso forms.ActiveForm.Name = zct.Name Then
--  作者：裴保民
--  发布时间：2017/12/1 16:40:00
--  
甜老师怎样设置能实现这个功能可是我在启动程序后有的时候会同时打开提醒窗体和导航窗体（是停靠窗体）这样会启动程序后活动窗体时主窗体可是提醒窗体是置顶这时计算器一直在运行,当关闭提醒窗体后再执行其他查找时（比如单击导航窗体时,活动窗体就不是主窗体了）这是计算器应该执行操作的可是已经停止运行了。我是想达到只要除导航窗体以外,其他窗体只要打开状态且主窗体不是置顶状态就不执行计算器操作否则就执行。甜老师该怎么调整一下呢？
--  作者：有点蓝
--  发布时间：2017/12/1 17:25:00
--  
那就一直执行好了。何必关闭呢
--  作者：裴保民
--  发布时间：2017/12/2 8:42:00
--  
怎样让某一个窗体强制处于活动状态呢？
[此贴子已经被作者于2017/12/2 8:50:00编辑过]
--  作者：有点蓝
--  发布时间：2017/12/2 9:03:00
--  
无法强制。