home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / toolbox / vb5ccein.exe / Frmtest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-24  |  3.1 KB  |  109 lines
  1. VERSION 5.00
  2. Object = "*\AAXMrquee.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Marquee Test"
  5.    ClientHeight    =   1776
  6.    ClientLeft      =   2220
  7.    ClientTop       =   6276
  8.    ClientWidth     =   6372
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   1776
  12.    ScaleWidth      =   6372
  13.    Begin VB.Frame Frame1 
  14.       Caption         =   "Scroll Mode"
  15.       Height          =   972
  16.       Left            =   30
  17.       TabIndex        =   2
  18.       Top             =   735
  19.       Width           =   1608
  20.       Begin VB.OptionButton Option1 
  21.          Caption         =   "Left to Right"
  22.          Height          =   204
  23.          Index           =   1
  24.          Left            =   120
  25.          TabIndex        =   4
  26.          Top             =   552
  27.          Width           =   1392
  28.       End
  29.       Begin VB.OptionButton Option1 
  30.          Caption         =   "Right to Left"
  31.          Height          =   204
  32.          Index           =   0
  33.          Left            =   120
  34.          TabIndex        =   3
  35.          Top             =   252
  36.          Value           =   -1  'True
  37.          Width           =   1392
  38.       End
  39.    End
  40.    Begin VB.TextBox txtMsg 
  41.       Height          =   615
  42.       Left            =   1800
  43.       MultiLine       =   -1  'True
  44.       TabIndex        =   0
  45.       Text            =   "frmTest.frx":0000
  46.       Top             =   1080
  47.       Width           =   2940
  48.    End
  49.    Begin VB.CommandButton Command1 
  50.       Caption         =   "&Start"
  51.       Default         =   -1  'True
  52.       Height          =   585
  53.       Left            =   4980
  54.       TabIndex        =   1
  55.       Top             =   1080
  56.       Width           =   1368
  57.    End
  58.    Begin AXMarqueeCtl.AXMarquee AXMarquee1 
  59.       Height          =   690
  60.       Left            =   0
  61.       TabIndex        =   6
  62.       ToolTipText     =   "ActiveX Marquee"
  63.       Top             =   0
  64.       Width           =   6375
  65.       _ExtentX        =   11240
  66.       _ExtentY        =   1207
  67.    End
  68.    Begin VB.Label Label1 
  69.       AutoSize        =   -1  'True
  70.       Caption         =   "Message Text:"
  71.       Height          =   195
  72.       Left            =   1800
  73.       TabIndex        =   5
  74.       Top             =   840
  75.       Width           =   1050
  76.    End
  77. Attribute VB_Name = "Form1"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83. Private Sub Command1_Click()
  84.   With Command1
  85.     If .Caption = "&Start" Then
  86.       .Caption = "&Stop"
  87.       AXMarquee1.Text = txtMsg.Text
  88.       AXMarquee1.Scrolling = True
  89.     Else
  90.       .Caption = "&Start"
  91.       AXMarquee1.Scrolling = False
  92.     End If
  93.   End With
  94. End Sub
  95. Private Sub Form_Load()
  96.   If AXMarquee1.Scrolling Then
  97.     Command1.Caption = "&Stop"
  98.   Else
  99.     Command1.Caption = "&Start"
  100.   End If
  101.   Option1(AXMarquee1.ScrollMode).Value = True
  102. End Sub
  103. Private Sub Form_Resize()
  104.   AXMarquee1.Width = Me.ScaleWidth
  105. End Sub
  106. Private Sub Option1_Click(Index As Integer)
  107.   AXMarquee1.ScrollMode = Index
  108. End Sub
  109.