home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Unsorted BBS Collection
/
thegreatunsorted.tar
/
thegreatunsorted
/
misc
/
editgrid.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-08-29
|
39KB
|
2,094 lines
MainForm
Edit Grid Demo
wwwwwwwwwwww
""""""
Form1%
It's just me, the form5s
TopFrame
EditCell
LowerFrame
InnerLowerFrame
@Editable grid demo -- courtesy of Brian D. Hutchison. Freeware.
MS Sans Serif
Grid1
Arial
mnuFileMenu
&File
mnuBegin
&Begin the demo
mnuFileExit
E&xit
mnuOptions
&Options
mnuNumbersOnly
&Numbers Only
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:t
GridRows)p
ACC_DEPRjt
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_UPHt
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.t
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
TopFrame
LowerFrame[t
InnerLowerFrame
NumbersOnly
NumbersOnly_Click
mnuNumbersOnly_Click
mnuNumbersOnly
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
By the way, the EditCell where the person enters numbers doesn't
have to be visible. If it's not visible, it appears as if you
are editing right in the cell (because of the code in then
change event).
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
The character was something undesirable... make it go away.a
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 nothing-- only allow numbers to be entered
Save in case press Esc later
error in Grid1/KeyPress subprogram.
Error
mnuBegin_Click
Just some code to make the grid interestingn
Left aligned
Left aligned
mnuFileExit_Click
mnuNumbersOnly_Click
ProcessEditCellEntry
Used if user clicks mouse to
different cell f
No reason on earth for a number this
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