![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
В. Мышь; перетаскивание элементов списков
· Создать на форме два текстовых поля, · свойствам 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
|