home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frmgraph.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-26  |  3.0 KB  |  102 lines
  1. VERSION 4.00
  2. Begin VB.Form frmgraph 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   6345
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5940
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin VB.ComboBox comGraph 
  16.       Height          =   315
  17.       Left            =   2100
  18.       Style           =   2  'Dropdown List
  19.       TabIndex        =   0
  20.       Top             =   4680
  21.       Width           =   4275
  22.    End
  23.    Begin GraphLib.Graph Graph1 
  24.       Height          =   4215
  25.       Left            =   60
  26.       TabIndex        =   2
  27.       Top             =   0
  28.       Width           =   6615
  29.       _Version        =   65536
  30.       _ExtentX        =   11668
  31.       _ExtentY        =   7435
  32.       _StockProps     =   96
  33.       BorderStyle     =   1
  34.       RandomData      =   0
  35.       ColorData       =   0
  36.       ExtraData       =   0
  37.       ExtraData[]     =   0
  38.       FontFamily      =   4
  39.       FontSize        =   4
  40.       FontSize[0]     =   200
  41.       FontSize[1]     =   150
  42.       FontSize[2]     =   100
  43.       FontSize[3]     =   100
  44.       FontStyle       =   4
  45.       GraphData       =   1
  46.       GraphData[]     =   5
  47.       GraphData[0,0]  =   0
  48.       GraphData[0,1]  =   0
  49.       GraphData[0,2]  =   0
  50.       GraphData[0,3]  =   0
  51.       GraphData[0,4]  =   0
  52.       LabelText       =   0
  53.       LegendText      =   0
  54.       PatternData     =   0
  55.       SymbolData      =   0
  56.       XPosData        =   0
  57.       XPosData[]      =   0
  58.    End
  59.    Begin VB.Label lblGraph 
  60.       Caption         =   "Graph Type"
  61.       Height          =   375
  62.       Left            =   240
  63.       TabIndex        =   1
  64.       Top             =   4680
  65.       Width           =   1215
  66.    End
  67. Attribute VB_Name = "frmgraph"
  68. Attribute VB_Creatable = False
  69. Attribute VB_Exposed = False
  70. Option Explicit
  71. Private Sub comGraph_Click()
  72. Graph1.GraphType = CInt(Mid$(comGraph.TEXT, 1, 2))
  73. Graph1.DrawMode = 2 ' Force the Graph to Re-Draw
  74. End Sub
  75. Private Sub Form_Load()
  76. Dim sTAB As String
  77. Dim sCRLF As String
  78. Dim sTestData As String
  79. sTAB = Chr$(9)
  80. sCRLF = Chr$(13) + Chr$(10)
  81. sTestData = "11" & sTAB & "12" & sTAB & "13" & sCRLF & "5" & sTAB & "6" & sTAB & "7" + sCRLF & "20" & sTAB & "21" & sTAB & "22" & sCRLF
  82. Graph1.QuickData = sTestData
  83. Graph1.LegendText = " HardWare"
  84. Graph1.LegendText = " SoftWare"
  85. Graph1.LegendText = " Services "
  86. Graph1.LabelText = "USA"
  87. Graph1.LabelText = "Europe"
  88. Graph1.LabelText = "Asia"
  89. comGraph.AddItem "1 - 2D Pie"
  90. comGraph.AddItem "2 - 3D Pie"
  91. comGraph.AddItem "3 - 2D Bar"
  92. comGraph.AddItem "4 - 3D Bar"
  93. comGraph.AddItem "5 - Gantt"
  94. comGraph.AddItem "6 - Line"
  95. comGraph.AddItem "7 - Log/Lin"
  96. comGraph.AddItem "8 - Area"
  97. comGraph.AddItem "9 - Scatter"
  98. comGraph.AddItem "10 - Polar"
  99. comGraph.AddItem "11 - HlC"
  100. comGraph.ListIndex = 3
  101. End Sub
  102.