home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VBCCE / SAMPLES / AXMrquis / AXMrquis.EXE / RCDATA / CABINET / Frmtest.frm < prev    next >
Text File  |  1996-10-22  |  3KB  |  106 lines
  1. VERSION 5.00
  2. Object = "*\AAXMrquis.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Marquis Test"
  5.    ClientHeight    =   1785
  6.    ClientLeft      =   2220
  7.    ClientTop       =   6270
  8.    ClientWidth     =   6375
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   1785
  12.    ScaleWidth      =   6375
  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 AXMarquisCtl.AXMarquis AXMarquis1 
  59.       Height          =   690
  60.       Left            =   0
  61.       TabIndex        =   6
  62.       Top             =   0
  63.       Width           =   6375
  64.       _ExtentX        =   11245
  65.       _ExtentY        =   1217
  66.    End
  67.    Begin VB.Label Label1 
  68.       AutoSize        =   -1  'True
  69.       Caption         =   "Message Text:"
  70.       Height          =   195
  71.       Left            =   1800
  72.       TabIndex        =   5
  73.       Top             =   840
  74.       Width           =   1050
  75.    End
  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.  
  84. Private Sub Command1_Click()
  85.   
  86.   With Command1
  87.     If .Caption = "&Start" Then
  88.       .Caption = "&Stop"
  89.       AXMarquis1.Text = txtMsg.Text
  90.       AXMarquis1.Enabled = True
  91.     Else
  92.       .Caption = "&Start"
  93.       AXMarquis1.Enabled = False
  94.     End If
  95.   End With
  96.  
  97. End Sub
  98.  
  99. Private Sub Form_Resize()
  100.   AXMarquis1.Width = Me.ScaleWidth
  101. End Sub
  102.  
  103. Private Sub Option1_Click(Index As Integer)
  104.   AXMarquis1.ScrollMode = Index
  105. End Sub
  106.