滚动字幕程序vb,电子屏滚动字幕显示屏

vb 程序设计考试:设计一个背单词的界面，力争自下而上做VB 滚动 字幕。感谢楼上的正确方法，vbMake滚动字幕用定时器控制来做，如果是vertical 滚动，只需减少(向上滚动)或增加(向下滚动)文本控件的top属性值即可，如。

使用控件timer1label1，label2，label3privatenenumaslong 来转换private subform _ load()word()array(hello，world，iam，visusl，Basic)下面是一个包含五个单词的数组，label1。自动调整定时器1的大小。间隔100 标签1。速度调节的标题字(0)。初始化字字符的渐隐效果逐个用label 2 . width label 1 . width . height label 1 . height . caption . left 5000 . toplabel 1 . topendwithlabel 3 . width label 1 . width . height . c . aption . left 500 . toplabel 1 . topendwithsubvrivatesubtimer 1 _ timer()方向。

点击一个定时器控件和一个标签复制下面的代码:label用来写你需要的东西字幕optionexplicitprivateesubform _ load()timer 1。间隔100label1。topme。scalehighendprivatetimesubtimer 1 _ timer()label 1。movelabel1。

楼上的方法是对的。如果要加一个滚动 bar来调节速度，你得把楼上50设为变量。然后结合滚动！代码如下:dimnasintegerprivate subform _ load()n50 timer 1 . interval 100 hsccroll 1 . max 10 hsccroll 1 . min 1 endsubvrivatesubhscroll 1 _ change()，选择CaseHScroll1。value case 1n 100 case 2n 150 case 3n 200 case 4n 250 case 5n 300 case 6n 350 case 7n 400 case 8n 450 case 9n 500 case 10n 550 endselectendsubprivatesubtimer 1 _ Time r()label 1，left label 1 . leftniflabel 1 . left label 1。宽。