home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
grid_inp
/
gridinpt.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-11-14
|
6KB
|
234 lines
Form1
Grid Routines
Form1,
Label5
8Use Ctrl-Up, Ctrl-Down, Ctrl-Right, Ctrl-Left to Scroll.
Grid1
Label1
Label3
Label2
Label4
Command1
&Del Row
Command1
&Add Row
Command1
&Clear Grid
Command1
&To Clipbd
Command1
&Save Grid
Command1
&Load Grid
Command1
&Quit
Text1
ControlhWnd
BringWindowToTop
hWndG
SetWindowPos
hWndInsertAfter
wFlags
GetNextWindow
wFlagX
IsWindowVisiblex
GetActiveWindow
GetParent
SetParentC
hWndChild2
hWndNewParent
GetWindowLong
nIndex
SetWindowLong
dwNewLong
WS_CLIPSIBLINGS
SWP_NOSIZE
SWP_NOMOVE
SWP_NOZORDER
SWP_NOREDRAW
SWP_NOACTIVATE
SWP_DRAWFRAME
SWP_SHOWWINDOWi
SWP_HIDEWINDOW
SWP_NOCOPYBITSd
SWP_NOREPOSITIONK
GW_HWNDLAST
GW_HWNDNEXT
GW_HWNDPREV
GWL_WNDPROC
GWW_HINSTANCEj
GWW_HWNDPARENT
GWW_ID
GWL_STYLE
GWL_EXSTYLE
Truez
Falseq
XStart
YStart'
OKToMove1)
OKToMove2
OKToMove3
OKToMove4y
OKToMove6
WindowStack
NumOfControls
hWndWindowToMoveo
NeedsFixing
GW_HWNDFIRST
GW_OWNER
GW_CHILDl
SetClipSibling
Parentv
GetWindow
SetClipSiblingBit
Style
WS_CLIPSIBLING
Form_Clickw
Form_Loadf
Form1
Screen4
Width
Height~
GetWindowsDirectoryV
lpBuffer
nSize
WinDir
ChessBmp
OF_EXIST
OpenFile/
lpFileName
lpReOpenBuff
OFSTRUCT
wStyle
Buffer
ChessPicH
Picture
MousePointer
ChessPic_Click
ChessPic_MouseDownV
Button
Shift
OkToMoveChessPic
ChessPic_MouseMove
ChessHelpCmdBut
Visible
FormParenti
ControlParentE
ParentType
AnyControl
NestedSibling
SetClipSiblingBits^
hWndParentj
WindowPic
Picture2_Click
Picture2_MouseDownE
OkToMovePicture2
Picture2_MouseMovef
Picture2
Command1
WindowPic_Click
ChessHelpCmdBut_Clickq
List1_Click?
VegList
MeatListz
FruitList
PastryList
TopListBoxU
PrecedingListBox
MeatList_Click
MeatList_GotFocus
FruitList_Click0
FruitList_GotFocus@
PastryList_Click%
VegList_Click
VegList_GotFocus
FillLists
PastryList_GotFocus
ClickedToGetFocus
ShoppingList
ListIndex
BringToTop
ThisList
InsertAfter
ClickedToSetFocus
OkToMoveWindowPic$
GetWindowNext
PyramidBmp:
PyramidPic
Pyramid
PyramidPic_ClickU
Index
PyramidPic_MouseDown
Pic4'
OkToMovePyramidPicQ
PyramidPic_MouseMove
Label3_Click\
FindLabel_Clicko
FindLabel_MouseDown
OkToMoveFindPic
FindLabel_MouseMove
FindPic
FindTitle_Click;
FindTitle_MouseDown
FindTitle_MouseMove
Timer1_Timer
hwndFindPic
Timer1
Enabled
Purpose
program
demonstrate.
Command1_Click}
Grid1
colheight
Text1
Text1_Change
Text1_KeyDown;
KeyCode
MoveCell
ColWidth)
GetFocusa
RowHeightm
Label3
Label4
Caption
Grid1_Click
VScroll1_Change
toprowH
Grid1_KeyUpU
DelRow1
InsertRow
ClearGrid
Grid2Clip
SaveGrid
LoadGrid
Cancel
SelStartCol
SelEndCol
SelStartRow
SelEndRow
Text1_GotFocus
SelStart
SelLength
Copyright
Nelson
Public
software
Library
Grid Scrolling And Control Program
Copyright 1991 Nelson Ford, Public (software) Library
For documentation and copyright license,
' see the file Grid.Bas
The code in this module which allows overlapping controlsN
was developed by Keith Funkk
ctlhwnd.dll
SetClipSiblingBit
Form_Load
get hWnd for the controls:
Text1_KeyDown
If keycode <> 17 Then Debug.Print keycodeo
Command1_Click
GridTest
GridTest$
keep the Grid highlight under the Text box: