home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / graph.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-15  |  2.8 KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form Graph 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Format Graph/Chart"
  5.    ClientHeight    =   3285
  6.    ClientLeft      =   2100
  7.    ClientTop       =   2685
  8.    ClientWidth     =   4425
  9.    Height          =   3690
  10.    Left            =   2040
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3285
  13.    ScaleWidth      =   4425
  14.    Top             =   2340
  15.    Width           =   4545
  16.    Begin CommandButton GraphHelpClick 
  17.       Caption         =   "Help"
  18.       Height          =   405
  19.       Left            =   2760
  20.       TabIndex        =   6
  21.       Top             =   2565
  22.       Width           =   1065
  23.    End
  24.    Begin CommandButton GraphCancelClick 
  25.       Caption         =   "Cancel"
  26.       Height          =   405
  27.       Left            =   1650
  28.       TabIndex        =   5
  29.       Top             =   2565
  30.       Width           =   1065
  31.    End
  32.    Begin CommandButton GraphOKclick 
  33.       Caption         =   "OK"
  34.       Height          =   405
  35.       Left            =   540
  36.       TabIndex        =   4
  37.       Top             =   2565
  38.       Width           =   1065
  39.    End
  40.    Begin SSFrame Graph3d1 
  41.       Caption         =   "Format "
  42.       Font3D          =   0  'None
  43.       Height          =   2175
  44.       Left            =   570
  45.       TabIndex        =   0
  46.       Top             =   225
  47.       Width           =   3255
  48.       Begin CommandButton GraphOptionsClick 
  49.          Caption         =   "Options..."
  50.          Height          =   405
  51.          Left            =   900
  52.          TabIndex        =   3
  53.          Top             =   1440
  54.          Width           =   1335
  55.       End
  56.       Begin CommandButton GraphTextClick 
  57.          Caption         =   "Text..."
  58.          Height          =   405
  59.          Left            =   900
  60.          TabIndex        =   2
  61.          Top             =   990
  62.          Width           =   1335
  63.       End
  64.       Begin CommandButton GraphTypeClick 
  65.          Caption         =   "Type..."
  66.          Height          =   405
  67.          Left            =   900
  68.          TabIndex        =   1
  69.          Top             =   540
  70.          Width           =   1335
  71.       End
  72.    End
  73. Sub Form_Load ()
  74.  SCode = 0
  75.  GraphNo = 0
  76. End Sub
  77. Sub GraphCancelClick_Click ()
  78.  Unload Me
  79. End Sub
  80. Sub GraphHelpClick_Click ()
  81.  RCode = Shell("Winhelp c:\crw\crw.hlp", 3)
  82. End Sub
  83. Sub GraphOKclick_Click ()
  84.  Unload Me
  85. End Sub
  86. Sub GraphOptionsClick_Click ()
  87. If SCode = 0 And GraphNo = 0 Then
  88.   MsgBox "Please specify a graph type!"
  89.   Exit Sub
  90. End If
  91. Graphoptions.Show 1
  92. End Sub
  93. Sub GraphTextClick_Click ()
  94. If SCode = 0 And GraphNo = 0 Then
  95.   MsgBox "Please specify a graph type!"
  96.   Exit Sub
  97. End If
  98.  GraphText.Show 1
  99. End Sub
  100. Sub GraphTypeClick_Click ()
  101.   GraphType.Show 1
  102. End Sub
  103.