home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1996 March
/
buyer-0396.iso
/
abc.z
/
EXCELDAT.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-09-15
|
10KB
|
299 lines
ExcelSample
Excel 5.0 Data DEMO
wwwwwwwwwwwwwww
wpwww{
QQQQP{
QQQQP{
Form15I
ReadData
&Read Data
ExcelFields
CMDialog1
CommonDialog
Browse
&Browse...
&Quit
MakeChart
Make &Chart
Frame1
Source Excel 5.0 Data File
DataFilename
DataFilename
Frame2
Fields
HintText
GTo multi-select, click on items in the list while holding the CTRL key.
About
About
Command1_Click
cmdBrowse_Click
ErrHandler
CMDialog1
Filter!
CMDialog
FilterIndex
Action
OpenFile
Filename
WordAppa
Objectr
Visible
FileOpen
winword6
@ Form_LoadU
List2_Clickn
DataFile
GetDataFile
FileData
frmTextOutput
frmDataTrader
Label1_Click
Panel3D1_DragDrop
Source
Controlm
cmdCancel_Click
cmdOK_Click;
ExcelAppA
Application/
ExcelChart
ExcelSheet
Dialogs[
[Show]J
Rangec
DelimText
Clipboard
CF_TEXT
OnError
ResumeNext*
Tabsa
ErrHandler2
FieldNames^
FieldPos
SaveAsw
Save7
WorkbookV
ActiveWorkbookJ
AllChars<
CharLengtht
Field_Name
TabPos
sTabPos:
eTabPos|
sTabPos1l
Str_Len
TestText
ChrPos~
FieldNameIndex(
CharPos
FoeldNameIndex
lstExcelFields
ListCount
Selected
lstABCFields
Command2_Click'
lblExcelFieldsh
ForeColorT
lblABCFields
ABCApp
ChartV
Field1
Field2
Field3
Field4
Field51
ActiveChart
Obj1_
DrawShape
FieldPlacement
FieldTemplatesX
Format
AccumulationMethod
FieldValues
Value
Fields
Count_1
Count
Index_1
Record_CountO
Shapesx
Shape
ShapeCount
FieldName
FillColor%
NoRepaintB
Repaint
DrawSpacingX
DrawSpacingY>
Line1
DrawLine
DrawPositionX
DrawPositionY,
Command3_ClickQ
TraderData
GetMyDatar
DummyK
FieldNamesHidden
Cellx)
Celly
cmdOK
EnabledR
Screen
MousePointerI
Cells
DestArrowStyle
Line_
HalfCount
cmdShowAbout_Click
frmAboutdb/
cmdInfo_Click
frmInfo
cmdAdd_Clickp
cmdRemove_Click
DisplayAlerts
Workbooks
[Close]
xlWorkbooks.
DataRange
ActiveSheet
xlWorkbook
ErrorFlag
IntegerDataRange
cmdHelp_Click$
lblABCFields_Click
Characters
ReferenceStylei
xlR1C1
frmSpecRangeS
TaderData
lstABCFields_Click4
cmdContents_Click
active9
HourGlassOn
HourGlassOffL
GetExcelData1
Rowz|
RunExcel
ExcelLoaded[
CantRunExcel
dimTraderData
lstExcelFields_Click
lblExcelFields_ClickR
RecordCountj
ExcelFields
ExcelABCFieldsg
ExcelFields_Clickm
SelCount
@ SelectAll
ListBox
Excel
Frame1_DragDrop
Text1_Change
DataFilename_Change
DataFilename\
ValidateFilenameF
OrgChartTextFileEditT
OKBtnw
cmdBrowse
ReadData
ReadData_Click
DataFilenameCMDialog1
TotalLoops
CurrentLoop
PercentGuage
PercentGuageValue
ChapeCount
PercentGauge'
HidePercentGuage
PercentGaugeValue
HidePercentGauge
PercentGaugeCancelled
CelExcelSheet
Select
Fail3
ExcelFail
check'
firsrt
LoadExcel
ExitSub
ObjectCall
ObjCall
CallHourGlassOn3
GetExcel
CreateExcel
HourGlassOffExit
EmptyCell_
FirstRow&
Rowsh
Windowsn
Activate
TryCreate
ExcelSample
MakeChart_Click
HintText_Click
Browse_Click
Quit_Click
QuUit_Click
DrawChartY
MakeChart
FieldViewVisible
FieldViewerVisible
About_Click
About
AboutF
AboutForm
CurrentLineRouting
CreateFailed
FlowCharter
Viewer~
About_Click
Browse_Click
CancelError is True
Set filterso
Excel Files (*.xls)|*.XLS|Text Files (*.txt)|*.txt|All Files (*.*)|*.*
Set default filter
Display the Open dialog boxe
User pressed Cancel button
CreateExcel
Excel.Application
You must have MS Excel 5.0 installed to run this DEMO!
Critical Error
DataFilename_Change
Form_Load
\ABCSAMPL.XLS
GetDataFile
Load up Excel 5.0 - sets ExcelApp Object
Find the first row with data
(check only the first 256 rows)
triggers an error if emptya
Find the last row with data
(check only the first 256 rows)
triggers an error if empty
Now count the number of columns
(Again only up to 256)
triggers an error if emptya
GetExcel
Excel.Application
HourGlassOff
HourGlassOn
MakeChart_Click
Reset counters for the PercentGauge
Start ABC
ABCFlow.Application
Make a new chart
Set up some parameters for chart
Use right angle lines
Get the shape count
Draw shapes
Operation
Create another row of shapes
Draw Lines
Position fields below shapes
Add Field Ttemplates to Chart
Format field as text
Put Field data into shapes
Quit_Click
ReadData_Click
Open the selected file
SelectAll
ValidateFilename