PC World Komputer 1996 February

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1996 February / PCWK0296.iso / abcflow / abc / samples / exceldat.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-01-19 | 9.4 KB | 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