주사위 버튼으로 주사위를 굴릴 수 없습니까?

Question

방금이 응용 프로그램에 대한 내 코드를 일부 변경했지만 어떤 이유로 여전히 작동하지 않습니다. 내 재시작 버튼이 양식을 다시 시작하지 않고 점수 수치가 표시되지 않고 결과 결과가 표시되지 않고 주사위가 굴러 가지 않습니다. https://imageshack.com/i/kpdOTIAQp

기본적으로 인간의 플레이어가 VB의 난수 발생기에 내장을 사용하여 컴퓨터에 재생 : 여기

내 GUI에 대한 링크입니다. 게임의 목적은 상대방이 1에서 최대 99의 일치 형식 (1, 3, 5, 7, 9, 11 등의 최상의 홀수)으로 게임에서 이기기 위해 상대방보다 높은 점수를 갖는 것입니다. 13 등).

문제는 버튼을 클릭 할 때 주사위 이미지가 나타나지 않는다는 것입니다.

Public Class DiceBattleForm 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles ExitButton.Click 
     Dim RESPONSE As MsgBoxResult 
     RESPONSE = MsgBox("Do you want to exit?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) 
     If RESPONSE = MsgBoxResult.Yes Then 
      Me.Dispose() 
     End If 
    End Sub 

    Private Sub RollButton_Click(sender As Object, e As EventArgs) Handles RollButton.Click 
     If GameTextBox.Text <= "0" Then 
      MsgBox("Number of Games > 0", MsgBoxStyle.Critical) 
      Application.Restart() 
     End If 

     If GameTextBox.Text > "0" Then 
      GameTextBox = Convert.ToInt32(GameTextBox.Text) 
     End If 


     DisplayDie(PCDice1) 
     DisplayDie(PCDice2) 
     DisplayDie(PCDice3) 

     DisplayDie(YouDice1) 
     DisplayDie(YouDice2) 
     DisplayDie(YouDice3) 
    End Sub 

    Sub DisplayDie(diePictureBox As PictureBox) 
     'GENERATE random integer in range 1 to 6 
     Dim face As Integer = randomObject.Next(1, 7) 

     'retrieve specific die image from resources 
     Dim pictureResource = My.Resources.ResourceManager.GetObject(String.Format("die{0}", face)) 

     'Convert pictureResource to type Image and display in ImageBox 
     diePictureBox.Image = CType(pictureResource, Image) 
    End Sub ' DisplaDie 


    Private Sub GameTextBox_Validating(sender As Object, e As EventArgs) Handles GameTextBox.TextChanged 
     If GameTextBox.Text > "0" Then 
      Do 
       MsgBox(GameTextBox.Text + " round(s) will be played enjoy!") 
      Loop While GameTextBox.Text = "STOP" 
     End If 
     GameTextBox.Enabled = False 
    End Sub 

    Private Sub RestartButton_Click(sender As Object, e As EventArgs) Handles RestartButton.Click 
     ' Reset or clear any controls (recommended) 
     DiceBattleForm.Clear() 
     ' NOT recommended: 
     ' Application.Restart() 
    End Sub 
End Class 

Answer 1

아니라, 다시 시작 버튼,

대신 Form1.Clear()는 텍스트 상자를 취소해야하는에

TextBox1.Clear() 
TextBox2.Clear() 
TextBox3.Clear() 
TextBox4.Clear() 

등을 시도하고에있다. 그러나 실제로, 나는 무엇이 잘못되었는지 보지 않는다. Application.Restart()

Answer 2

나는 약간 다르게 할 것이다. 주사위 이미지를 리소스에서로드하는 대신 imagelist에서로드하여 색인 (Random 결과로 표시)이 이미지를 찾는 데 필요합니다. 리소스와 리소스를 함께 사용하여 정수와 이름을로드하는 것이 문제 일 수 있습니다. 리소스에서 다이 이미지의 이름이 무엇인지 알 수 없기 때문에 알 수 없습니다.

또한, 이러한 유형의 문제를 디버깅하는 방법을 배울 이상적인이다 : 그것은 작동하지 않는 이유를 참조 DisplayDie 및 에 중단 점을 설정 : 예를 들어, 이미지 이름에 맞는 String.Format 결과입니까?

롤 주사위, ImageList에서 디스플레이 이미지 :

Private Sub btnRoll_Click(sender As Object, e As EventArgs) Handles btnRoll.Click 
    ' pbC1 etc are MY picturebox names - use yours 
    DisplayDie(pbC1) 
    DisplayDie(pbC2) 
    DisplayDie(pbC3) 

End Sub 

Private Sub DisplayDie(diePictureBox As PictureBox) 

    Dim face As Integer = randomObject.Next(1, 7) 

    ' adjust pip count to image index by subtracting one 
    diePictureBox.Image = ImageList1.Images(face - 1) 

End Sub 

이미지가 PIP 순서로 ImageList에 나와있는, 그래서 단지 변환 색인에 핍 (1-6)에서 변환하는 것입니다된다 (0- 5).