优秀的作文600字初中:vb 编程的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 00:30:51
在窗口中放置一个标签。程序运行时标签的位置从右往左移动,当标签中的最后一个字符移出窗口左侧时,标签中的第一个字符出现在窗口的右侧
这个应该怎么实现啊?我刚学VB,还请多多指教

定时器Timer
定时器控件用来有规律地间隔一段时间完成一定的操作。

建议名称采用前缀tmr,如:tmrTimer。默认名称Timer1、 Timer2 ……

定时器的常用属性:

Interval属性:返回或设置两次调用 Timer 控件的 Timer 事件间隔的毫秒数。

如:间隔1秒, Interval设为1000;Interval设为0,定时器不起作用。

Enabled属性:设置定时器是否可用。

时钟在运行阶段不可见,也无其他外观等属性。

定时器事件

Timer事件,是定时器的唯一事件,按间隔自动触发

定时器应用实例

时钟:通过定时器显示系统时间Time()函数。 我要看运行效果! 下载时钟源程序!

移动字幕:通过定时器控制标签的移动(改变Label1的Left属性)

如何实现字幕的循环移动?当Label1的Left超出窗体的右边框时,将Label1重新拉回到窗体的左边。

If Label1.Left>=Form1.Width Then Label1.Left=-Label1.Width

我要看运行效果! 下载移动字幕源程序!

推出字幕:通过定时器改变标签的FontSize属性

如何实现标签的居中?Label1.Left=Form1.Width/2-Label1.Width/2

如何实现字幕的定格?当字体变到一定大小后停止改变

If Label1.fontSize>=100 Then
…… '停止改变字体大小
End If

这个我们也刚做过的