用vb代碼如何實現(xiàn)滾動字幕？水平滾動：在窗體中放置標(biāo)簽和計時器控件，并修改標(biāo)簽的字體。專用子窗體uuLoad（）標(biāo)簽1。Caption=“最好的字體可以更改請給出表格和代碼“Timer1.Interv

用vb代碼如何實現(xiàn)滾動字幕？

水平滾動：在窗體中放置標(biāo)簽和計時器控件，并修改標(biāo)簽的字體。專用子窗體uuLoad（）標(biāo)簽1。Caption=“最好的字體可以更改

請給出表格和代碼

“Timer1.Interval=300End SubPrivate Sub Timer1 Timer（）標(biāo)簽1。Caption=mid（標(biāo)簽1。標(biāo)題，2，長度（標(biāo)簽1。標(biāo)題）-1）左（標(biāo)簽1。標(biāo)題，1）結(jié)束子

添加文本框：Text1。

添加時間控件：Timer1。

添加水平滾動條：hscroll1。設(shè)置：Min屬性為2，Max屬性為100，smallchange為1。

以下代碼：

privatesubcommand1uuclick（）

timer1.enabled=true

timer1.interval=10

endsub

privatesubformuuload（）

command1。Caption=“開始”

文本1。Backcolor=&800000f

文本1。Borderstyle=0

文本1。Text=“測試區(qū)域”

計時器1。Enabled=false

endsub

privatesubhscroll1uChange（）

timer1.interval=10*hscroll1.value/10

endsub

privatesubhscroll1uScroll（）

timer1.interval=10*hscroll1.value/10

endsub

privatesubtimer1uTime（）

Text1。左=文本1。左50

左1。向左（&L）。左=表格1。Width

ENDIF

endsub

技術(shù)含量不高，僅供參考

vb制作滾動字幕？

方法如下：添加一個label標(biāo)簽，設(shè)置背景為透明，放在窗體最右邊顯示字幕；添加一個timer控件，設(shè)置interval屬性，使其具有滾動效果；在timer事件中，添加代碼使label的left屬性每次減少100，并返回到小于0時的初始值。這樣，產(chǎn)生字幕滾動效果。

vb設(shè)計一條滾動的廣告字幕,要求設(shè)計界面,編寫代碼？

構(gòu)建一個label1，Timer1，代碼如下。

＝＝＝

私有子窗體加載（）

Label1.AutoSize=True

Timer1.Interval=10

結(jié)束Sub

私有子計時器1 計時器（）

Label1.Move IIf（Label1.Left-10

結(jié)束Sub