home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
hugegrid
/
hugegrid.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-02
|
11KB
|
180 lines
Form1
Form1
Form1*
B_Sort
&Sort
B_Find
&Find
B_Insert
&Insert
B_Del
&Delete
Picture1
B_Quit
&Quit
T_Input
4321.99
Label1
4Enter a number to search column 1 for or to insert.
Grid1
VScroll1
Command2_Click
Form_Click
Grid1
Colwidthb
Form_Load
Command3_Click
Entry
Element
HugeRedim
hArray
HugeDim
HugeErase
SetHugeEl
FillGrid
StartPt
StopPt$
Pointers
pointer5
GetHugeEl
Text)
Vscroll1_ChangeE
Vscroll1
ValueB
GridStart:
Grid2
LastElement
StartRowL
BlankGrid
StopRow
Blank
Start*
StartColf
StopCol
Vscrolln
LargeChange
SmallChange
ElesIf
ArraySorted
B_Find_ClickU
SortedArray
B_Insert_Click
B_PgDn_Click
PgAmt=
Vscroll1_Click
B_PgUp_ClickE
B_Quit_Click
MousePointer
Form1
text1
T_Input
Rowsw
B_Sort_Click
Bottom2
LastArray
array
ElementStr8
GetEl
L_SortStart
L_SortStop
captionJ
L_SortStop_Click^
CurElement
CurEl^
T_Input1
NewElm
Grid3
T_Input_Change
T_Input_GotFocus
SelStart
SelLength
ArraySize
Picture1_Click$
ScrollUp
ScrollDown
LastValue
B_Del_Click
ColSelected
DelRow
CellSelected
Deleted
NumDeleted
DecrLastEl
IgnoreChangeQ
SelStartRow
SelEndRowu
SelStartCol
SelEndCol
Gird1
IncrEl
IncrLastEl
MatchPt
MatchPoint
MatchRow
lastz
Rather than move elements around in an array (or on disk, if you use these
routines with a random access file instead), we use pointers to the recordss
instead.
Again, rather than move data around when when an element is deleted,
we keep track of deleted elements and reuse them when adding new elements.
Of course, when saving to disk, you would ignore the deleted elements.
pointer number of the first element on the grids
pointer number of the last element found on a search
number of elements in the Array - 5000, in this examplel
flag to show if the Huge Array is sorted.n
number of lines to page up and down by
variables used in the sort routine.m
last value selected on scroll barr
flag to allow changing Vscroll1.value without executingt
Vscroll1.Change
Grid row number where matching item is after a Finda
Copyright 1991 Nelson Ford, Public (software) Libraryy
Form_Load
amount of data we are going to stuff into the array
Set width of each grid column:
Set up Scroll bar values:9
Set up HugeArray (requires Hugearr.dll in PATH)
Error dimensioning array:
fill array with dummy data
333333
display last 10 entries in the Grid:
FillGrid
Vscroll1_Change
See "Change Property" in the VB Manual.
up arrow clicked: scroll down
down arrow clicked: scroll up
clicked above handle: page down
clicked below handle: page upc
moved handle
B_Find_Click
Nothing entered.
Debug.Print l; u, T_Input.Text, Entry.a1
B_Insert_Click
Out of room.
Enter something in the Text Box.
If a match was not found, the contents of Grid.Row=MatchRow, .Col=0
will be the closest match value.
Test to see if the new value is < or => the contents of that cell:
Error in inserting data.
B_Quit_Click
B_Sort_Click
GetEl
T_Input_GotFocus
Picture1_Click
Public (software) Library is the most extensive collection of pd/shareware available.
We have a large collection of routines for all languages, including VB.
For a catalog, call 800-242-4PsL or write PsL, P.O.Box 35705, Houston, TX 77235-5705."
ScrollUp
ScrollDown
B_Del_Click
Cell not selected.
array element number
Delete entire row?
just delete cell, not the entire entry
Error deleting data.
Copyright 1991 Nelson Ford, Public (software) Libraryy
DecrLastEl
takes care of all the ramifications of decreasing LastElemente
IncrLastEl
takes care of all the ramifications of increasing LastElementc