home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch15 / axmarq / marquee.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  1.8 KB  |  60 lines
  1. VERSION 5.00
  2. Object = "{D6EEA3C0-6216-11CF-BE62-0080C72EDD2D}#1.0#0"; "MARQUEE.OCX"
  3. Begin VB.Form Marquee 
  4.    Caption         =   "ActiveX Marquee Demo"
  5.    ClientHeight    =   4665
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8550
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4665
  11.    ScaleWidth      =   8550
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton PauseButton 
  14.       Caption         =   "Pause"
  15.       BeginProperty Font 
  16.          Name            =   "MS Sans Serif"
  17.          Size            =   9.75
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   465
  25.       Left            =   270
  26.       TabIndex        =   0
  27.       Top             =   4080
  28.       Width           =   1605
  29.    End
  30.    Begin MarqueeObjectsCtl.Marquee Marquee1 
  31.       Height          =   3690
  32.       Left            =   240
  33.       TabIndex        =   1
  34.       Top             =   210
  35.       Width           =   8070
  36.       _ExtentX        =   14235
  37.       _ExtentY        =   6509
  38.    End
  39. Attribute VB_Name = "Marquee"
  40. Attribute VB_GlobalNameSpace = False
  41. Attribute VB_Creatable = False
  42. Attribute VB_PredeclaredId = True
  43. Attribute VB_Exposed = False
  44. Option Explicit
  45. Private Sub PauseButton_Click()
  46. If PauseButton.Caption = "Pause" Then
  47.     Marquee1.Pause
  48.     PauseButton.Caption = "Resume"
  49.     Marquee1.Resume
  50.     PauseButton.Caption = "Pause"
  51. End If
  52. End Sub
  53. Private Sub Form_Load()
  54. Marquee1.PageFlippingOn = 1
  55. Marquee1.ScrollPixelsX = 0
  56. Marquee1.ScrollPixelsY = -5
  57. Marquee1.insertURL 0, "http://www.microsoft.com"
  58. Marquee1.insertURL 1, "http://www.sybex.com"
  59. End Sub
  60.