home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
listdrag
/
listdrag.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-07-17
|
4KB
|
104 lines
Form1
ListDrag Demo
Form1-
Label1
List1
Courier
Label2
Hold down Ctrl key and use Up and Down arrow keys to move a line in the listbox. Or press Ctrl and drag a line with the mouse.
StartY
MoveLine_
Item1
TRUEy
FALSE
Form_Load
List1
ListIndex
ListSwap
Line1
Line2I
ListBox
Tempx
List1_MouseDown&
Button
Shift7
CtrlDown
RowSize
List1_MouseMovep
Label1B
Caption
ButtonDown
ListCount
List1_MouseUp.
List1_KeyUp
KeyCode
List1_KeyDown
UpPressed
KEY_UP
DownPressed
KEY_DOWN\
Height
Item2
List1_Click
List1_DblClick
MoveNow
Label1_Click
Label1_DragDrop
Source8
Label1_DragOver
State
Label1_MouseDown~
Label1_MouseMove
Label1_Top
Label1_Left
Label1_Width`
Label1_HeightV
Width
List1_DragDrop
Label
List1_DragOver
Enabled
Label2
FontSize
Offset
Form_MouseUp
WriteArray
TempArray
First
IntSwap
Array
SwapInt
TempInt
MoveRow
Thenase
StaCase
screen
activecontrol
LISTSWAP.MAK a demonstration Visual Basic program to show
how single items in a list box can be reordered using
Ctrl-UpArrow/DownArrow or by pressing Ctrl and dragging
a list item with the mouse.
Sue Mosher, 202-736-1136, CIS 75140,543 r
Public domain
values: -1 for UP move,
1 for DOWN, 0 for none
line to be moved
Form_Load
Item "
ListSwap
List1_MouseDown
get item to be moved
move label control to mouse position and starts
dragging it
List1_KeyUp
List1_KeyDown
set item to be moved
List1_DragDrop
List1_DragOver
if leaving list, turn off
drag & force drop
if within move range)
SwapInt
MoveRow
if within 1 row