Computer Programming Concepts and Visual Basic David I. Schneider

308 Computer Programming Concepts and Visual Basic
Private Sub ShowTotals()
Dim colNum As Integer, rowNum As Integer, total As Single
‘Compute and display total of each numeric column
msgSprdSht.Row = numRows - 1
msgSprdSht.Col = 0
msgSprdSht.Text = “Total”
For colNum = 1 To numCols - 1
total = 0
For rowNum = 1 To numRows - 3
msgSprdSht.Row = rowNum
msgSprdSht.Col = colNum
total = total + Val(msgSprdSht.Text)
Next rowNum
msgSprdSht.Row = numRows - 2
msgSprdSht.Text = “————————”
msgSprdSht.Row = numRows - 1
msgSprdSht.Text = FormatCurrency(total)
Next colNum
End Sub
Private Sub ShowValues()
Dim rowNum As Integer, colNum As Integer
‘Refresh values displayed in cells
For rowNum = 1 To numRows - 1
For colNum = 1 To numCols - 1
msgSprdSht.Row = rowNum
msgSprdSht.Col = colNum
msgSprdSht.Text = FormatNumber(Val(msgSprdSht.Text)vbFalse)
Next colNum
Next rowNum
End Sub
[A possible run of the program is shown.]
So far we have used the Text property of grids to place strings into cells. Grids also have
a Picture property. A picture (such as a .BMP file created with Paint or an .ICO file from
Visual Basic’s icon directory) is placed into the current cell with a statement of the form
Set msgFlex.CellPicture = LoadPicture(“filespec”)
If both text and a picture are assigned to a cell, then the picture appears in the upper left portion
of the cell, and the text appears to the right of the picture.
■ THE MENU CONTROL
Visual Basic forms can have menu bars similar to those in most Windows applications.
Figure 10-11 shows a typical menu, with the submenu for the Font menu item dropped down.