home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.2 / marquee / samples / VB / TICKER / NTXTFRM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-23  |  3.7 KB  |  116 lines
  1. VERSION 4.00
  2. Begin VB.Form NextTextFrm
  3.    Caption         =   "Marquee Next"
  4.    ClientHeight    =   3105
  5.    ClientLeft      =   2100
  6.    ClientTop       =   1395
  7.    ClientWidth     =   3900
  8.    Height          =   3510
  9.    Left            =   2040
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3105
  12.    ScaleWidth      =   3900
  13.    Top             =   1050
  14.    Width           =   4020
  15.    Begin VB.CommandButton DoneBtn
  16.       Caption         =   "&OK"
  17.       Height          =   375
  18.       Left            =   2760
  19.       TabIndex        =   3
  20.       Top             =   2640
  21.       Width           =   975
  22.    End
  23.    Begin VB.CommandButton NextBtn
  24.       Caption         =   "&Next"
  25.       Height          =   375
  26.       Left            =   2760
  27.       TabIndex        =   2
  28.       Top             =   1920
  29.       Width           =   975
  30.    End
  31.    Begin VB.TextBox NewText
  32.       Height          =   495
  33.       Left            =   120
  34.       TabIndex        =   1
  35.       Text            =   "New Text"
  36.       Top             =   1200
  37.       Width           =   3615
  38.    End
  39.    Begin VB.Label Label1
  40.       Caption         =   $"NTxtFrm.frx":0000
  41.       Height          =   975
  42.       Left            =   120
  43.       TabIndex        =   4
  44.       Top             =   1920
  45.       Width           =   2295
  46.    End
  47.    Begin PVMarqueeLib.PVMarquee MarqueeNext
  48.       Height          =   975
  49.       Left            =   120
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   3615
  53.       _Version        =   65538
  54.       _ExtentX        =   6376
  55.       _ExtentY        =   1720
  56.       _StockProps     =   29
  57.       Text            =   "ProtoView Marquee"
  58.       BackColor       =   16776960
  59.       TickIncrement   =   2
  60.       BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  61.          name            =   "MS Sans Serif"
  62.          charset         =   0
  63.          weight          =   400
  64.          size            =   12
  65.          underline       =   0   'False
  66.          italic          =   0   'False
  67.          strikethrough   =   0   'False
  68.       EndProperty
  69.       BeginProperty Font2 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   400
  73.          size            =   12
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       BeginProperty Font3 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  79.          name            =   "MS Sans Serif"
  80.          charset         =   0
  81.          weight          =   400
  82.          size            =   12
  83.          underline       =   0   'False
  84.          italic          =   0   'False
  85.          strikethrough   =   0   'False
  86.       EndProperty
  87.       BeginProperty Font4 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  88.          name            =   "MS Sans Serif"
  89.          charset         =   0
  90.          weight          =   400
  91.          size            =   12
  92.          underline       =   0   'False
  93.          italic          =   0   'False
  94.          strikethrough   =   0   'False
  95.       EndProperty
  96.       BeginProperty Font5 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  97.          name            =   "MS Sans Serif"
  98.          charset         =   0
  99.          weight          =   400
  100.          size            =   12
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       BackColor       =   16776960
  106.    End
  107. Attribute VB_Name = "NextTextFrm"
  108. Attribute VB_Creatable = False
  109. Attribute VB_Exposed = False
  110. Private Sub DoneBtn_Click()
  111. Unload NextTextFrm
  112. End Sub
  113. Private Sub NextBtn_Click()
  114. MarqueeNext.NextDisplayString = NewText.Text
  115. End Sub
  116.