home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Wtestowe / Microgfx / FCTRIALL / ABC.Z / EXCELABO.FRM < prev    next >
Text File  |  1996-12-16  |  5KB  |  147 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About Excel Data Sample"
  7.    ClientHeight    =   5475
  8.    ClientLeft      =   1845
  9.    ClientTop       =   1725
  10.    ClientWidth     =   3930
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   5880
  22.    Left            =   1785
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   5475
  25.    ScaleWidth      =   3930
  26.    Top             =   1380
  27.    Width           =   4050
  28.    Begin VB.CommandButton AboutOK 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00C0C0C0&
  31.       Caption         =   "OK"
  32.       Height          =   375
  33.       Left            =   1320
  34.       TabIndex        =   9
  35.       Top             =   4920
  36.       Width           =   1335
  37.    End
  38.    Begin VB.Label Label4 
  39.       Appearance      =   0  'Flat
  40.       BackColor       =   &H00C0C0C0&
  41.       Caption         =   "3) Choose which fields to use in ABC by selecting items in the Fields listbox."
  42.       ForeColor       =   &H80000008&
  43.       Height          =   615
  44.       Left            =   480
  45.       TabIndex        =   3
  46.       Top             =   3000
  47.       Width           =   3135
  48.    End
  49.    Begin VB.Label Label9 
  50.       Appearance      =   0  'Flat
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "4) Press ""Make Chart"" to draw a new chart in ABC with the Excel data."
  53.       ForeColor       =   &H80000008&
  54.       Height          =   615
  55.       Left            =   480
  56.       TabIndex        =   8
  57.       Top             =   3600
  58.       Width           =   3135
  59.    End
  60.    Begin VB.Label Label8 
  61.       Appearance      =   0  'Flat
  62.       BackColor       =   &H00C0C0C0&
  63.       Caption         =   "2) Once a valid filename is entered the ""Read Data"" button will become enabled. Press button to read in Excel data."
  64.       ForeColor       =   &H80000008&
  65.       Height          =   855
  66.       Left            =   480
  67.       TabIndex        =   7
  68.       Top             =   2160
  69.       Width           =   3135
  70.    End
  71.    Begin VB.Label Label7 
  72.       Appearance      =   0  'Flat
  73.       BackColor       =   &H00C0C0C0&
  74.       Caption         =   "1) Choose an Excel file to read by entering a filename in the ""Source Excel 5.0 Data File"" edit box."
  75.       ForeColor       =   &H80000008&
  76.       Height          =   615
  77.       Left            =   480
  78.       TabIndex        =   6
  79.       Top             =   1560
  80.       Width           =   3015
  81.    End
  82.    Begin VB.Label Label6 
  83.       Appearance      =   0  'Flat
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "Instructions:"
  86.       ForeColor       =   &H80000008&
  87.       Height          =   255
  88.       Left            =   360
  89.       TabIndex        =   5
  90.       Top             =   1320
  91.       Width           =   1575
  92.    End
  93.    Begin VB.Label Label5 
  94.       Appearance      =   0  'Flat
  95.       BackColor       =   &H00C0C0C0&
  96.       Caption         =   "(c) Micrografx, Inc. 1996"
  97.       ForeColor       =   &H80000008&
  98.       Height          =   255
  99.       Left            =   840
  100.       TabIndex        =   4
  101.       Top             =   4560
  102.       Width           =   2295
  103.    End
  104.    Begin VB.Label Label2 
  105.       Appearance      =   0  'Flat
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "This sample reads data from an Excel spreadsheet using OLE Automation."
  108.       ForeColor       =   &H80000008&
  109.       Height          =   495
  110.       Left            =   360
  111.       TabIndex        =   1
  112.       Top             =   240
  113.       Width           =   3495
  114.    End
  115.    Begin VB.Label Label1 
  116.       Appearance      =   0  'Flat
  117.       BackColor       =   &H00C0C0C0&
  118.       Caption         =   "by Terrell Cantrell"
  119.       ForeColor       =   &H80000008&
  120.       Height          =   255
  121.       Left            =   1080
  122.       TabIndex        =   0
  123.       Top             =   4320
  124.       Width           =   1575
  125.    End
  126.    Begin VB.Label Label3 
  127.       Appearance      =   0  'Flat
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "The first non-blank row in the spreadsheet is read in as field names."
  130.       ForeColor       =   &H80000008&
  131.       Height          =   495
  132.       Left            =   360
  133.       TabIndex        =   2
  134.       Top             =   720
  135.       Width           =   3255
  136.    End
  137. End
  138. Attribute VB_Name = "AboutForm"
  139. Attribute VB_Creatable = False
  140. Attribute VB_Exposed = False
  141. Private Sub AboutOK_Click()
  142.     Unload AboutForm
  143.     ExcelSample.Show
  144.     ExcelSample.Enabled = True
  145. End Sub
  146.  
  147.