home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer's Journal Buyer's Guide / Visual_Basic_Programmers_Journal_Buyers_Guide_CD-ROM_1994.iso / pinnacle / cbdemo / cbdemo4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-10  |  2.3 KB  |  87 lines
  1. VERSION 2.00
  2. Begin Form Form4 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Hot Graph Example"
  5.    ControlBox      =   0   'False
  6.    Height          =   3960
  7.    Left            =   1056
  8.    LinkTopic       =   "Form4"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   3216
  12.    ScaleWidth      =   7632
  13.    Top             =   1476
  14.    Width           =   7728
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Exit"
  17.       Height          =   372
  18.       Left            =   5760
  19.       TabIndex        =   6
  20.       Top             =   2280
  21.       Width           =   852
  22.    End
  23.    Begin GRAPH Graph1 
  24.       Height          =   2292
  25.       Hot             =   1  'On
  26.       Left            =   360
  27.       TabIndex        =   1
  28.       Top             =   600
  29.       Width           =   4692
  30.    End
  31.    Begin Label Label5 
  32.       Alignment       =   2  'Center
  33.       Caption         =   "Click on a graph Point"
  34.       Height          =   252
  35.       Left            =   360
  36.       TabIndex        =   6
  37.       Top             =   120
  38.       Width           =   7092
  39.    End
  40.    Begin Label Label4 
  41.       Caption         =   " "
  42.       Height          =   252
  43.       Left            =   6480
  44.       TabIndex        =   5
  45.       Top             =   1800
  46.       Width           =   492
  47.    End
  48.    Begin Label Label3 
  49.       Caption         =   " "
  50.       Height          =   252
  51.       Left            =   6480
  52.       TabIndex        =   4
  53.       Top             =   1200
  54.       Width           =   492
  55.    End
  56.    Begin Label Label2 
  57.       Caption         =   "Set #"
  58.       Height          =   252
  59.       Left            =   5400
  60.       TabIndex        =   3
  61.       Top             =   1800
  62.       Width           =   732
  63.    End
  64.    Begin Label Label1 
  65.       Caption         =   "Point #"
  66.       Height          =   252
  67.       Left            =   5400
  68.       TabIndex        =   2
  69.       Top             =   1200
  70.       Width           =   852
  71.    End
  72.    Begin Menu Exit 
  73.       Caption         =   "&Exit"
  74.    End
  75. Sub Command1_Click ()
  76.     Exit_click
  77. End Sub
  78. Sub Exit_click ()
  79.     Form4.Hide
  80.     Form1.Show
  81.     Form2.Show
  82. End Sub
  83. Sub Graph1_HotHit (HitSet As Integer, HitPoint As Integer)
  84.     Label3.Caption = Str(HitPoint)
  85.     Label4.Caption = Str(HitSet)
  86. End Sub
  87.