Я создаю программу hangman на VB, но я застрял на дисплее этикетки, кто-нибудь может мне помочь.
каждый раз, когда я выбираю букву, этикетка становится все короче
Что я уже пробовал:
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnStart.Click 'Enable buttons when clicking start EnableButtons() btnStart.Enabled = False 'Start buttons turn false so that user can stay on the game btnReset.Enabled = True 'Reopen the reset button once the game starts 'Load up the secret word Secret_Word = "CHRISTMAS" LoadLabelDisplay() If Secret_Word = lblChar1.Text Then MessageBox.Show("Congratulations!!You won!!") End If End Sub 'Base on the secret word, display how many dashed lines Sub LoadLabelDisplay() lblChar1.Text = "" Dim LengthOfSecretWord As Integer LengthOfSecretWord = Secret_Word.Length - 1 Dim LetterPosition As Integer For LetterPosition = 0 To LengthOfSecretWord lblChar1.Text = lblChar1.Text & "-" Next End Sub Sub GuessLetter(LetterGuess As String) 'dashes filled with dashes Dim LengthOfSecretWord As Integer LengthOfSecretWord = Secret_Word.Length - 1 tempWord = "" Dim letterPosition As Integer For letterPosition = 0 To LengthOfSecretWord If Secret_Word.Substring(letterPosition, 1) = LetterGuess Then tempWord = tempWord & LetterGuess Else tempWord = tempWord & lblChar1.Text.Substring(letterPosition, 1) End If Next lblChar1.Text = tempWord End Sub
[no name]
Окей.... узнайте, как использовать отладчик для отладки вашего кода. Тогда вы, возможно, сможете дать лучшее описание проблемы, чем "ярлык становится все короче".