form1.frm

翻滚文字的 ActiveX 控件

VERSION 5.00
Object = "*\AProject2.vbp"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3855
   ClientLeft      =   1665
   ClientTop       =   2055
   ClientWidth     =   3255
   LinkTopic       =   "Form1"
   ScaleHeight     =   3855
   ScaleWidth      =   3255
   Begin VB.CommandButton cmdGo 
      Caption         =   "Go"
      Height          =   495
      Left            =   960
      TabIndex        =   5
      Top             =   2160
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "Direction"
      Height          =   1095
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   3015
      Begin VB.OptionButton optDirection 
         Caption         =   "Bottom To Top"
         Height          =   195
         Index           =   2
         Left            =   360
         TabIndex        =   4
         Top             =   720
         Width           =   1815
      End
      Begin VB.OptionButton optDirection 
         Caption         =   "Top To Bottom"
         Height          =   195
         Index           =   1
         Left            =   360
         TabIndex        =   3
         Top             =   360
         Width           =   1815
      End
   End
   Begin VB.TextBox txtToScroll 
      Height          =   735
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   1
      Text            =   "Form1.frx":0000
      Top             =   120
      Width           =   3015
   End
   Begin Project2.TextScroller TextScroller1 
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   2760
      Width           =   3015
      _ExtentX        =   5318
      _ExtentY        =   1720
      Interval        =   100
      Enabled         =   0   'False
      Distance        =   2
      FontSize        =   9.75
      FontName        =   "Times New Roman"
      FontBold        =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   12632319
   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 SelectedDirection As Integer
Private Sub cmdGo_Click()
    If cmdGo.Caption = "Go" Then
        ' Start it.
        cmdGo.Caption = "Stop"
        TextScroller1.Enabled = False
        TextScroller1.Clear
        TextScroller1.Text = txtToScroll.Text
        TextScroller1.Direction = SelectedDirection
        TextScroller1.Enabled = True
    Else
        ' Stop it.
        TextScroller1.Enabled = False
        cmdGo.Caption = "Go"
    End If
End Sub

Private Sub Form_Load()
    optDirection(1).Value = True
End Sub

Private Sub optDirection_Click(Index As Integer)
    SelectedDirection = Index
End Sub

Private Sub TextScroller1_ScrollingDone()
    Beep
    cmdGo.Caption = "Go"
End Sub