Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / SCRLTEST / SCRTEST.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-26 | 15.7 KB | 400 lines

FRMSCR Form1 Form15 Command1 E&xit List1 VScroll1 PQPQZ Grid1_Click Form_Load Grid1H ColWidth Test2' databases Form_Unload Cancel Test2Var table Screen= MousePointer MFile MTable XFieldb MFileTest2 Mcntl Grid1_SelChange Grid1_DragDropw Source/ Control Grid1_DragOver+ State SelEndCol SelStartCol SelEndRow SelStartRowV HighLight Grid1_MouseUp Button5 Shift Grid1SelStartCol lEndCol Form_MouseUp VScroll1_Changej VScroll1 Value VScroll1_Scroll List1 Form_KeyPress KeyAscii Form_LinkOpen Index RecordCountb DispStatL LoadListY Bookmark ClearList Bookmarkable" Dtringb Stringr} List1_Click ListIndex= List1_DblClick List1_KeyPress VScroll1_KeyPressU PageDowno PageUp Previous PageDirect NoMatch@ Command1_Click TTablew TFile@ MIndexG KeyFind MxK2L Debig VScroll1_DragDrop# VScroll1_DragOver VScroll1_GotFocus VScroll1_KeyDownp KeyCodeU VScroll1_KeyUp VScroll1_LostFocus\ OpenDb CloseDb Form_GotFocus VScroll Master MLevCL MLevP Change MListClick MKeyPRess} SListClick SKeyPress SListDbClick SVScrollChange SVScrollScrollc SListDblClick SScrollChange SScollScroll SVScollScroll GoDown4 GoEnd GoHomew GoPageDown GoPageUp GoDirect GoKey MovePrev Temp' GoLotsDown GoLotsUp MWin? MWin11 MWinPF MWinI MWin2P MWin3 MWin4 MWin5 MPagI GoPageUp1 GoPageUp10 GoSelect GoSelected: Dubug FrmScr VScro Record EndSubP Databasep Table General purpose loop counter First Recorde Top Recorde Bottom Record Last Record Number of Records Curr Rec Relative Index Temp Index Movement reqd ! Previous Movement ? Current Index-Open Pointer- KeyPress Code Search Key - Character to Add-OnA Search Key - Fully Assemblede Event Level Counter Event Identity Array Event Indent Padding Command1_Click Form_Load Enable focus on Scroll-Bar during Form-Load (prevents error due to setting size of scroll bar) OpenDb Open the Database AFile.mdb Open the Data Table ATable Open the RecNo Index AIndex1 Set Index Number Var Initialise Counters First RecordF Top Record MxC = MxF ' Current Record Index of Current Record Number of Records Bottom Record Last Record Find the last record bookmark for jump-to-End 00000 Debug.Print "|" + MxK + "|"V If MTable.NoMatch Then 'Debug.Print "*** No Match" 'Debug.Print "*** Found O.K." ' Display the Record/FieldK 'Debug.Print Mtable("AField") For Mcnt = 1 To 9 ' Next Record MTable.MovePrevious Next Mcnt MxH = MTable.Bookmark ' Display the Record/Fieldd 'Debug.Print Mtable("AField") End If Load The Event Padding Load the ListBoxu Set the Previous Scroll Value to Initial Value Set the Scroll-Bar to A Sensible Value Debug.Clsg Debug.Print " " Debug.Print " " Debug.Print " Debug.Print " "= Debug.Print " "= Form_Unload Close the Table Close the Database GoDirect This code is to go directly to a relative position in the file when the User moves the Thumb.= To keep the speed up it doesn't read through theo file but cheats by jumping directly to a specific record, this will only work reliably on a fixed read-only file because the record-number entry in the file can only be maintained on a 'batch' basis Debug.Print MLevP(MLev) + "<< Go-Direct >>"e Debug.Print MLevP(MLev + 1) + "== V:", VScroll1.Value, "MxO:", MxO Set the search-key to nulln Store the old comparison valueo Reset Index If Required (after a Keyed-Search)" AIndex1 Formulate the numeric search key !e 00000 Find The Record Debug.Print MLevP(MLev + 1) + "== No Match :", MxK Debug.Print MLevP(MLev + 1) + "== Found O.K.", MxK Set the Listbox index to Topr Store the Top bookmarkr Reload the Listbox Debug.Print MLevP(MLev) + ">> Go-Direct <<"r GoDown Increment Index Pointer * This triggers a Listbox Click Event ! Set ListBox Index GoEnd Debug.Print MLevP(MLev) + "<< GoEnd >>"S Move To Last Skip backwards 9 records' (Analogous to Skip-1 in dbase)N Set New Top Bookmark Reload the Listbox Debug.Print MLevP(MLev) + ">> GoEnd <<"S GoHome Debug.Print MLevP(MLev) + "<< GoHome >>" Set the Top-Bookmark to First Set the Listbox Index to Top (0) Reload the Listboxl Debug.Print MLevP(MLev) + ">> GoHome <<" GoKey Debug.Print MLevP(MLev) + "<< Go-Key >>" Add the new character onto the end of the search key) Set the index to Searchkey if set to Rec-Number AIndex2 Do a Seek (use >= so a perfect match is not required) Debug.Print MLevP(MLev + 1) + "== No Match", "|" + MxK2 + "|" Debug.Print MLevP(MLev + 1) + "== Silly Match", "|" + MxK2 + "|" Debug.Print MLevP(MLev + 1) + "== Found O.K.", "|" + MxK2 + "|" + MTable("ARecNo") + "|" + MTable("Afield") + "|" Reset The Scroll Bar to the right placep ARecNo Keep the old-scroll value up-to-date Store the Top-Record bookmark Set the listbox index to topk Load the ListBoxs Debug.Print MLevP(MLev) + ">> Go-Key <<" GoLotsDown * this routine should never be called Debug.Print MLevP(MLev) + "<< Go-Lots-Down >>" !! Go-Lots-Down !! Debug.Print MLevP(MLev) + ">> Go-Lots-Down <<" GoLotsUp * this routine should never be called Debug.Print MLevP(MLev) + "<< Go-Lots-Up >>" !! Go-Lots-Up !! Debug.Print MLevP(MLev) + ">> Go-Lots-Up <<" GoPageDown Set Top to bottom bookmark Set Listbox index pointer Load the Listbox' GoPageUp1 Debug.Print MLevP(MLev) + "<< Go-Page-Up-1 >>" Move to Top Skip Backwards for 10 records (or BOF)) Skip-1 (g)s Protect from Bof errors Skip (g)g Store New Top Set index position Load ListBox Debug.Print MLevP(MLev) + "<< Go-Page-Up-1 >>" GoPageUp10 Move to 'Top' Recordw Skip Backwards for 10 records (or BOF)e Prevent Bof errors Reset Pointers Load the ListBoxr GoSelect Code to branch to other actions goes here Triggered by <CR> or <Dbl-Click>g == Item Selected Decrement Index Pointer * This triggers a Listbox Click Event ! Set Listbox Index List1_Click Debug.Print " "v Debug.Print MLevP(MLev) + "<< List-Click >>" Debug.Print MLevP(MLev) + ">> List-Click <<" List1_DblClick GoSelect Debug.Print " " Debug.Print MLevP(MLev) + "<< List-Dbl-Click >>" Debug.Print MLevP(MLev) + ">> List-Dbl-Click <<" List1_KeyPress MLev = MLev + 1 Debug.Print MLevP(MLev) + "<< List-KeyPress >>" MxKN = KeyAsciiL Master Debug.Print MLevP(MLev) + ">> List-KeyPress <<" MLev = MLev - 1v LoadList Clear ListBox Move To Top Read thru records Afield Store to ListBox Next Record (Skip) Increment Counter Prevent Eof errors Store the 'Bottom' Record (for Page-downs) Set Listbox Index to Pointero Master This convoluted code is needed because keeping the Listbox and V-Scroll in Synch triggers change events and can result in an endless loop if not filtered out Debug.Print MLevP(MLev + 1) + "<< Master >>" Debug.Print MLevP(MLev + 2) + "== Event Ignored " + Str$(MLev) + " " + MLevC(MLev) Debug.Print MLevP(MLev + 2) + "== Event " + Str$(MLev) + " " + MLevC(MLev) Listclick event Debug.Print MLevP(MLev + 2) + "== ReFocus On VScroll"o Refocus on VScrolli Keypress eventt Dbl-Click event Debug.Print MLevP(MLev + 2) + "== ReFocus On VScroll"o Refocus on VScrolli Scroll-Change event Scroll-Scroll event Debug.Print MLevP(MLev + 1) + ">> Master <<" SKeyPress Detect <CR> Debug.Print " == Item Selected", List1.Text Convert to Upper-case Debug.Print "==", MxKN, MxK1 SListClick Debug.Print MLevP(MLev + 2) + "<< SListClick >>" Debug.Print MLevP(MLev + 2) + "== No-Change ==" Debug.Print MLevP(MLev + 2) + "== Change ==", MxI, List1.ListIndex Keep the Scroll-bar in Synch * This triggers a Scroll-Change Event ! Store the old comparison value Store the index pointer Reset the search-key to null Debug.Print MLevP(MLev + 2) + ">> SListClick <<" SListDbClick Listbox Double-Click Eventa SVScrollChange Debug.Print MLevP(MLev) + "<< SVScrollChange >>" Debug.Print MLevP(MLev + 1) + "== V:", VScroll1.Value, "MxO:", MxO Set the search-key to nulll Debug.Print MLevP(MLev + 1) + "== Go-Home" Debug.Print MLevP(MLev + 1) + "== Go-End" Determine Net Movemente Compare current value to old-valuee Down-Requested' Debug.Print MLevP(MLev + 1) + "== Down-Requested"t Debug.Print MLevP(MLev + 1) + "== Down-Achieved" Down-Achieved Debug.Print MLevP(MLev + 1) + "== Page-Down-Instead" Page-Down-Instead Up-Requested' Debug.Print MLevP(MLev + 1) + "== Up-Requested"t Debug.Print MLevP(MLev + 1) + "== Up-Achieved" Up-Achieved Debug.Print MLevP(MLev + 1) + "== Page-Up-Instead" Page-Up-Instead Page-Down Debug.Print MLevP(MLev + 1) + "== Page-Down-Requested" Page-Up Debug.Print MLevP(MLev + 1) + "== Page-Up-Requested" Lots-Down Debug.Print MLevP(MLev + 1) + "== Lots-Down-Requested" Lots-Up Debug.Print MLevP(MLev + 1) + "== Lots-Up-Requested" Page-Up Near-Top ?- Page-Down Near-End ?D Store Old Value - to compare next time around Debug.Print MLevP(MLev) + ">> SVScrollChange <<" SVScrollScroll User picked up the Thumb and moved it VScroll1_Change Debug.Print MLevP(MLev) + "<< VScroll-Change >>" Debug.Print MLevP(MLev) + ">> VScroll-Change <<" VScroll1_KeyPress Debug.Print MLevP(MLev) + "<< List-KeyPress >>"i Debug.Print MLevP(MLev) + ">> List-KeyPress <<"i VScroll1_Scroll Debug.Print MLevP(MLev) + "<< VScroll-Scroll >>" Debug.Print MLevP(MLev) + ">> VScroll-Scroll <<"