Kód: Vybrať všetko

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text sa zhoduje s nejakým textom v ListBox1 Then 'POTREBUJEM TENTO RIADOK
            MsgBox("V databáze sa už nachádza položka so zadaným menom!", MsgBoxStyle.Exclamation, "Chyba!")
        End If
    End Sub

Kód: Vybrať všetko

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  For x = 0 To ListBox1.ListCount - 1
    For y = 0 To ListBox1.ColumnCount - 1
        If ListBox1.List(x, y) = TextBox1.Text Then
                MsgBox("V databáze sa už nachádza položka so zadaným menom!", MsgBoxStyle.Exclamation, "Chyba!")
        End If
    Next y
  Next x 
End Sub

Kód: Vybrať všetko

If ListBox1.Items.Contains(TextBox1.Text) Then MsgBox("BLABLABLA")