home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
lb_msgs
/
lb_msgs.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-09-01
|
7KB
|
160 lines
LB_Msgs
ListBox Messages
Form1
theList
TopIndex
GetTopIndex
/SendMessage(GetFocus(), LB_GETTOPINDEX, 0%, 0&)
GetTextLen
GetTextLen
<SendMessage(GetFocus(), LB_GETTEXTLEN, ByVal listEntry%, 0&)
SetTopIndex
SetTopIndex
9SendMessage(GetFocus(), LB_SETTOPINDEX, ByVal Index%, 0&)
ResetContent
ResetContent
0SendMessage(GetFocus(), LB_RESETCONTENT, 0%, 0&)
FindString
FindString
HSendMessage(GetFocus(), LB_FINDSTRING, ByVal startAt%, ByVal theString$)
GetCurSel
GetCurSel
-SendMessage(GetFocus(), LB_GETCURSEL, 0%, 0&)
FillErUp
Fill List Box
:SendMessage(GetFocus(), LB_ADDSTRING, 0, ByVal theString$)
SetCurSel
SetCurSel
;SendMessage(GetFocus(), LB_SETCURSEL, ByVal listEntry%, 0&)
SelectString
SelectString
MSendMessage(GetFocus(), LB_SELECTSTRING, ByVal startingAt%, ByVal theString$)
QuitThis
Seen it all
GetDir
Get DIR
<SendMessage(GetFocus(), LB_DIR, ByVal DOS_attr&, filespecs$)
More...
Command1_Click
lstFindEntry
resultA
SendMessage
GetFocusL
LB_GETTOPINDEX
frmListBox
CurrentX
TopIndex[
CurrentY
Height
theList
Form_Click
TopIndex_Click*
theList_Click
@ Form_Load
LB_msgs
FindString_Click
LB_FINDSTRING
FindString
GetCurSel_Click^
GetCurSel
LB_GETCURSEL
SelectString_Clickm
LB_SELECTSTRINGO
SelectString7
SetCurSel_Click
LB_SETCURSEL
SetCurSel
SetTopIndex_ClickJ
LB_SETTOPINDEX
SetTopIndex
GetTextLen_Click
LB_GETTEXTLEN
GetTextLen3
QuitThis_Click
ResetContent_Click6
LB_RESETCONTENTj
ResetContent"
FillErUp_Clicko
LB_ADDSTRING
Form_Paint
loading.
startingAt
ListCount
showResult
GetDir_Click
LB_DIRA
seeWhat
GetDir
DOSattr
DOS_attr
filespecs
LB_function
Label1
Caption
LB_functions
Form_Unload
Cancel_
Unload
More_Click
Visible
False
Width
QuitThis
FillErUp$
TopIndex_Click
returns the index of the top (= first visible) item
FindString_Click
finds a string (MS call it "prefix") but doesn't select ita
(see LB_SELECTSTRING for find-and-select)
the search string must be terminated by Chr$(0)
"startingAt" selects the entry at which the search starts
(wraps around if necessary). "-1" starts at the top..
GetCurSel_Click
returns the index number of the currently selectedd
list box entry or LB_ERR if none selected
SelectString_Click
finds a search string and selects the list box entry (unlike LB_FINDSTRING)..
the search string must be terminated by Chr$(0). "startingAt"
sets the entry where searching should start (wraps around iff
necessary). "-1" starts at the top.
SetCurSel_Click
sets current selectionn
random nth entry
SetTopIndex_Click
sets current top (= visible) entry in list boxx
random nth entry
GetTextLen_Click
gets the length in characters of an entry in the list box
(here: length of currently selected entry found byy
LB_GETCURSEL).o
QuitThis_Click
self-documenting, don't you think?
ResetContent_Click
clear list box contents. Much faster than VBB
FillErUp_Click
fill the list box with some predictable garbage
text strings must be terminated by Chr$(0)r
we'll display results on the formi
result& at this point contains the index number ofi
the just added item (in contrast to theList.AddItem)d
give other tasks some breathing space too, and see
the list box fill up (if your PC is slow enough...),
showResult
GetDir_Click
c:\*.*
filespec string; anything valid in a DIR command
DOS attributes as follows (combine as needed using OR):R
0 = read/write files, no add'l attributes
&H0001 = read-only files
&H0002 = hidden filesl
&H0004 = system filesl
&H0010 = subdirectories
&H0020 = archivest
&H4000 = drives
&H8000 = exclusive bit. If set, only files of theI
specified type are listed.t
result& = number of items minus onea
Form_Load
Form_Unload
More_Click