使用“每个循环”为多个图像框提供随机图像VB.NET
使用“每个循环”为多个图像框提供随机图像VB.NET
提问于 2013-11-11 15:52:40
嘿，伙计们，首先谢谢你们的时间
我正在编程一个棋盘游戏，在某一点上，我需要6个骰子。
对于一个骰子，我执行了以下代码
Dim Dobbel as integer
Dim RandomNumber as new Random
Dobbel = RandomNumber.Next(1, 6)
Select Case Dobbel
Case 1
Steen1.Image = Game.My.Resources.Een
Case 2
Steen1.Image = Game.My.Resources.Twee
Case 3
Steen1.Image = Game.My.Resources.Drie
Case 4
Steen1.Image = Game.My.Resources.Vier
Case 5
Steen1.Image = Game.My.Resources.Vijf
Case 6
Steen1.Image = Game.My.Resources.Zes
End Select这样就可以处理1个骰子( picturebox获得了正确的图片)
现在我还想要5个骰子来做上面的事情。我一直在用“为每一个人”的说法来尝试这个问题，但我无法让它发挥作用。请帮我
这是我第一次为我做错的事道歉
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-11-11 16:02:30
假设“无法使其工作”意味着您不知道如何循环六个PictureBox控件，那么尝试将它们放入一个数组中：
For Each pb As PictureBox In New PictureBox() {steen1, steen2, steen3, steen4, steen5, steen6}
Select Case RandomNumber.Next(1, 7)
Case 1 : pb.Image = Game.My.Resources.Een
Case 2 : pb.Image = Game.My.Resources.Twee
Case 3 : pb.Image = Game.My.Resources.Drie
Case 4 : pb.Image = Game.My.Resources.Vier
Case 5 : pb.Image = Game.My.Resources.Vijf
Case 6 : pb.Image = Game.My.Resources.Zes
End Select
Next这假设您有六个名为PictureBoxes的steen#，等等。
还请注意，我将随机范围更改为1-7，最大值少了一个，所以在代码中，您永远不会得到图像的数字6。
Stack Overflow用户
发布于 2013-11-11 16:01:17
Dim Dobbel(6) as integer
Dim RandomNumber as new Random
for (int = 0; i < 5; i++)
{
Dobbel(i) = RandomNumber.Next(1, 6)
}
For Each i As Integer In Dobbel
{
Select Case Dobbel(i)
Case 1
Steen(i).Image = Game.My.Resources.Een
Case 2
Steen(i).Image = Game.My.Resources.Twee
Case 3
Steen(i).Image = Game.My.Resources.Drie
Case 4
Steen(i).Image = Game.My.Resources.Vier
Case 5
Steen(i).Image = Game.My.Resources.Vijf
Case 6
Steen(i).Image = Game.My.Resources.Zes
End Select
}当然，Steen必须声明为数组。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/19910488
复制相关文章
相似问题
腾讯云开发者
