图片不会变得可见

所以今天在我的计算机编程课上，我们创建了一个名为CaseStudy的项目。我看到了一种让节目具有更多重播价值的方法。我决定将代码和界面变形为一个Hang子手游戏。我有肢体出现，但只有在消息框上单击确定后。图片不会变得可见

我想知道如果有人有办法让这些肢体实时出现。

这里是重要的代码：

Dim SECRET_WORD As String = newSecretWord 
     Const FLAG As Char = "!" 
     Const GUESS_PROMPT As String = "Enter a letter or " & FLAG & " to guess word:" 
     Dim numGuesses As Integer = 0 
     Dim letterGuess As Char 
     Dim wordGuess As String 
     Dim tempWord As String 
     Dim endGame As Boolean 

     Dim wordGuessedSoFar As String = "" 
     Dim lenght As Integer = SECRET_WORD.Length 
     wordGuessedSoFar = wordGuessedSoFar.PadLeft(lenght, "_") 
     Me.lblSecretWord.Text = wordGuessedSoFar 

     Dim tempLetterGuess = InputBox(GUESS_PROMPT, Me.Text) 
     If tempLetterGuess = Nothing Then 
      endGame = True 
     Else 
      letterGuess = tempLetterGuess 
     End If 
     Do While letterGuess <> FLAG And wordGuessedSoFar <> SECRET_WORD And Not endGame 
      numGuesses += 1 
      For letterPos As Integer = 0 To SECRET_WORD.Length - 1 
       If SECRET_WORD.Chars(letterPos) = Char.ToUpper(letterGuess) Then 
        tempWord = wordGuessedSoFar.Remove(letterPos, 1) 
        wordGuessedSoFar = tempWord.Insert(letterPos, Char.ToUpper(letterGuess)) 
        Me.lblSecretWord.Text = wordGuessedSoFar 


       End If 
      Next letterPos 


      If wordGuessedSoFar <> SECRET_WORD Then 
       tempLetterGuess = InputBox(GUESS_PROMPT, Me.Text) 
       If tempLetterGuess = Nothing Then 
        endGame = True 
       Else 
        letterGuess = tempLetterGuess 
       End If 
      End If 
     Loop 


      If wordGuessedSoFar = SECRET_WORD Then 
      MessageBox.Show("You guessed it in " & numGuesses & " guesses!") 
     ElseIf letterGuess = FLAG Then 
      wordGuess = InputBox("Enter a word: ", Me.Text) 
      If wordGuess.ToUpper = SECRET_WORD Then 
       MessageBox.Show("You guessed it in " & numGuesses & " guesses!") 
       Me.lblSecretWord.Text = SECRET_WORD 
      Else 
       MessageBox.Show("Sorry, you lose.") 
      End If 
     Else 
      MessageBox.Show("Game over.") 
      lblSecretWord.Text = Nothing 
     End If 

     Dim place As Integer = SECRET_WORD.Length - 1 

     If tempLetterGuess <> SECRET_WORD.Chars(place) Then 
      numWrong += 1 
     End If 

     If numWrong = 1 Then 
      picHead.Visible = True 
     End If 
     If numWrong = 2 Then 
      picBody.Visible = True 
     End If 
    End Sub 


End Class

我可以采取任何其他的照片，如果你愿意的话。

来源

2017-02-18 nhammmond919

您没有任何*图片*，让您明明白白不能让*图片*显示。你能更清楚地问你在问什么吗？ –

您可以使用表单上的标签而不是MessageBox – Slai

代码不是[tag：vbscript]。 – Lankymart

如果我正确地理解你，你希望在用户看到消息之前显示你的“照片”。如果是这样，你只需要你的MessageBox前，只是后InputBox移动下面的代码到一个区域：在你的代码

Dim place As Integer = SECRET_WORD.Length - 1 

    If tempLetterGuess <> SECRET_WORD.Chars(place) Then 
     numWrong += 1 
    End If 

    If numWrong = 1 Then 
     picHead.Visible = True 
    End If 
    If numWrong = 2 Then 
     picBody.Visible = True 
    End If

来源

2017-02-18 04:11:08

图片不会变得可见

回答

相关问题