Computer Programming Concepts and Visual Basic David I. Schneider

Dim maxCol As Integer ‘Number of columns in spreadsheet
Dim maxRow As Integer ‘Number of rows in spreadsheet
Dim incStartRow As Integer ‘Row where income categories begin
Dim incStopRow As Integer ‘Row where income categories end
Dim incTotRow As Integer ‘Row where income total is displayed
Dim expStartRow As Integer ‘Row where expense categories begin
Dim expStopRow As Integer ‘Row where expense categories end
Dim expTotRow As Integer ‘Row where expense total is displayed
Dim balRow As Integer ‘Row where balance is displayed
Dim startCol As Integer ‘Column where numeric data begins
Dim stopCol As Integer ‘Column where numeric data ends
Dim totCol As Integer
played
‘Column where total for each row is dis-
’Control Arrays’txtCell() Control array for data cells
’lblRowLab() Control array for numeric row labels
’lblColLab() Control array for alphabetic column labels
Private Sub cmdNew_Click()
Dim row As Integer, col As Integer
‘Clear all data and total text boxes
For col = 1 To maxCol
For row = 1 To maxRow
txtCell(Indx(row, col)).Text = “”
Next row
Next col
Call SetStructure
‘Place cursor in first data txtCell
txtCell(Indx(1, 1)).SetFocus
End Sub
Private Sub cmdQuit_Click()
End
End Sub
A Case Study: Calculating with a Spreadsheet 205
Private Sub CreateSpreadsheet()
Dim row As Integer, col As Integer, i As Integer
Dim cellHeight As Single, cellWidth As Single
Dim cellTop As Single, cellLeft As Single
cellHeight = txtCell(1).Height
cellWidth = txtCell(1).Width
‘Create cells For row = 1 To maxRow
For col = 1 To maxCol
i = Indx(row, col)
If Not (col = 1 And row = 1) Then
Load txtCell(i)
End If
If row > 1 Then
cellTop = txtCell(Indx(row - 1, col)).Top
txtCell(i).Top = cellTop + cellHeight
End If
If col > 1 Then
cellLeft = txtCell(Indx(row, col - 1)).Left
txtCell(i).Left = cellLeft + cellWidth
End If
txtCell(i).Visible = True
Next col