Naplnění ListBoxu1

Public PodstatnaSlova(13) As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PodstatnaSlova(0) = "Jméno"
        PodstatnaSlova(1) = "Příjmení"
        PodstatnaSlova(2) = "Škola"
        PodstatnaSlova(3) = "Země"
        PodstatnaSlova(4) = "Les"
        PodstatnaSlova(5) = "Pes"
        PodstatnaSlova(6) = "Dům"
        PodstatnaSlova(7) = "Město"
        PodstatnaSlova(8) = "Nic"
        PodstatnaSlova(9) = "Muž"
        PodstatnaSlova(10) = "Předseda"
        PodstatnaSlova(11) = "Žena"
        PodstatnaSlova(12) = "Česko"
        PodstatnaSlova(13) = "Kost"
    End Sub

    Private Sub VlozitBTN_Click(sender As Object, e As EventArgs) Handles VlozitBTN.Click

        For index = 0 To 13
            LB1.Items.Add(PodstatnaSlova(index))
        Next

    End Sub

End Class

Neformátovaný

Přidáno: 19.3.2020
Expirace: Neuvedeno

Autor: Dominik Krejčí

Aktivity