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