优秀的作文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
这个我们也刚做过的