Vb.net 骰子战斗游戏

我需要一个用于Visual Basic的骰子战斗游戏的帮助

一个玩家和一台计算机应该是相互斗争的。当你点击滚动按钮时，它会生成6个随机图像-3个用于电脑，3个用于播放器

我把所有的东西都记下来了，但我似乎无法添加这3张图片。第一张图片显示了，但是第二张和第三张都没有显示，三张也没有显示在电脑上

这是我的密码

//=============================================================================
Public Class Form1

Dim randomObject As New Random() 'Create Random object
Dim BestOfGamesCounter As Integer

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

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


    DisplayDie(d1PictureBox)
    DisplayDie(d2PictureBox)
    DisplayDie(d3PictureBox)

    DisplayDie(UserDice1)
    DisplayDie(UserDice2)
    DisplayDie(UserDice3)
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 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 GameTextBox_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles GameTextBox.Validating
    If GameTextBox.Text > "0" Then
        Do
            MsgBox(GameTextBox.Text + " round(s) will be played GOOD LUCK")
        Loop While GameTextBox.Text = "STOP"
    End If
    GameTextBox.Enabled = False
End Sub

//=============================================================================
公开课表格1
将随机对象设置为新随机对象（）'创建随机对象
Dim BESTOFGAMESCONTER为整数
私有子RollDice\u Click（发送者作为对象，e作为事件参数）处理RollDice。单击
如果游戏文本框。文本“0”，则
BestOfGamesCenter=Convert.ToInt32（GameTextBox.Text）
如果结束
显示模块（d1PictureBox）
DisplayDie（d2PictureBox）
DisplayDie（d3PictureBox）
DisplayDie（UserDice1）
DisplayDie（UserDice2）
DisplayDie（UserDice3）
端接头
子显示模块（DIEEPictureBox作为PictureBox）
'生成范围为1到6的随机整数
将面调暗为整数=随机对象。下一步（1，7）
'从资源中检索特定的模具图像
Dim pictureResource=My.Resources.ResourceManager.GetObject（String.Format（“die{0}”，face））
'将pictureResource转换为键入Image并在ImageBox中显示
diePictureBox.Image=CType（pictureResource，Image）
“结束子”替换
私有子ExitButton\单击（发送者作为对象，e作为事件参数）处理ExitButton。单击
作为MsgBoxResult的Dim响应
response=MsgBox（“是否要退出？”、MsgBoxStyle.YesNo或MsgBoxStyle.Question）
如果response=MsgBoxResult.Yes则
我
如果结束
端接头
私有子GameTextBox_验证（发送方作为对象，e作为System.ComponentModel.CancelEventArgs）处理GameTextBox.Validating
如果GameTextBox.Text>为“0”，则
做
MsgBox（GameTextBox.Text+“将玩一轮或多轮好运”）
游戏时循环TextBox.Text=“停止”
如果结束
GameTextBox.Enabled=False
端接头

---

End Class

您的代码是VB.Net，而不是VBA。您有任何异常吗？顺便说一下，您可以像这样加载图像：

diecturebox.Image=New Bitmap（Me.GetType，“die”和face）

哦，好的，谢谢您的知识。不，我只是不能添加骰子，我只是有问题，我不知道我是否必须将每个图像转换为一个整数，这样七个图像将等于1-6个整数，因为一个骰子最多有6个面。例如，如果正在滚动的3个骰子最终为1，我会将它们相加，使其等于3，假设随机生成的itI，我不认为我们仅仅通过查看代码就可以帮上什么忙。您确定资源的名称正确吗？图片盒的布局如何？也许有一些截图可以向我们展示表单的布局和资源，因为它们列在您的项目中？