Computer Programming Concepts and Visual Basic David I. Schneider

Private Sub cmdQuit_Click()
End
End Sub
Private Sub Form_Load()
‘Set default number of rows and columns
numRows = 8 ‘row 0 is for headings, last 2 rows are for totals
numCols = 2 ‘column 0 is for category names
Call SetUpGrid
Call ShowValues
Call ShowTotals
End Sub
Private Sub msgSprdSht_Click()
Dim temp As String, message As String
’Obtain new value for cell if it is not in the “total” row
If messageSprdSht.Row < numRows - 2 Then
message = “Enter new value for the row ”
message = message & Str(msgSprdSht.Row + 1) & “ column ”
message = message & Str(msgSprdSht.Col + 1) & “ cell:”
temp = InputBox(message,,msgSprdSht.Text) ‘Propose old value as default
If msgSprdSht.Col = 0 Then
msgSprdSht.Text = temp
ElseIf msgSprdsht.Row = 0 Then
msgSprdSht.Text = temp
Else
msgSprdsht.Text = FormatNumber(Val(temp)vbFalse)
Call ShowTotals
End If
End If
End Sub
Private Sub SetUpGrid()
Dim colNum As Integer
‘Set up grid msgSprdSht.Col = 0
msgSprdSht.Row = msgSprdSht.Rows - 1
msgSprdSht.Text = “” ‘erase “Total” in case increasing rows
msgSprdSht.Rows = numRows
msgSprdSht.Cols = numCols
‘Set column widths; right-justify columns with numeric data
msgSprdSht.ColWidth(0) = 2000 ‘space for category names
msgSprdSht.ColAlignment(0) = 1 ‘show data left-justified
For colNum = 1 To numCols - 1
msgSprdSht.ColWidth(colNum) = 1200 ‘space for dollar amounts
msgSprdSht.ColAlignment(colNum) = 7 ‘show data right-justified
Next colNum ‘Set overall grid size to minimum needed for the data
msgSprdSht.Width = 2000 + (numCols - 1) * 1200 + 15 * (numCols + 1) + 8
msgSprdSht.Height = numRows*msgSprdSht.RowHeight(0)+15*(numRows + 1)+8
‘Adjust form to accommodate grid and other controls
frmSprdSht.Width = msgSprdSht.Left + msgSprdSht.Width + 200
frmSprdSht.Height = msgSprdSht.Top + msgSprdSht.Height + 500
frmSprdSht.Top = 0 frmSprdSht.Left = 0
End Sub
Five Additional Objects 307