home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.2 / marquee / samples / VB / TICKER / MFRM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-01  |  12.4 KB  |  361 lines
  1. VERSION 4.00
  2. Begin VB.Form MainForm 
  3.    Caption         =   "ProtoView Marquee Control"
  4.    ClientHeight    =   2985
  5.    ClientLeft      =   2085
  6.    ClientTop       =   1365
  7.    ClientWidth     =   5340
  8.    Height          =   3390
  9.    Icon            =   "mfrm.frx":0000
  10.    Left            =   2025
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2985
  13.    ScaleWidth      =   5340
  14.    Top             =   1020
  15.    Width           =   5460
  16.    Begin VB.CommandButton MarqueeBtn 
  17.       Caption         =   "&Marquee"
  18.       Height          =   375
  19.       Left            =   4200
  20.       TabIndex        =   9
  21.       Top             =   2520
  22.       Width           =   1095
  23.    End
  24.    Begin VB.CommandButton PictureBtn 
  25.       Caption         =   "&Picture"
  26.       Height          =   375
  27.       Left            =   4200
  28.       TabIndex        =   8
  29.       Top             =   2040
  30.       Width           =   1095
  31.    End
  32.    Begin VB.CommandButton FontsBtn 
  33.       Caption         =   "&Fonts"
  34.       Height          =   375
  35.       Left            =   4200
  36.       TabIndex        =   7
  37.       Top             =   1560
  38.       Width           =   1095
  39.    End
  40.    Begin VB.CommandButton ColorsBtn 
  41.       Caption         =   "&Colors"
  42.       Height          =   375
  43.       Left            =   4200
  44.       TabIndex        =   6
  45.       Top             =   1080
  46.       Width           =   1095
  47.    End
  48.    Begin VB.CommandButton NextTextBtn 
  49.       Caption         =   "&Next Text"
  50.       Height          =   375
  51.       Left            =   4200
  52.       TabIndex        =   5
  53.       Top             =   600
  54.       Width           =   1095
  55.    End
  56.    Begin VB.CommandButton FreezeBtn 
  57.       Caption         =   "&Freeze"
  58.       Height          =   375
  59.       Left            =   4200
  60.       TabIndex        =   4
  61.       Top             =   120
  62.       Width           =   1095
  63.    End
  64.    Begin PVMarqueeLib.PVMarquee MarqueeR 
  65.       Height          =   2775
  66.       Left            =   2880
  67.       TabIndex        =   3
  68.       Top             =   120
  69.       Width           =   1215
  70.       _Version        =   65538
  71.       _ExtentX        =   2143
  72.       _ExtentY        =   4895
  73.       _StockProps     =   29
  74.       Text            =   $"mfrm.frx":030A
  75.       BackColor       =   16777215
  76.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.          name            =   "MS Sans Serif"
  78.          charset         =   0
  79.          weight          =   700
  80.          size            =   13.5
  81.          underline       =   0   'False
  82.          italic          =   0   'False
  83.          strikethrough   =   0   'False
  84.       EndProperty
  85.       Direction       =   3
  86.       TickIncrement   =   5
  87.       Frame           =   4
  88.       TickTime        =   50
  89.       Justification   =   0
  90.       BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          name            =   "MS Sans Serif"
  92.          charset         =   0
  93.          weight          =   400
  94.          size            =   12
  95.          underline       =   0   'False
  96.          italic          =   0   'False
  97.          strikethrough   =   0   'False
  98.       EndProperty
  99.       BeginProperty Font2 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.          name            =   "MS Sans Serif"
  101.          charset         =   0
  102.          weight          =   400
  103.          size            =   12
  104.          underline       =   0   'False
  105.          italic          =   0   'False
  106.          strikethrough   =   0   'False
  107.       EndProperty
  108.       BeginProperty Font3 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  109.          name            =   "MS Sans Serif"
  110.          charset         =   0
  111.          weight          =   400
  112.          size            =   12
  113.          underline       =   0   'False
  114.          italic          =   0   'False
  115.          strikethrough   =   0   'False
  116.       EndProperty
  117.       BeginProperty Font4 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          name            =   "MS Sans Serif"
  119.          charset         =   0
  120.          weight          =   400
  121.          size            =   12
  122.          underline       =   0   'False
  123.          italic          =   0   'False
  124.          strikethrough   =   0   'False
  125.       EndProperty
  126.       BeginProperty Font5 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  127.          name            =   "MS Sans Serif"
  128.          charset         =   0
  129.          weight          =   400
  130.          size            =   12
  131.          underline       =   0   'False
  132.          italic          =   0   'False
  133.          strikethrough   =   0   'False
  134.       EndProperty
  135.       Text            =   $"mfrm.frx":0327
  136.    End
  137.    Begin PVMarqueeLib.PVMarquee MarqueeDL 
  138.       Height          =   735
  139.       Left            =   120
  140.       TabIndex        =   2
  141.       Top             =   2160
  142.       Width           =   2655
  143.       _Version        =   65538
  144.       _ExtentX        =   4683
  145.       _ExtentY        =   1296
  146.       _StockProps     =   29
  147.       Text            =   "The ProtoView Marquee Control"
  148.       BackColor       =   16777215
  149.       Direction       =   2
  150.       TickIncrement   =   2
  151.       Frame           =   5
  152.       Justification   =   0
  153.       BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  154.          name            =   "MS Sans Serif"
  155.          charset         =   0
  156.          weight          =   400
  157.          size            =   12
  158.          underline       =   0   'False
  159.          italic          =   0   'False
  160.          strikethrough   =   0   'False
  161.       EndProperty
  162.       BeginProperty Font2 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  163.          name            =   "MS Sans Serif"
  164.          charset         =   0
  165.          weight          =   400
  166.          size            =   12
  167.          underline       =   0   'False
  168.          italic          =   0   'False
  169.          strikethrough   =   0   'False
  170.       EndProperty
  171.       BeginProperty Font3 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  172.          name            =   "MS Sans Serif"
  173.          charset         =   0
  174.          weight          =   400
  175.          size            =   12
  176.          underline       =   0   'False
  177.          italic          =   0   'False
  178.          strikethrough   =   0   'False
  179.       EndProperty
  180.       BeginProperty Font4 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.          name            =   "MS Sans Serif"
  182.          charset         =   0
  183.          weight          =   400
  184.          size            =   12
  185.          underline       =   0   'False
  186.          italic          =   0   'False
  187.          strikethrough   =   0   'False
  188.       EndProperty
  189.       BeginProperty Font5 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  190.          name            =   "MS Sans Serif"
  191.          charset         =   0
  192.          weight          =   400
  193.          size            =   12
  194.          underline       =   0   'False
  195.          italic          =   0   'False
  196.          strikethrough   =   0   'False
  197.       EndProperty
  198.       Text            =   "The ProtoView Marquee Control"
  199.    End
  200.    Begin PVMarqueeLib.PVMarquee MarqueeL 
  201.       Height          =   855
  202.       Left            =   120
  203.       TabIndex        =   1
  204.       Top             =   1080
  205.       Width           =   2655
  206.       _Version        =   65538
  207.       _ExtentX        =   4683
  208.       _ExtentY        =   1508
  209.       _StockProps     =   29
  210.       Text            =   $"mfrm.frx":0344
  211.       BackColor       =   16777215
  212.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  213.          name            =   "MS Sans Serif"
  214.          charset         =   0
  215.          weight          =   400
  216.          size            =   8.25
  217.          underline       =   0   'False
  218.          italic          =   -1  'True
  219.          strikethrough   =   0   'False
  220.       EndProperty
  221.       Direction       =   1
  222.       BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  223.          name            =   "MS Sans Serif"
  224.          charset         =   0
  225.          weight          =   400
  226.          size            =   12
  227.          underline       =   0   'False
  228.          italic          =   0   'False
  229.          strikethrough   =   0   'False
  230.       EndProperty
  231.       BeginProperty Font2 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  232.          name            =   "MS Sans Serif"
  233.          charset         =   0
  234.          weight          =   400
  235.          size            =   12
  236.          underline       =   0   'False
  237.          italic          =   0   'False
  238.          strikethrough   =   0   'False
  239.       EndProperty
  240.       BeginProperty Font3 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  241.          name            =   "MS Sans Serif"
  242.          charset         =   0
  243.          weight          =   400
  244.          size            =   12
  245.          underline       =   0   'False
  246.          italic          =   0   'False
  247.          strikethrough   =   0   'False
  248.       EndProperty
  249.       BeginProperty Font4 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  250.          name            =   "MS Sans Serif"
  251.          charset         =   0
  252.          weight          =   400
  253.          size            =   12
  254.          underline       =   0   'False
  255.          italic          =   0   'False
  256.          strikethrough   =   0   'False
  257.       EndProperty
  258.       BeginProperty Font5 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  259.          name            =   "MS Sans Serif"
  260.          charset         =   0
  261.          weight          =   400
  262.          size            =   12
  263.          underline       =   0   'False
  264.          italic          =   0   'False
  265.          strikethrough   =   0   'False
  266.       EndProperty
  267.       Text            =   $"mfrm.frx":0366
  268.    End
  269.    Begin PVMarqueeLib.PVMarquee MarqueeUL 
  270.       Height          =   735
  271.       Left            =   120
  272.       TabIndex        =   0
  273.       Top             =   120
  274.       Width           =   2655
  275.       _Version        =   65538
  276.       _ExtentX        =   4683
  277.       _ExtentY        =   1296
  278.       _StockProps     =   29
  279.       Text            =   "The ProtoView Marquee Control"
  280.       BackColor       =   16777215
  281.       TickTime        =   500
  282.       BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  283.          name            =   "MS Sans Serif"
  284.          charset         =   0
  285.          weight          =   400
  286.          size            =   12
  287.          underline       =   0   'False
  288.          italic          =   0   'False
  289.          strikethrough   =   0   'False
  290.       EndProperty
  291.       BeginProperty Font2 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  292.          name            =   "MS Sans Serif"
  293.          charset         =   0
  294.          weight          =   400
  295.          size            =   12
  296.          underline       =   0   'False
  297.          italic          =   0   'False
  298.          strikethrough   =   0   'False
  299.       EndProperty
  300.       BeginProperty Font3 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  301.          name            =   "MS Sans Serif"
  302.          charset         =   0
  303.          weight          =   400
  304.          size            =   12
  305.          underline       =   0   'False
  306.          italic          =   0   'False
  307.          strikethrough   =   0   'False
  308.       EndProperty
  309.       BeginProperty Font4 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  310.          name            =   "MS Sans Serif"
  311.          charset         =   0
  312.          weight          =   400
  313.          size            =   12
  314.          underline       =   0   'False
  315.          italic          =   0   'False
  316.          strikethrough   =   0   'False
  317.       EndProperty
  318.       BeginProperty Font5 {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  319.          name            =   "MS Sans Serif"
  320.          charset         =   0
  321.          weight          =   400
  322.          size            =   12
  323.          underline       =   0   'False
  324.          italic          =   0   'False
  325.          strikethrough   =   0   'False
  326.       EndProperty
  327.       Text            =   "The ProtoView Marquee Control"
  328.    End
  329. Attribute VB_Name = "MainForm"
  330. Attribute VB_Creatable = False
  331. Attribute VB_Exposed = False
  332. Private Sub ColorsBtn_Click()
  333. ColorFrm.Show
  334. End Sub
  335. Private Sub FontsBtn_Click()
  336. FontsFrm.Show
  337. End Sub
  338. Private Sub FreezeBtn_Click()
  339. If (MarqueeUL.FreezeMarquee) Then
  340.    MarqueeUL.FreezeMarquee = False
  341.    MarqueeL.FreezeMarquee = False
  342.    MarqueeDL.FreezeMarquee = False
  343.    MarqueeR.FreezeMarquee = False
  344.    FreezeBtn.Caption = "&Freeze"
  345.    MarqueeUL.FreezeMarquee = True
  346.    MarqueeL.FreezeMarquee = True
  347.    MarqueeDL.FreezeMarquee = True
  348.    MarqueeR.FreezeMarquee = True
  349.    FreezeBtn.Caption = "&Start"
  350. End If
  351. End Sub
  352. Private Sub MarqueeBtn_Click()
  353. MqFrm.Show
  354. End Sub
  355. Private Sub NextTextBtn_Click()
  356. NextTextFrm.Show
  357. End Sub
  358. Private Sub PictureBtn_Click()
  359. ImageFrm.Show
  360. End Sub
  361.