Foxtable(狐表)用户栏目专家坐堂 → 滚动字幕该怎样设置


  共有20362人关注过本帖树形打印复制链接

主题:滚动字幕该怎样设置

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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: 控件高度

上述参数的单位为像素。



 回到顶部