vb.net 如何在如圖所示的框里做一個滾動字幕出來，急求?。。∈且粋€textbox，要讓里面的字滾動起來

最簡單的，就是在上面放一個label，用Timer定時器控件控件這個label的移動

創(chuàng)新互聯(lián)是一家專業(yè)提供萊山企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、網(wǎng)站設(shè)計、外貿(mào)網(wǎng)站建設(shè)、H5響應(yīng)式網(wǎng)站、小程序制作等業(yè)務(wù)。10年已為萊山眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計公司優(yōu)惠進(jìn)行中。

vb.net 如何在如圖所示的框里做一個滾動字幕出來，急求?。?！

private?void?button1_Click(object?sender,?EventArgs?e)

{

Timer?t?=?new?Timer();

t.Interval?=?50;

int?n?=?0;

int?w?=?this.label1.Width;

t.Tick?+=?(s,?ee)?=

{

n?+=?10;

int?d?=?this.Width?-?w;

this.label1.Left?=?n?%?d;

};

t.Start();

}

VB.NET中，如何編寫代碼使文字在窗口中上下循環(huán)滾動？

文字寫在label的caption屬性中，調(diào)用timer()函數(shù)

附上我寫的左右往復(fù)運(yùn)動代碼，實現(xiàn)image1在picture1中左右往復(fù)運(yùn)動

Private

Sub

Timer1_Timer()

If

Image1.Left

=

Picture1.ScaleWidth

-

Image1.Width

Then

k

=

1

If

k

=

1

Then

Image1.Left

=

Image1.Left

-

50

Else

Image1.Left

=

Image1.Left

+

50

End

If

If

Image1.Left

=

Then

k

=

End

Sub

vb.net 中怎樣實現(xiàn)窗口標(biāo)題欄上面的文字滾動

字符拼湊法:

dim Title as string="播放歌曲播放歌曲"

dim S as string=""

for I as integer=0 to Title.length-1

S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)

next

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

示例：

PrivateSubForm_Load()

'//預(yù)先設(shè)定要顯示的內(nèi)容

content="滾動字幕示例控制文本的循環(huán)滾動"

'//獲取內(nèi)容長度

length=Len(content)

'//label1控件，手動調(diào)整

'//接著需要選擇字體大小

SetMe.Font=Label1.Font'//方便借用Form.TextHeight方法

Dimfont_heightAsLong,font_widthAsLong,sizeAsLong

size=Label1.Font.size

font_height=Me.TextHeight("循環(huán)滾動")

font_width=Me.TextWidth("循環(huán)滾動")

Whilefont_height=Label1.HeightAndfont_width=Label1.Width

size=size+1

Label1.Font.size=size

font_height=Me.TextHeight("循環(huán)滾動")

font_width=Me.TextWidth("循環(huán)滾動")

Wend

Label1.Font.size=size-1'//選擇最合適的字體大小

pos=1'//從第一個字符開始讀取

EndSub

PrivateSubCommand1_Click()

Timer1.Interval=1000'1000毫秒執(zhí)行一次

EndSub

PrivateSubTimer1_Timer()

DimsizeAsLong,tempAsString

'//每次顯示5個長度單位的內(nèi)容

size=length-pos'//得到截取的長度大小

Ifsize4Then'//當(dāng)不足5個長度單位時

temp=Mid(content,pos,size+1)

temp=tempMid(content,1,4-size)

pos=5-size

Else

temp=Mid(content,pos,5)

pos=pos+5

EndIf

Label1.Caption=temp'//把截取的文本內(nèi)容顯示出來

EndSub

擴(kuò)展資料

VB設(shè)計自動滾動字幕窗體

DimDireAsString

'窗體Load事件

PrivateSubForm_Load()

Dire="向左"

EndSub

'定時器事件

PrivateSubTimer1_Timer()

DimNewColorAsLong

Randomize

NewColor=RGB(Rnd()*256,Rnd()*256,Rnd()*256)

Label1.ForeColor=NewColor

IfDire="向左"Then

Label1.Left=Label1.Left-10

IfLabel1.Left0ThenDire="向右"

ElseIfDire="向右"Then

Label1.Left=Label1.Left+10

IfLabel1.Left+Label1.WidthMe.ScaleWidthThenDire="向左"

EndIf

EndSub

vb.net文字向上滾動

RichTextBox1.Focus() RichTextBox1.SelectionLength = 0 RichTextBox1.SelectionStart = RichTextBox1.Text.Length RichTextBox1.ScrollToCaret()這樣將保持RichTextBox中的文字焦點始終出現(xiàn)在最新的一行