В. Мышь; перетаскивание элементов списков
· Создать на форме два текстовых поля, · свойствам DragIcon обoих полей списка присвоить одно из значенией::\Program File\Microsoft Visual Studio\Common\Graphics\Icons\DragDrop\Drag1pg.ico,: \Drag3pg.ico,: \Drop1pg.ico, · ввести код, данный ниже, · стартовать проект, маркировать элементы первого поля списка, перетаскивать их поочерeдно во второе поле списка и наоборот, рис. 5.8 Пояснения: процедура Form_Load () обеспечивает создание элементов списка первого поля списка. Две процедуры Private Sub lstK_DragDrop(Source As Control, X As Single, Y As Single) обеспечивают возможность перетаскивания элемента списка в другое поле списка и удаление его из первого поля. В процедурах: Private Sub lstК_MouseDown(Button As Integer, Shift As Integer,_X As Single, Y As Single),см. ниже, используется параметр 1 ("ListК.Drag 1").
Рис. 5.8. Мышь; перетаскивание элементов списков Private Sub Form_Load()lst1.AddItem "Buch"lst1.AddItem "Heft"lst1.AddItem "Bleistift"End SubPrivate Sub lst1_DragDrop(Source As Control, X As Single, Y As Single)If Source = lst2 Thenlst1.AddItem lst2lst2.RemoveItem lst2.ListIndexEnd IfEnd SubPrivate Sub lst1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)lst1.Drag 1End SubPrivate Sub lst2_DragDrop(Source As Control, X As Single, Y As Single)If Source = lst1 Thenlst2.AddItem lst1lst1.RemoveItem lst1.ListIndexEnd IfEnd SubPrivate Sub lst2_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)lst2.Drag 1End Sub
|
