最簡(jiǎn)單的,就是在上面放一個(gè)label,用Timer定時(shí)器控件控件這個(gè)label的移動(dòng)
10年積累的成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn),可以快速應(yīng)對(duì)客戶(hù)對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶(hù)得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有富順免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
請(qǐng)參考我的網(wǎng)站
從左到右循環(huán)滾動(dòng)地顯示“滾動(dòng)圖片!”
把圖片換成文字即可。
字符拼湊法:
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
RichTextBox1.Focus() RichTextBox1.SelectionLength = 0 RichTextBox1.SelectionStart = RichTextBox1.Text.Length RichTextBox1.ScrollToCaret()這樣將保持RichTextBox中的文字焦點(diǎn)始終出現(xiàn)在最新的一行
文字寫(xiě)在label的caption屬性中,調(diào)用timer()函數(shù)
附上我寫(xiě)的左右往復(fù)運(yùn)動(dòng)代碼,實(shí)現(xiàn)image1在picture1中左右往復(fù)運(yùn)動(dòng)
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