I was just wondering if there was any way to validate a listbox into only allowing a letter to be entered once, no matter the case.

I am making a Hangman game and I only want the user to be able to enter a letter once, but I want the listbox to recognise the letters in both upper and lower case and disallow them once theyve already been entered.

The letters are entered through a textbox, if that helps.

Thanks in advance :)

4 Years
Discussion Span
Last Post by leyla

You could try to add it to an array then search the array for it:

Dim lstString As New List(Of String)

'Assuming they have to press a button to submit their letter
Private Sub Button_Click(sender as object, e as eventargs)Handles Button1.Click

   If lstString.BinarySearch(ListBox1.Text.ToLower) <> -1 Then
       MsgBox("You can only enter a letter once!")
   End If
End Sub

You could do that, or create flow layout panel containing the buttons for A-Z and disable the button on click.


Thank you, it works! sort of :)
The message box comes up every time, though. Even if the letter is in the word and it hasnt been entered before. Is there any way to fix this?


My question would then be, how are they entering/chosing from a listbox.

Are you allowing only 1 char, or an entire string?

And why a listbox and not a textbox?

Edited by Begginnerdev


They are just typing in a letter and then pressing guess.
I am allowing only one letter at a time.
And the listbox is used to store the used letters.

Edited by leyla: I fixed something.


Ah, you are storing the values IN the listbox. So the code I posted will be checked every button click, therefore, it will throw a message box(testing values that are already in the listbox)

Is it possible to use a textbox to type, and a listbox to store?


If this is possible, you can just check to see if the item is in the listbox:

 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    If IsDuplicate(TextBox1.Text) = False Then
        MsgBox("You have already guessed this letter.")
    End If
End Sub

Private Function IsDuplicate(ByVal StringIn As String) As Boolean
    'Cycle and Check
    For i = 0 To ListBox1.Items.Count - 1
        If ListBox1.Items(i).ToString.ToLower = StringIn.ToLower Then
            Return True
        End If

    'Return false (None were found)
    Return False
End Function

Edited by Begginnerdev


Yes, that is what I wanted to do, but I was unsure how.


The code from the post above will test the value in the textbox before entering it into the listbox.

This should accomplish what you are wanting, as for the guessing part, you will have to drop your code in.

I hope this helps. :)


Why not have the remaining letters in a dropdown combobox. Once a letter has been guessed you remove it from the combobox. That way there is no need to validate input.

Votes + Comments

Thank you so much Begginnerdev :D
I have not used a drop down combo box as I have all of the code for the listbox instead, but thank you for your suggestion.

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.