home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 December / WIN95_DEC_1996_2.ISO / htmlmisc / vb5ccein.exe / RCDATA / CABINET / Frmtest.frm < prev    next >
Text File  |  1996-10-24  |  3KB  |  118 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. End
  78. Attribute VB_Name = "Form1"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Option Explicit
  84.  
  85. Private Sub Command1_Click()
  86.   
  87.   With Command1
  88.     If .Caption = "&Start" Then
  89.       .Caption = "&Stop"
  90.       AXMarquee1.Text = txtMsg.Text
  91.       AXMarquee1.Scrolling = True
  92.     Else
  93.       .Caption = "&Start"
  94.       AXMarquee1.Scrolling = False
  95.     End If
  96.   End With
  97.  
  98. End Sub
  99.  
  100. Private Sub Form_Load()
  101.   If AXMarquee1.Scrolling Then
  102.     Command1.Caption = "&Stop"
  103.   Else
  104.     Command1.Caption = "&Start"
  105.   End If
  106.   
  107.   Option1(AXMarquee1.ScrollMode).Value = True
  108. End Sub
  109.  
  110. Private Sub Form_Resize()
  111.   AXMarquee1.Width = Me.ScaleWidth
  112. End Sub
  113.  
  114. Private Sub Option1_Click(Index As Integer)
  115.   AXMarquee1.ScrollMode = Index
  116. End Sub
  117.  
  118.