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

用vb代碼如何實(shí)現(xiàn)滾動(dòng)字幕？

水平滾動(dòng)：在窗體中放置標(biāo)簽和計(jì)時(shí)器控件，并修改標(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。

添加時(shí)間控件：Timer1。

添加水平滾動(dòng)條：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ū)域”

計(jì)時(shí)器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制作滾動(dòng)字幕？

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

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

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

＝＝＝

私有子窗體加載（）

Label1.AutoSize=True

Timer1.Interval=10

結(jié)束Sub

私有子計(jì)時(shí)器1 計(jì)時(shí)器（）

Label1.Move IIf（Label1.Left-10

結(jié)束Sub