如何做出跑马灯效果的.doc

如何做出跑馬燈效果的 TextBoxBegin VB.Form Form1Caption = MarqueeClientHeight = 3960ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = Form1ScaleHeight = 3960ScaleWidth = 4680StartUpPosition = 3 系統預設值Begin VB.CommandButton Command2Cancel = -1 TrueCaption = 跑馬燈結束Height = 495Left = 2640TabIndex = 5Top = 3360Width = 1215EndBegin VB.Timer Timer1Left = 2160Top = 3480EndBegin VB.CommandButton Command1Caption = 跑馬燈開始Height = 495Left = 840TabIndex = 2Top = 3360Width = 1215EndBegin VB.TextBox Text2Height = 1215Left = 840MultiLine = -1 TrueScrollBars = 2 垂直捲軸TabIndex = 1Top = 1920Width = 3135EndBegin VB.TextBox Text1BackColor = &H80000018&Height = 375Left = 1200TabIndex = 0Top = 360Width = 2895EndBegin VB.Label Label4Alignment = 2 靠中對齊Caption = 請輸入跑馬燈文字Height = 375Left = 1320TabIndex = 4Top = 1200Width = 2295EndBegin VB.Label Label2Caption = Text 跑馬燈Height = 375Left = 120TabIndex = 3Top = 360Width = 975EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit宣告要在 Text1 裏顯示的跑馬燈字串變數Dim TString As StringPrivate Sub Command1_Click()宣告儲存 Text1 字串長度的變數Dim TWidth As LongCommand2.Enabled = True啟動 Timer 顯示跑馬燈Timer1.Enabled = TrueCommand1.Enabled = Falsetext2 裏必須輸入跑馬燈字串If Text2.Text = ThenMsgBox 請輸入跑馬燈文字沒有輸入就按下 Command2 跑馬燈結束鈕Command2_ClickExit SubEnd If統計 Text1Box 裏到底放的下幾個字Do While TextWidth(Space(TWidth) Len(TString) Then把位置指標移到最開頭TPos = 1Else把位置