Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / EDITGRID / WINFIN.FRM (.txt) < prev

Wrap

Visual Basic Form | 1993-08-20 | 37.8 KB | 2,088 lines

MainForm Edit Grid Demo wwwwwwwwwwww """""" Form1% It's just me, the form5h LowerPanel SSPanel System InnerLowerPanel SSPanel @Editable grid demo -- courtesy of Brian D. Hutchison. Freeware. MS Sans Serif TopPanel SSPanel System EditPanel SSPanel Panel3D1 EditCell Grid1 Arial mnuFileMenu &File mnuBegin &Begin the demo mnuFileExit E&xit ExitWinFin_Click WinFinM File_Click WinFin1 HelpMenu_Click PrintMenu_Click$ WindowMenu_Click: Label1_Click Form_Click Form_Load PrintOption_Clicka PrintMenuForm MODAL WindowOption_Click HelpOption_Clickb ViewOption_Click ViewForecast_Click HScroll1_Change VScroll1_Change HelpAbout_Clickn About HelpHelp_Click4 HelpFormG PrintOptions_Click HScroll1# Width% MainForm Height VScroll1 Bottom Form_Resize ResizeScrolls` ScrollBoxPic WindowState Visible FALSE IfScrollBoxPicJ IfVscroll1 ScaleLeft ScaleTop ScaleHeightF ScaleWidth FileOpen_Click# FileOpenForm3 FileSave_Click} FileSaveForm FileSaveAs_Clicku PrintOptionsMenu_Click PrintOptionsForm PrintPrintMenu_Click Text1_Change ResizeTextBox4 Text1 ViewReport_ClickH PrintPrintForm FileNew_Click NewFile NewFileForm" EditMenu_Click8 FileFilterTypeQ MhFileFilterType Description_ GetFileType FilterIndex InitFileName[ FormCaption} InitDir MhExePath DefaultExtensionp HowManyFilters Flags" OFN_SHOWHELPw OFN_NOCHANGEDIR OFN_OVERWRITEPROMPT3 MhCtrlHwnd{ FileButton Index, MhGetOpenFileName MhGetSaveFileName RawNamePosM ExtensionPos_ OFN_EXTENTIONDIFFERENTM MhGetFileTitle MhEcodek MhGetFileType CustomColors Find? Replace MyKeyCode TFind TReplace FindReplaceChoice} PrinterHdc PrintDlgType MhPrintDlgType FileOpen FileOpenMenu FileSaveAs PrintSetup_Click PrintButton PD_SHOWHELP PD_PRINTSETUPR PD_RETURNDC MinPage MaxPage. Result MhPrintDlg, MhPrintDlgDefE PrintSetup MhSpread1_Click] ResizeSpread~ MhSpread11 MhSpread1 MhSpread Colsj Label1h Caption Rows= ColumnWidth HistLength FileLength LastRecord> RecNumber AccountRecords" Label4O RecordTypeHistr TitleT TextArrK Element FixedCols Elementr DesiredRow! FixedRows FontUnderArr3 CellToUnderline5 FontUnderlineArr+ CurrentCellL ProcessExtendedKeysr KeyCode VK_Right NewCol NewRowK SetCurrentCell MoveToTop BadCell BCErrork TopRow LeftCol CellFocus SetupEmulatedEntry KeyAsciiP MenuTextMode Checked Text3 CellScaleLeft\ CellScaleTop CellScaleWidth/ CellScaleHeight SaveData Alignment CellAlignment Initializingb EditCell MhSpread1_KeyPress MhSpread1_KeyDown+ Shift9 MhSpread1_GotFocus InitialzingB SetZeroZero VK_DOWN Text3_LostFocus< Text3_KeyUpD EditCell_KeyUpk EditCell_LostFocus MhSpread1_RowColChange Text2Z SelStartRowg SelStartCol SelEndRow, SelEndCol SaveStyle Fillstyle CellPointer RowHeight Text3Hwnd DataEditLabelhWnd7 DataEditLabel MhSpread1Hwnd MenuTextMode_Click MhSpread1_SelChange] EditCellHwnd VK_PRIORW VK_NEXT VK_END VK_HOMEz VK_LEFT> VK_UP0 EditCell_KeyPress EditCell_LinkOpen Cancel EditCut_ClickB Clipboard SelText ScreenQ ActiveControl EditCopy_Clicko Tex1~ EditPaste_Click SelRange UnderElement Fontsr FontBoldArr FontIndexk line1_Click FileExit_Click WinFinance CreateUnderlines StartRow EndRow FirstRow LastRow FirstCol LastColO LastRoe SelTemp SpacePos AddToTemp+ VeryTemp SaveForm_Click RecordCode ThenMhSpread1a NumOfHedrLines NumOfHedrs DateFileType HistYear1 VersionNumberQ DateLastAccessedC DataFileType HEADER1 HEADER2W FOOTER NumberOfPeriods= HistPeriod1 Accounts& HistPeriodX- HistDateHistPeriodX PeriodDate PeriodColWidthh HistPeriodB InsertRow_Click MonthlyLength AnnualLength Filename ForecastMonthlyMenu_Click FillColor CellBackColor$ WHITE KEY_F2 MhSpread1_DragOverJ SourceL Statex MhSpread1_DragDrop MhSpread1_ResizeQ Form_DragOver ElseEditCell MhSpread1_KeyUp DoEditCell EndSelect HistPeriod2 COL_DATES COL_WIDTHS5 SALES_LINE MousePointer MsgBo_ EnabledA EnableMenus) FileSave( EditMenu ViewMenu PrintMenu MONTHLY_LEN ANNUAL_LEN HIST_LEN~ AddPeriod_Click0 AddRow_Click= FILE_TYPE VERSION; LAST_ACCESS NUM_PERIODS HEADER_2 HEADER_1 PrintFooter PrintHeader2 PrintHeader1{ ColWidthg STD_COL_WIDTHh Junk> NewColDate Dash_Click ForecastAnnualMenu_ClickF ViewMenu_Click PrintPrint_Click Returned PrinterSetup_Click PageSetup_ClickI PrinterSetup SAVE_LEN SaveLength GetFileName FileNameTemp) GetFileNamerX FileNamer GetFileNameFileNamer Fucks Nothingness, FileNameVar; EditCell_KeyDown EditPaste NUM_PERIOD NumberPeriodsa NUM_OF_PERIODS PageForm TXT_Left LeftMargin TXT_Right RightMargin TXT_Top TopMargin TXT_Bottom- BottomMarginS TXT_Header HEADER4 TXT_Footer DialogContinueT CancelOp PrintHeader ReadPeriodsb PeriodNum Period PeriodNumberk PeriodVar MaxRecords AccountRecsI AccountsRecs RecNuma MacRecords AccountRecZ Help2 LastRecorsu first. VewRatios_Click} WindowMenu Form_DragDrop MhSpread1_MouseMove ButtonG WinMonthly_Click\ Grid1 Grid1Hwnd@ Grid1_KeyPress Grid1_KeyDown Grid1_RowColChange= ColAlignmentn LeftPointZ TopPointx Highlight Errorcode CMDialog1 Filter DefaultExti DialogTitle OFN_PATHMUSTEXIST Action FileExists CancelError Erroskub ErrorVar ErrorVal Panel3D1! Panel3D2_DragDrop Panel3D2 ViewCashFlow_Click DPanel1 ViewFinancials_Click ViewRatios_Click ViewVariance_Click ViewIndustry_Click ViewCommon_Click ViewAssumptions_Click% SpcPos1 WordLen FirstPart6 RestOfItK Panel3D1_DragDrop Panel3D1_DragOver GetDateProc GetDateForm LatestDate Stopl Stoplsad Text5 Intitializing OnError FormatNum Num2Format Inst0 LenOfItT NumOfComas FullLength TempNum TempNum1) TempNum2e Temp2V Counter LeftNum11 RightNum2v Grid1_Click TempNumber TextLenOfIta TempNumFmt Edit1 NumberIn, NumberOut SecondPart CountUp LeftNum RightNum NoDecimal Decimal$ Hist2 Hist1 FileHasChangedt Response CMDialog Filetitle^ FixedAlignmente Grod1 ReadInPeriods Grid2_Click Grid1_SelChangem InititializeValues InitValues WinHistorical_ClickB ViewMode DoItWhile? IsMathOpa MathOp AddOp SubOpX IfEnd3 EditPointer EditCounter~ XPointer MaxRecordt LastMath EntryIntoArray Hist3 Hist4 Hist5 Hist6& Hist7f Hist8E% Hist9& Hist10 Hist11 Hist12 NumOfPeriodsQ Grid1_DblClick ChangeAccountt CellSelected' CheckIfNotSaved FileRecordType RecordLenn^! RecVar RedDim FILE_LEN WaitForm FloodPercentX Panel3Dk WaitPanel Refesh StartBS StartOfBS ViewIncStmt_Clickb ViewBalSheet_Click ReadIntoGrid1 BSFlag ISBSFLAGJ StartOfBalJ ViewReportS# WinAnnual_Click Grid25 DateFlagE NewDate* Text3Temp loadL Label2 ReadInDates_ ReadInColWidths ReadInDatay RcNumber HelpCommand HELP_HELPONHELP KEY_F9v File=! NextEnd? TOT_SALES TOT_COST TOT_GP TOT_OPEXP OP_INC PROF_B4TAX TOT_TAX NET_PROF TOT_CA TOT_GFA2 TOT_DEP NET_FA TOT_CL@ TOT_LTL TOT_LIABS TOT_EQ TOT_LE TOT_ASSETS FontBoldu FontUnderline LastDate- ViewRepirt)! JimH$ OptionsMenu OptionsSel_Click OptionsForm Shoew# FormFlag@ DateIntoArray DateRec LastFate ViewData BackColor CLR_GREY Number Periods BuildReportData Dat_Sales1i AcctRecQ& HistRec FileIntoArrays NumberOfP0! eriods{! MonthRec AnnualRec AnnRec FileRecT! ArraysIntoFile HIS5# ModeCaption ViewCaption KeyPress GridMode ISFlag SetupGrid GridMde Grid1Mode Grid2Modem% GridMode1 ThenNumberOfPeriodsn! BSfalgy" ErrorTrapper Dat_Sales"" Sales TotDatag" TotalData Picture Picture1 Picture2#$ HISPointer:" BSPointer ISPointer," THenChangeAccountH" SelectEnd TOT_OTHEXPk# SelRowG# DoGridCalc DoGridMathV" CaseTOT_GP CaseTOT_OPEXPo$ CasePROF_B4TAX SaveRow SaveEditRow SaveTotalRow TempNumner OrFileRec Grid1_DragDrop># COS_LINE GP_LINE OPEXP_VAR ErrorHandler)% processing*# youa# entered InvalidW' Enter under Trillion AddSubTemp OpTemp GridText}$ Dash2_Clickc$ SaveEditCol TempRow TempCol TotalSalesD( TotalCOS TotalGP TotalOpExpt) OPINC FindIT|( AddPeriod AddRow3$ FileErrorV$ SetupError ExitFileOpen OFN_FILEMUSTEXIST Command2D3 BTN_Other BN_Other TOT_OTHNCA Change Account NP_BANK6% AccountTypes CodeIndex Form_Unload BTN_Delete^) COS_OTHER COS_PURCH<& TOT_GINTA TOT_ACCAMORTR% ThenNewRow OPEXP_FIX_% NONCASH_EXP OTHER_INCx% OTHER_EXP0& NONREC_EXP INT_EXP TOT_OTHEREXP OtherEXP TotalOTHExp OtherOTHEXPE+ STATE_TAX FED_TAXm& TotalTAX AutoRecalc Value CASH_EQ%& MARK_SECW& AR_TRADEL' AR_OTHa& INV_COS INV_OTHe( PREPAIDSF& OTH_CA TotalCAQ) NP_OTH AP_TRADE AP_OTHR1' TAXPAY_INCi) TAXPAY_OTH ACCR_EXP CP_LTD OTH_CLb' TotalCLfI GROS_FA TotalGFA"' ACC_DEPw+ TotalDEP>' LT_INVEST OTH_NCA TotalOTHNCA%) GROS_INTANG ACC_AMORT NET_INTANG!( LTD_ACC DEF_TAXm' OTH_NCLy' TotalNCL TotalLTL)( CAP_STOCK9. TREAS_STOCKu( RET_EARN;( TotalEQ TotalGINT TotalGINTA TotalAmort1( PrintCancel", DoPrinting CallDoPrinting DeleteAccount goesW( entire array9, NumberOfRecords DeletePush ExitEditCell Percnt InRec]* TransferData Transfer Aspect MonthAssum0) Month1;) Month2F) Month3 Month4}+ Month5-+ Month6 Month7 Month8 Month9-, Month10 Month11 Month12 Month13 AnnAsssum Annual1 Annual2 Annual3 Annual48* Annual5 LengthX Length InRecordTypeK, FileRec1i* FLE_LENR* ColWidthsRec,* ReportCA ReportCLE* ReportDebt ReportLiab ReportEquity)1 ReportQA ReportGPM ReportPBT CUrreny ReportGPx* ReportSales ReportAssets ReportInv ReportAPD. ReportAR Record + Rrecord AR_OTHER ReportPB otherZ, TotalQA"- TotalDebti- TotalEquity Picture3C, TestGP:+ ReportCOS ReportInc COS_OTHW+ ReportCOSPURCHg+ ReportCOSOTH ReportCOSPCH CFFR=/ CFFEWR ReportPAT~. TempD IndustryForm~, DoRptUnderlines ResizeGrid ThenResponse!. TranslateDataR. Monthso, Annual NewRecordType AllData Variance NewRec LastRecordse, RefcNum RefNum CcurFileRec TitleUnderline/- TitlesUnderline NewRatiosRow TitleAccounts Turnover NewRatioRowi/ DisplayGridSetups- BuildFinStmtsr1 StartPeriod[- EndPeriodG- DoFinStmtsUnderlines DoStmtUnderlines~- MarginsRec MARGIN MARGINS MarginRec HeaderRec.1 FooterRec^. IND_DATA IndustryRec CodI/ BuildLRAssumptions BuildLRassum,3 MaxColumns WinHistorical WinAnnual/. WinMonthly Loaded\/ Pointerc2 SaveTopRows. RowsCall ChangeAccountFormt/ SaveRec OTHER_IN MenuCaption_0 MenuID Form_KeyDown'0 HWndCtlName"1 HWndTag|2 LowerPanel StartMouseWatch"/ StopMouseWatch InnerLowerPanel Flood// FloodType LowerPabel TopPanelk0 SetupLoadedFile=3 ExitSetup UntilIf AutoAdvance OptionsMenu_Click OptionsCurrency_Click OptionsRound_Click OptionsBold_Click OptionsBold OptionsCalc_Click OptionsCalc90 OptionsAdvance_ClickO0 OptionsAdvance OptionsLarge_Clickd4 OptionsLarge FontSize LowerPanel_DragDrop Control Gid1Mode elseifIf17 SaveCol SaveMode ForNext CalcCol CalcEntireGrid SaveOptionsCalcO1 CalcEntireFile CalcAllPeriods=1 ensO3 FileRecType ChangeAccounts^1 AccountTypeU2 AccountTypesType ResumeNext 4 ResumNext?2 eweNext]5 DeleteButtonH2 RoundingForm CurrencyForm xxxxz4 ItDate!5 DatePrior02 AllDates finishitoff CreateAssumptions NONCASH Grid3_Click Grid3 Grid3Mode SetupGrid1q2 SetupGrid3 BuildLR Assumptions74 OTHER_ECP CS_LINE ADJUST_RE DEPREC_COS Grid3_KeyPress AnnAssum Growth PERCENT_GROWTH rid3{3 PERCENT_SALES PERCENT_GFA.5 DOLLAR_AMOUNT PERCENT_PRETAX]3 DAYS_SALES*4 DAYS_COSw< Grid3_DblClick ChangeAssumptionForm LoanForm SRAPointer LRPointer SRPointer Option3D1 ChangeAssumptionsForm DOLLAR_CHANGEs9 NewYear NewMonth%8 NewDayU4 PERCENTN6 ReportGFA76 StartWaitPanel PERCENT_y5 PERCENT_INTJ8 SetTopPanel DoLRAssumptionsg5 EnterLRAssumptions SEnterLRAssumptions Assumption'6 NewAssumption ProcessAssumptions SaveAssumptionC5 CreateAssumptionLines AssumType75 AssumB6 AssumNum CreateAssumptionsLines selecy DoAssumNumbers PERCENT_PROFIT FormFlaf ResetForecastAssumptionFlag ProcessAssumEntryZ6 ReportGINTANG?7 GROS_ PERCENT_GINT ReportGINTANTc7 ReportGINTl6 FilRec|6 Case1 DeletePeriod ColFlag Untitlede6 RptPrint PrinterJ7 NewAssumFlag ChangeViewMode NewViewModeQ7 HISFlag HBSFlagt7 NewMode ResetFlag ForecastReset HCF*7 ForecastReset_Click[> ViewCommonIncStmt_ClickX7 SetupGrid2 WinHistu8 LIS,= LISFlag BuildForecast DoForecastLine AnnAs FirstNumberI9 LBSFlagT9 ViewAssumptionsO: FCNumber LRForecast7? SRForecast FCDataU8 Report CalcSales CalcCOS/8 CalcGP<8 CalcOPEXPj8 CalcOTHEXP CalcTAX_8 CalcCA CalcGFA CalcDEP CalcGINT CalcAMORT CalcOTHNCA CalcCL;9 CalcLTL CalcEQ TotalPBT TotalPAT TotalAssets TotalInv_9 TotalAR < TotalAP Periodd)9 Grid3x_KeyPress~9 Gridx_KeyPress NewVieModeh9 HRRFlag HCFFlag HFlag.: HRAFlag LRAFlag SRAFlag HBEV< SRR9: SCIS= HCIFlag HCBFlag ; HBEFlagD: HIAFlag-B LRRFlag LCFFlag#: LCIFlagp: LCBFlag SISFlagi< SBSFlag SRRFlagZ: SCFFlage: SCIFlag|: SCBFlag?; trueThen BuildRatiosReport FileData4< FinData FinNum(; BuildCashFlowReport BuildCashFlowRepotr TotalNonCash OPEXP_NONCASH ISCashFlow BuildCommonISy; BuildCommonISReportO; LastHistMode]; LastLRModek; LastSRMode LastHAMode IfSetTopPanel TotalPrepaids>< TotalOTHCA TotalPREPDS&< TotalOTHINV TotalAccrued== TotalACCRB? TotalOTHCLn@ TotalTAXPAY TotalTOTAP TotalMKTSEC TotalLTINVu> LT_INVJ< TotalBFA]< TotalNFA TotalNCA PeriodsRec TxtDaysInYear$? TabStop KEY_F4 Grid1_Dble_Click = Grid1_Dbl_Click KEY_F8 AMORT_EXP OPER_EXP7@ DEPR_EXPF> TAX_CUR TAX_DEF StartEditCell Industry PrintIndustry PrintIndustryCheckj? BuildForecastLine}= BuildForecastData @ BuildTotalsData nnAssum fFileHasChanged ileHasChanged BuildCommonStmts BuildCommonFS CommonSize,@ CommonSizeFlag CommonSizeCode3> BuildBalanceSheet BuildIncomeStmtjA ProduceCommonSize ViewCommonBalSht_Click DoTitleUnderline Needsd? Recs)D TotalNPM? NP_OTHER TotalLTD TotalStock#E TotalAdjRE ViewCommonIS_Click ViewCommonBalShtt_Click DoAssumNumbexrs CheckAssumption HiLimit LoLimitp? CallCheckAssumption IncStmt_Check ViewIncSmt_Click SetAssumptionCcoices|@ SetAssumptionChoices MIN_INT LRPointe_@ DEFAULT$A Tempy ACC_AMORXA TOT_ACCAMOR OptionsFont_ClickL@ ANSIONLY CF_BOTH CF_FORCEFONTEXIST CF_PRINTERFONTS CF_SHOWHELP CF_WYSIWYG CF_ANSIONLY CF_SCALABLEONLY FontName CF_EFFECTS CF_TTONLY FontStyle CF_WYSIWIG4A MDialog1 MinDA Max>B CF_LIMITSIZEnB CF_SCREENFONTS BalSht_Check Ratios_Check|A ViewBalSht_Click@F CashFlow_Check}B CommonIS_Check(B ViewC_ClickGB MenuForm/C SetPointer5B ThenStartOfBS LRAPointer8E CheckRow#C CCheckRow PlaceFinStmtData PlaceCommonSizeData PlaceComSizeData8D TePeriodnC SomePB Thens checkZB blankWE needed ChangeAssumption PrintReport CommonBS_CheckdE RowHite ChangeHistAccount@C ChangeHistDate ChangeAccountAssum ChangeAccntAssum SetAssumChoicescF frmChangeAssumption LoadInFile SaveFilemD MaxTitleWidth Exists_C Assumptions_CheckND Assum_Check ViewAssumption_Click LstRecord"D Option3D1_Click SetPrintOptions CreateFinData FinDataStartLR FinDataEndLR FinDataStartSR fFileRec StartFileData ataYD TotalIntExp NONREC_EXPTotalPBTeD OPER_CF CF_B4FIN CalcOperatingCF FalseHCBFlag FontSizer PERIOD_LEN DaysRec PERIODS_REC LOAN_SCHED|I MIN_CASH INT_RATE SalesLinepH GPLine REL,F GraphMenuDE GraphReport_ClickkF frmGraph-J GraphMenu_ClickrE ThisSales|E TotalOpInc OP_EXPyF OTH_INCoG OTH_EXP TITLE_COL_WIDTHWF GraphReport Graph1 GraphData GraphTitle NumPointsMG LegendTextJF LabelText AutoInc6F ThisPoint thenGrid1'H WCTextBG TotalS+G T_LIAB<S TotalLiab TOT_LTLz TotalINTAG EndIfBS EndOfBS TestFlag BuildAssumError{G BuildFinStmtsErrorUI GridCalcError G DeleteAccountErroraG Accounterror|H DeletePeriodErrorDH INVEST_CF8G FINANC_CFRH FIN_CFVG ThisSetlI GraphdH NumSets GraphStyle CFB4_FIN BuildRatiosError BuiltTotalsError BuildTotalsError BuildCashFlowError%K BuildFCDataError AddPeriodError AddRowError SaveText SaveEdit EditPanel J ADJRE FileImport_ClicknO ImportFile'Q ExitFileImport LastByte ReadByteII toFileLength=I ImportBin TempByte StartLRData KEY_F5 PlaceNewAccountEJ NewAccount=K NewAccountForm Rightt BuildAssumptions+I CreateAssumNumbers CreateLRAssums.N StartNum NewDatex NewDateSerial FinDataEndSRgJ HCFlaghL EndPeriodIf Fill_Grid FillGrid7J Fil_lGrid SaveFileAsCode SVAFlaguJ SCAFlag CellFmtMJ Opcode FileNum Integ Column$J Dummy<J CSRLIN INKEY[J GetFormatx DoFormat FormatTypeHK spreadsheet operateswL recalc order RecCode*O Fill_Grid1 LabelStr Evaluate0K Formula ErrCodenK Formulae TyperoeT EditText Position Operation LeftVal FirstFlag Balance^K RightValJM Answer@N SaveTempFile elseSaveTempFile GetAgileOptions AgileForm)L GetAgileFormSize GetAgileFileNames DatabaseCount FileMenu9M NamedItem<X ExtractFile DatabaseFiles8L GetWinFinOptionsHL GetFormSizesM GetFileNames GetMainFormSize FileCountkN WinFinFilesXM line1 WriteAgileFormSize WriteAgileOptions WriteAgileFileNames WriteMainFormSize WriteWinFinOptions WriteFileNameseM AddFileNames"M NamedItem_ClickQN FileNamedItem_Click FileNamedItem NamedError HOURGLASSyN ReadSchema ModeStrings CurrentIndex CurrentFile RemoveDatabaseZQ CleanUp FileFiles RemoveFile Files Picture1_Click Picture2_Click OldFileRecordType CurrentFileNameZN FileSaveAsCode AskToSaveFile ThenX FileHasChange HistoricalGR NumberOfPeriodsDim LoanInfo8O LoanDataTypeEO FileBinary_Click HistoricalDataKP ShortDataSO SRVariances QuarterData?Q LongData WriteBinaryFile)S AccountData ShortRange LongRange SRVarianceaO SRActualss/R SRActuals ImportHSFfile ViewBreakEven_ClickoP BreakEvenFormpT EditCoInfo_ClickcU frmCompanyInfo frmPrintMenu frmRounding frmLoans!P frmAboutZS frmIndustry2P frmGetDate[P frmNewAccount@P frmNewFilenQ frmPage frmBreakEvenwS frmChangeAccount FinDataStartQTRaR FinDataEndQTR lobal FinDates ResetCounter{X TotalsData PeriodCounter TotalOPEPeriodCounterP TotalINTEPeriodCounterP TotalOTHEPeriodCounterP TotalTAPeriodCounter,U TotalTAPeriodCounterPAYhS NePeriodCountert DEPR_EPeriodCounterP AMORT_EPeriodCounterP OPER_EPeriodCounterP INT_EPeriodCounterP OTHER_EPeriodCounterPhV NONREC_EPeriodCounterP TAPeriodCounter_CUR{R TAPeriodCounter_DEF ACCR_EPeriodCounterP TAPeriodCounterPAY_INC TAPeriodCounterPAY_OTH DEF_TAPeriodCounter EPeriodCounterit MainCounter TotalsCounter TotalPeriods MaxAcctDim MaxPeriodDim QuartersOS FinTotals zotalAssets zotalDebtkY TePeriodCounter3T NePeriodCounter FinDays ColTotalCAnU xTotalSales HistData CodeAccountDataHU FinAssumTypes OTH_RECVER OTH_RECV?T CreateReportDataMT ReportData ReportDataStartSR ReportDataEndSR T ReportDataStartLR ReportDataEndLRVT Relation Percentage`V PRCNT LastAccount V Stepper NumberOfDaysIn1 DaysInFirstPeriod IndustryDataVV IndustryDataExists&U NumberOfLoans ReadBinaryFile;a gcCASH DeadTranslateUX gcTOT_LEYU RecordCountertV IndustryTitle&V FenData FimAssumTypes RowCtr Monthly NumberOfDaysInFirstPeriod frmStartup TempData Total FinDaya NewDateXX NewDateXXXx` HistoricalTotalPeriods\X toDatePrior.V txtMonth txtDay txtYear passBV ReorderFileNames|W ReorderFileItems INV_FG CaseDaysi] txtMonthsInPeriod FinMonths;W COMM_STOCK SUB_D SUB_SALES+W SUB_COS SUB_GP SUB_OPEXPSW SUBOTHEXP X SUB_TAX SUB_CASH SUB_CASHEQ SUB_MKTSECaW SUB_OTHRECV SUB_PREPAIDSHW SUB_OTHCAnW SUB_GFA SUB_ACCDEP3Z SUB_LTINV SUB_OTHNCA3X SUB_NPB SUB_APTRo\ SUB_APOTHmX SUB_TAXPAY SUB_ACCREXP SUB_CP SUB_OTHCL{\ SUB_LTD SUB_OTHNCLfX SUB_EQ FiPeriod edAlignment2\ SUB_OTHEXPIX CommonSiCounter eFlag ndCounter Counter2 mpNext simV] dimPointerYY RowFlag SUB_CA SUB_NCA SUB_CL SUB_NCL GetModuleHandle Ctl3dRegister Ctl3dAutoSubClassS` Ctl3dUnregister Get3dModuleHandle/Y Ctl3dRegister2EY Ctl3dAutoSubClass2#Z Ctl3dUnregister2vY Form_LostFocus TestStr FontErrors ExitFontError ExitFontErr NewViewModeError ViewModeErrorY\ ErrorFont FontErrorFont FormLoad6[ FormLoadError exi$[ FileOpenErrorGZ BuildBSErrorWZ GetFormSizeError BuildISErrormZ CalcAllPeriodError CalcAllPeriodsError ChangeHistDateError ProcessAssumEntryError ProcessAssumError SetAssumChoicesError SetupGrid1Error StartEditCellError EditCellKeyPressError NamedItemError FormKeyDownError^[ GraphReportErrort[ Grid1DblClickError Grid1KeyDownErrork` Grid1KeyPressError PrintPrintError PrintError ThenFinMonths COS_NONCASHM\ INV_RM INV_WIP cmdOther ChangeHistAcctError'^ ChangeHistAccountError=\ SubTemp SubTotalTemp SubTotal`\ Cllc_ StartPeroid WINV_WIP TotalTangEquity#] otherstuff TotalIntangible OTHR_RECV OTHER_RECV OTHER_RCV{] TotalO TotalOTHRECV TotalOTHNCL Relatio6c Fin6] FintData ThenAccountDataD] ThenNumber ExitSaveFileAs chkReportSelect chkReportSelecB^ ViewExecSummary_Click*` SESt^ HESFlag LESFlag}^ SESFlag BuildExecSummary BuildExecSumErrorx_ BuildExecSummaryError TotalPBTP RowHeighth6^ TotalLTLiabW^ TotalNPB ViewExecSum_Click ChangeAccountError umber INV#` WIPGa INV_IPL_ Historicaltox toNumberOfPeriods SetupMonthlyForecast SetupMonthlyFC!_ SetupMonthlyFCError CreateTotalsData SetupAnnualFC7_ SetupAnnualFCError SetupAnnuaFCError DoAssumNumbersError:b CreateTotalsError BuildAssumptionsError FinPeriod`` AssumPeriod_b tartPeriod Counter3Ma CreateAssumTypes zCurrentFileName PERCEzNT_SALESA` TotalGINTIntangible TotalNetIntang TotalDepr SUB_DEP SUB_GINTA SUB_ACCAMORTmb SUB_LTL(a SUB_LIAB"b ExitFlag SaveFlag.b CancelFlagsa LastAccountyca frmInputNumberYa frmPrintCancelUb frmChangeAcct frmChangeAcctUnload EditCell_Change LTD_ACCT LoanData Amount OptionsProof OptionsProof_Click MsgLine TotalsAssets TotalLE TestNum TotalNum OutOfBalanceFlag TestBS TestRE TotalRE:e TotPBT TotalDivGb PREF_DIV COMM_DIV/c Proofing Financial Statements manual]d SALES_DISC EditIndustry_Clickxf grdIndustry BuildSummaryRatios=f HSRFlag LSRFlag SSRFlagAc ViewUCACashFlow_Click BuildUCACashFlow$c HUCFlag LUCFlagtc SUC7j SUCFlagYc dBuildCashFlowReportDd dBsdsuildCashFlowReportld BuildUCAError HDRFlag_f LDRFlag LFlag+e SDRFlag#d ewMode TotalOpNONCASH TotalOperNONCASH TotalOperOd Numner NumberArray TotalINTEXPFinTotalsPe TotalCPLTD[g TotalCPLTDTotal TotalMI<g PREF_STOCK LoanCounter ReturnLoanNumber ReturnLoanBalance LoanNumber VarRate f Balloon\e PMTPeriod BegDate EndDate CumBalance CumInterest{e Principal Interest e FormParam1 PmtDatedj grdSchedule HelpContents_Clickkf Contentsle HELP_CONTEXTug HelpContext WinHelpkl editorFg HelpFilePathNf HelpTopic HelpKey HELP_KEY PasshWnd/f InthWnd+j WHhWnd7i WriteUserSettings StmtType StmtTypes LoanPortion Accountata TotalNetINTAG ifAccountData TOT_GINT TotalLAND emd'g NPInterest TotalACCDEP LRNeedsCalc SRNeedsCalc TotalOthNP TotalNonNP TotalNotNP TotalNonNPDebt0g TotalNonCashAssets TotalNonCashCAZh Perio Numb1Mj HelpFile HelpIDcg Help_File_In_Path HelpFileInPath HELP_QUIThh HELP_INDEX CompanyInfo MinCash%h TestBalance BalanceFlag trueEnd LoopFlagwh LoopFlagLoopFlag TotalLTDebt{i SUBCP_LTDah SUBLTD_ACC@h ViewSummaryRatios_Clickxm ViewDetailRatios_ClickYi DRNeedsCalc.i BuildDetailRatios TotalSubDebt TotalOPdInc BuildSummaryRatiosErrorBi BuildDetailRatiosError TotalLTSubDebt TotalarOpExp TotalConst\j TotalVarOpExpNi Gris1Fk Addresswl PrintDlgui DevMode lStructSize hwndOwnerMn DeleteDC hDevNames GlobalFree GlobalLock4l hDevMode hmemcpy'k GlobalUnlock!j dmDeviceName dmOrientation@j dmOrientationEnd OPENFILENAME szFile szFilter(n wSize MemHandle GlobalAlloc GHNDxj OFN_HIDEREADONLY nFilterIndexNr lpstrFile nMaxFile lpstrFilter GetOpenFileName[k nFileOffset nFileExtension8k MsgBoxPrint OldFont Form1mk OldFontSize OldFontWeight OldFontItalic FontItalicUp OldFontStrikethru FontStrikethru^l OldFontUnderline OldForeColor ForeColor7o ChooseFont LogFont nfonttype SCREEN_FONTTYPE lpLogFontCn FntSize(l lfHeight GetDeviceCapsQm LOGPIXELSYOl lfFaceName@l lfWeight lfItalic lfStrikeOut lfUnderline rgbColors nSizeMin nSizeMax PRINTER_FONTTYPE CF_APPLY@m CF_INITTOLOGFONTSTRUCT CF_NOSTYLESEL CF_NOFACESEL CF_NOSIZESEL SUB_CAc.m SUB_CACC MsgReturn ID_NO PointerStartRow CmdOther_Click CaseSUB_SALES\m OTH_dCAgm OTdH_CA ToAccountData ViewExecutiveSummary_Click ViwExecutiveSummary_Clickqq elect SALES_LINEf7n NumberOfPevn OptionsBankInfo_Click frmBankInfo SelRowsaan SelRows7p SelStareRowrp lSaveRowho Poiter BuildSourcesUses BuildSourcesError ViewSourcesUses_Click HSU+s HSUFlag LSUFlag SSUFlagWo TotalNonRecur&o TotalDepre TotalDeprec TotalDefTax TotalPrefStock TotalCommStock TotalAdjustREFo TotalSubLTD TotalSubCPLTD TotalPrefDiv2xo TotalPrefDiv TotalCommDiv TotalTreasStk TotalTredasStk TotalTreasStock TotalCashEQ WriteKydFile ExtractBase KydFileName*q rGrid1 GrodRows GridRows)p ACC_DEPR ACCUM_DEPRGp ACCUM_DEPRECdp ACC_DEPREC ACCDEP_ACCT ACCDEP_ACC>q ClipString txtStmtType SetupMainForm ViewReconcileWorth_Click HNWFlag BuildNWACashFlow LNW{q LNWFlag SNWFlag BuildReconcileNW FalseSCBFlag ResetReportFlagsXq mnuDeleteAccount_Click mnuDeletePeriod_Click KEY_F3 ProcessEditCellEntry EitCellKeyPressError EditCell_GotFocus FormParamZr SetupAccounts KEY_DOWN4r KEY_UP SelStart>r KeyMove(r KEY_RIGHT KEY_LEFT StepBy ThenMainForm ThenElsevr ThenProcessEditCellEntry SaveNewRow SaveNewCol6s@ mnuBegin_Click FixedCol FixedColWidth EditPointerAs KEY_ESCAPE KEY_END KEY_HOME s KEY_F1 KEY_F6 KEY_F7 KEY_F10 KEY_F11 KEY_F12Qs mnuOptionsAdvance_Clickfs@ mnuFileExit_Click|s mnuHelpAbout_Click mnuOptionsCalc_Click mnuOptionsCalc decide moves cursor InnerLowerPanel_DragDrop TopPanel_DragDrop mnuFileMenu_Click variable EntryInProgress This small VB program demonstrates a method of making thet VB GRID.VBX editable. I've spent some time getting ideast from various sources--some are even my own. This programt is dedicated to all the people that have helped me via CompuServe and America Online. You may cut & paste this code however you want. I hope that you find it useful. It may not be all that optimized.m Also, I didn't spend too much time adding comments. e I ask nothing more than that if you find this program useful,f drop me a line and let me know. I can be reached at: CompuServe: 76470, 3423m America Online: Seattleite This is a good idea #,##0 EditCell_Change Echoes the contents of the editcell into the grid cell If a user clicks on a new cell the if/then prevents the cell from being blankede EditCell_KeyDown Enter key, down arrow You may want to have an "auto advance" option to n decide if an Enter moves the cursor down.d This demo just does it.s Test to see if the cursor is at the end of the entry. not so necessary for KEY_UP, but... what the heck. Test to see if the cursor is at the end of the entry. Test to see if the cursor is at the beginning of the entry.e EditCell_KeyPress Enter key Abandon the edit Necessary to keep the ProcessEditCellEntry from not kicking in *, +, -, ., /, 0 thru 9, and BACKSPACE These are okay My app only wants to have numbers entered, if you want the ability to handle more than that, expand the case statement. ...or just take anything with a case else. The character was something undesirable... make it go away.m EditCell_LostFocus Put the data back when the user clicks on another cell Evaluate My thanks to Ethan Winer for this section of codeD It is mostly adapted from an article by him addition subtraction multiplication division Return function result Form_Resize Minimum sizest Grid1_KeyDown Save in case press Esc latere Please wait... DoGridCalc (In my full app, this calcs the formulaes and such) Ready error in Grid1/KeyDown subprogram. Error Grid1_KeyPress Enter moved Do nothingo +, -, ., And 0 Thru 9r Save in case press Esc later Do nothingo error in Grid1/KeyPress subprogram. Error mnuBegin_Click Just some code to make the grid interestingn Left aligned Left aligned mnuFileExit_Click ProcessEditCellEntry Used if user clicks mouse to different cell f No reason on this green earth for a number thisF large in my app. Better to stop this nowa I place the Answer# into the appropriate arrays here in my own app.o The following handles the case of the user clicking the cursor to a different cell while in the edit mode Keep track of where the new cell isl Need to switch back to the original cell Put them back in their new celll DoGridCalc ' Calculate the total rows-removed for demo Next cell Number is way too large! Enter a number under one trillion or so! Invalid Number Unexpected error # in processing that number. Try again. Invalid Number ProcessExtendedKeys {DOWN} {RIGHT} {LEFT} StartEditCell They pressed F2 to edit the cell {END} place cursor at end of number They just started typing to start entering something new If they typed something to the grid, pass it to the Textboxe error in StartEditCell subprogram. Error