home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
tables
/
table.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-07-13
|
4KB
|
92 lines
Form1
MarkUps R Us
Form1
Label6
Product Name
Label7
Label8
MarkUp
Label9
Price
Label10
In Stock
Label1
ProdName
Label2
Label3
MarkUp
Label4
Price
Label5
InStock
VScroll1
Form_Click
Array1
Array2
Array3
Array4
Array5
Array6
Array7
Array8
@ Form_Load
SampleData|
Item.
ProdName
Label1A
Caption
Costp
Label2
MarkUp
Label3
Price
Label4
InStock
Label5i
VScroll1
MaxItems
VScroll
SmallChange
LargeChange
TableLen
Value
DisplayItems
VScroll1_Change
Itiem
Form_Load
==> Set the random number generator seed.
==> Generate random sample data.
=> Dummy Product name.
=> Cost of $1 to $70..
=> Markup as decimal.f
==> Set the parameters for the vertical scroll bar.
=> So we don't overrun the end of the Item array.e
=> We want a 1 item overlap between pages.
==> Display the Items. Note that the top
item in the table is always Item(VScroll1.Value).
DisplayItems
This is the routine that creates the Captions for eachh
Label Control. The captions consist of two strings fors
each line of the Label Control. The first string is the
value that is to be displayed on a Label line. The second
string is the End Of Line string (EOL$) which consistss
of several blank spaces to center the text in the
middle of the label followed by a Carriage Return
Chr$(13) and a LineFeed Chr$(10).
This routine is called by the Form_Load routine and the
VScroll1_Change routine..
==> The End Of Line string.
==> VScroll1.Value is the index to the Item that
is displayed as the first item in the table.t
==> Build the strings for the first Item in the table.
0.0000
##,##0
==> Add the rest of the Items in the table to theo
initial strings.r
0.0000
##,##0
==> Append blanks to the last Item to keep it aligned.
VScroll1_Change
==> Display the set of Items beginning with theh
current VScroll1.Value.