Page 94 - 4788

Рисунок 12.2 – Результат роботи програми

Програмний код:
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem "aprire"
List1.AddItem "ascoltare"
List1.AddItem "bere"
List1.AddItem "cucinare"
List1.AddItem "dormire"
List1.AddItem "pagare"
List1.AddItem "scrivere"
End Sub
Private Sub List1_DblClick()
Select Case List1.ListIndex
Case 0
Def = "відкрити"
Case 1
Def = "слухати"
Case 2
Def = "пити"
Case 3
Def = "готувати"

92