以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  滚动字幕该怎样设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1723)

--  作者:bingbing
--  发布时间:2009/2/3 15:40:00
--  滚动字幕该怎样设置
在窗口中想实现一个上下滚动字幕的一个功能,请哪位大侠给帮忙指点一下。谢谢!
--  作者:狐狸爸爸
--  发布时间:2009/2/3 15:52:00
--  
参考资料:

TimerTick

窗口计时器代码,根据设定的间隔执行。

e参数属性:

Form:表示触发事件的窗口。

示例

本示例可以参考CaseStudy目录下的示例文件:窗口计时器.table

窗口中加入一个标签,要求标签不停地闪烁,而且能够通过按钮控制闪烁速度,以及暂停和开始闪烁。

首先在窗口中加入一个标签,标签文本为“警告”,另外加入四个按钮,分别是暂停、开始、慢速、快速。

然后将窗口的TimerClick事件代码设为:

Dim Lbl As WinForm.Label = e.Form.Controls("Label1")
If
Lbl.ForeColor = Color.Red Then
    Lbl.ForeColor = Color.Black

Else

    Lbl.ForeColor = Color.Red

End
If



SetBounds

统一设置控件的位置和大小。

语法

SetBounds(x, y, Width, Height)

x: 控件的水平位置
y: 控件的垂直位置
Width:  控件宽度
Height: 控件高度

上述参数的单位为像素。