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

文字寫在label的caption屬性中，調用timer()函數

創新互聯建站是少有的做網站、成都網站設計、營銷型企業網站、小程序開發、手機APP,開發、制作、設計、外鏈、推廣優化一站式服務網絡公司,從2013年創立,堅持透明化,價格低,無套路經營理念。讓網頁驚喜每一位訪客多年來深受用戶好評

附上我寫的左右往復運動代碼，實現image1在picture1中左右往復運動

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點虐 文字向上滾動

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

用vb代碼如何實現滾動字幕

示例：

PrivateSubForm_Load()

'//預先設定要顯示的內容

content="滾動字幕示例控制文本的循環滾動"

'//獲取內容長度

length=Len(content)

'//label1控件，手動調整

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

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

Dimfont_heightAsLong,font_widthAsLong,sizeAsLong

size=Label1.Font.size

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

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

Whilefont_height=Label1.HeightAndfont_width=Label1.Width

size=size+1

Label1.Font.size=size

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

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

Wend

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

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

EndSub

PrivateSubCommand1_Click()

Timer1.Interval=1000'1000毫秒執行一次

EndSub

PrivateSubTimer1_Timer()

DimsizeAsLong,tempAsString

'//每次顯示5個長度單位的內容

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

Ifsize4Then'//當不足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'//把截取的文本內容顯示出來

EndSub

擴展資料

VB設計自動滾動字幕窗體

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中使一行字體上下來回移動的動畫

一個上下左右移動的例子

花了一些時間來做了一個上下左右移動的例子,做得好的話幫我加點分.

包括四個標簽控件,和一個時間控件

'把以下的代碼另存為一個FORM1.FRM的文件

(先新建一個文本文檔,保存后改名字即可)

'代碼開始

VERSION 5.00

Begin VB.Form Form1

BackColor = H00000000

BorderStyle = 1 'Fixed Single

Caption = "字體上下左右來回移動的動畫"

ClientHeight = 5490

ClientLeft = 45

ClientTop = 435

ClientWidth = 7605

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 5490

ScaleWidth = 7605

StartUpPosition = 3 '窗口缺省

Begin VB.Timer Timer1

Left = 7020

Top = 4980

End

Begin VB.Label Label4

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字體左右來回移動"

ForeColor = H00FFFF00

Height = 180

Left = 6180

TabIndex = 3

Top = 3720

Width = 1440

End

Begin VB.Label Label3

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字體左右來回移動"

ForeColor = H008080FF

Height = 180

Left = 0

TabIndex = 2

Top = 2100

Width = 1440

End

Begin VB.Label Label2

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字體上下來回移動"

ForeColor = H00FF80FF

Height = 180

Left = 4560

TabIndex = 1

Top = 3180

Width = 1440

End

Begin VB.Label Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字體上下來回移動"

ForeColor = H0000FFFF

Height = 180

Left = 1860

TabIndex = 0

Top = 2760

Width = 1440

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Dim i As Integer '標簽1上下移動的位置

Dim j As Integer '標簽2上下移動的位置

Dim c As Integer '標簽3左右移動的位置

Dim z As Integer '標簽4左右移動的位置

Dim lab1move As Boolean '標簽1移動的狀態

Dim lab2move As Boolean '標簽2移動的狀態

Dim lab3move As Boolean '標簽3移動的狀態

Dim lab4move As Boolean '標簽4移動的狀態

Private Sub Form_Load()

Timer1.Interval = 10 '每過10豪秒執行一次

i = 0 '初始化標簽1的位置

j = Me.Height '初始化標簽2的位置

z = Me.Width '初始化標簽4的位置

c = 0 '初始化標簽3的位置

End Sub

Private Sub Timer1_Timer()

If lab1move = False Then '狀態為向下

'標簽1從頂部移動到底部

If i Me.Height Then '小于窗體的高

i = i + 100 '每次移動100

Label1.Top = i '移動標簽1

End If

If i Me.Height Then '大于窗體的高

lab1move = True '狀態為向上

i = Me.Height '=窗體的高

End If

Else '狀態為向上

'標簽1從底部移動到頂部

i = i - 100 '每次移動100

Label1.Top = i '移動標簽

If i = 0 Then lab1move = False: i = 0 '標簽1從底部移到頂部

End If

If lab2move = False Then '狀態為向上

j = j - 100 '每次移動100

Label2.Top = j '移動標簽2

If j 0 Then lab2move = True: j = 0 '標簽1從底部移到頂部

Else '狀態為向下

If j Me.Height Then j = j + 100: Label2.Top = j '移動標簽2

If j Me.Height Then lab2move = False: j = Me.Height '狀態為向上

End If

If lab3move = False Then '狀態為向右

If c Me.Width Then c = c + 100: Label3.Left = c '每次移動100移動標簽

If c Me.Width Then lab3move = True: c = Me.Width

Else '狀態為向左

c = c - 100

Label3.Left = c '每次移動100移動標簽

If c 0 Then lab3move = False: c = 0 '狀態為向右

End If

If lab4move = False Then '狀態為向左

z = z - 100

Label4.Left = z '每次移動100移動標簽

If z 0 Then lab4move = True: z = 0

Else '狀態為向右

If z Me.Width Then z = z + 100: Label4.Left = z '每次移動100移動標簽

If z Me.Width Then lab4move = False: z = Me.Width '狀態為向左

End If

End Sub

'代碼結束.

當前名稱：vb點虐 字體向上滾動 vb滾動條改變字體顏色
URL分享：http://vcdvsql.cn/article6/ddijcig.html

成都網站建設公司_創新互聯，為您提供虛擬主機、服務器托管、品牌網站制作、企業網站制作、關鍵詞優化、外貿網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯