home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 14 / IOPROG_14.ISO / soft / sdkjava / sdkjava.exe / SDKJava.cab / Samples / ActiveXBeans / JChart / VB / JChart.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-03-05  |  4.0 KB  |  132 lines

  1. VERSION 5.00
  2. Object = "{177CF4A3-E7E0-11D0-B8E7-0000F81ECCE7}#1.0#0"; "JChart.tlb"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   6750
  6.    ClientLeft      =   4480
  7.    ClientTop       =   2750
  8.    ClientWidth     =   7640
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   6750
  11.    ScaleWidth      =   7640
  12.    Begin JChart.JChart JChart1 
  13.       Height          =   3610
  14.       Left            =   600
  15.       OleObjectBlob   =   "JChart.frx":0000
  16.       TabIndex        =   7
  17.       Top             =   360
  18.       Width           =   6610
  19.    End
  20.    Begin VB.ComboBox ComboFilter 
  21.       Height          =   240
  22.       ItemData        =   "JChart.frx":0665
  23.       Left            =   3240
  24.       List            =   "JChart.frx":066C
  25.       TabIndex        =   5
  26.       Text            =   "Combo1"
  27.       Top             =   6000
  28.       Width           =   2050
  29.    End
  30.    Begin VB.FileListBox File1 
  31.       Height          =   1340
  32.       Left            =   3240
  33.       Pattern         =   "*.txt"
  34.       TabIndex        =   4
  35.       Top             =   4440
  36.       Width           =   2050
  37.    End
  38.    Begin VB.DirListBox Dir1 
  39.       Height          =   1320
  40.       Left            =   5400
  41.       TabIndex        =   3
  42.       Top             =   4440
  43.       Width           =   2170
  44.    End
  45.    Begin VB.DriveListBox Drive1 
  46.       Height          =   240
  47.       Left            =   5400
  48.       TabIndex        =   2
  49.       Top             =   6000
  50.       Width           =   2170
  51.    End
  52.    Begin VB.ComboBox listChartType 
  53.       BeginProperty Font 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   8.29
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   280
  63.       ItemData        =   "JChart.frx":067D
  64.       Left            =   600
  65.       List            =   "JChart.frx":068D
  66.       Style           =   2  'Dropdown List
  67.       TabIndex        =   0
  68.       Top             =   4440
  69.       Width           =   1450
  70.    End
  71.    Begin VB.Label Label2 
  72.       Caption         =   "Select an Excel text data file"
  73.       BeginProperty Font 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   8.29
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   250
  83.       Left            =   3360
  84.       TabIndex        =   6
  85.       Top             =   4200
  86.       Width           =   2170
  87.    End
  88.    Begin VB.Label Label1 
  89.       Caption         =   "The chart type:"
  90.       BeginProperty Font 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   8.29
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   250
  100.       Left            =   600
  101.       TabIndex        =   1
  102.       Top             =   4200
  103.       Width           =   1330
  104.    End
  105. Attribute VB_Name = "Form1"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. Private Sub ComboFilter_Change()
  111. File1.Pattern = ComboFilter.Text
  112. End Sub
  113. Private Sub ComboFilter_Click()
  114. File1.Pattern = ComboFilter.Text
  115. End Sub
  116. Private Sub Dir1_Change()
  117. File1.Path = Dir1.Path
  118. End Sub
  119. Private Sub Drive1_Change()
  120. Dir1.Path = Drive1.Drive
  121. End Sub
  122. Private Sub File1_Click()
  123. JChart1.dataFileName = File1.Path & "\" & File1.filename
  124. End Sub
  125. Private Sub Form_Load()
  126. listChartType.ListIndex = 0
  127. ComboFilter.ListIndex = 0
  128. End Sub
  129. Private Sub listChartType_Click()
  130. JChart1.chartType = listChartType.ListIndex + 1
  131. End Sub
  132.