Перечисляет манипуляции с боксом при нажатии кнопки в VB 6.0

Question

Здравствуйте, я выполняю небольшое ИТ-задание, в котором мы должны создать систему заимствования типов библиотеки баз данных, и у меня есть два списка: в списке 1 перечислены все игры, и вы можете позаимствовать их, а в другой - гдеигры переходят после того, как вы нажимаете кнопку, которая переносит их в список 2.

Также, как я могу добавить кнопку, которая при нажатии добавляет новый элемент (игру) в первый список, и вы можете заимствовать этоодин два

Спасибо за вашу помощь.

Answer 1

Предполагая два списка (listbox1 и listbox2) и командную кнопку (cmd1) в форме VB 6 с именем Form1

private sub Form_Load()
    listbox1.AddItem "game 1"
    listbox1.AddItem "game 2"
    listbox1.AddItem "game 3"
end sub
Private Sub cmd1_click ()
    If listbox1.listindex >-1 then
        'Add the selected item from listbox1 to list box 2        
        listbox2.AddItem listbox1.List(listbox1.ListIndex)
        'Remove selected item from  listbox1
        listbox1.removeitem(listbox1.listindex)
    End If
End Sub