command的vb代码

[复制链接]
查看11 | 回复1 | 2008-5-26 13:30:28 | 显示全部楼层 |阅读模式
问得不清楚.
回复

使用道具 举报

千问 | 2008-5-26 13:30:28 | 显示全部楼层
首先你在Form上添加一个Label控件,和一个按钮Command控件,和一个Timer计时器控件Timer1的Enabeld属性设成"False"Command1的Caption属性设成"开始滚动"Timer1的Interval属性设成50双击Command1,复制代码:-------------------------------------------------------IfTimer1.Enabled=FalseThenTimer1.Enabled=TrueCommand1.Caption="暂停"ElseTimer1.Enabled=FalseCommand1.Caption="继续"EndIf------------------------------------------双击Timer1,复制以下代码:Label1.Left=Label1.Left-100IfLabel1.Left<-Label1.WidthThenLabel1.Left=Form1.WidthEndIf---------------------------------------运行就可以了!如果你想要改字幕,只要把Label1的Caption属性改成你想要的文字就可以了!如果想字幕滚动速度慢一些的画,可以把Timer1的Interval属性设大一些
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行