В. Мышь; перетаскивание элементов списков

Date: 2015-10-07; view: 367.

· Создать на форме два текстовых поля,

· свойствам DragIcon обoих полей списка присвоить одно из значенией: :\Program File\Microsoft Visual Studio\Common\Graphics\Icons\DragDrop\Drag1pg.ico, : \Drag3pg.ico, : \Drop1pg.ico,

· ввести код, данный ниже,

· стартовать проект, маркировать элементы первого поля списка, перетаскивать их поочерeдно во второе поле списка и наоборот,

Пояснения: процедура 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 Sub Private Sub lst1_DragDrop(Source As Control, X As Single, Y As Single)If Source = lst2 Thenlst1.AddItem lst2lst2.RemoveItem lst2.ListIndexEnd IfEnd Sub Private Sub lst1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)lst1.Drag 1End Sub Private Sub lst2_DragDrop(Source As Control, X As Single, Y As Single)If Source = lst1 Thenlst2.AddItem lst1lst1.RemoveItem lst1.ListIndexEnd IfEnd Sub Private Sub lst2_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)lst2.Drag 1End Sub

<== previous lecture	\|	next lecture ==>
А. Мышь; некоторые события	\|	Практическая работа 39. Клавиатура; обработка событий KeyPress, KeyDown

lektsiopedia.org - 2013 год. | Page generation: 0.002 s.