将picturebox数组转换为字符串或整数？

问题描述：

Public Class frmMind 
     'Game Mastermind 
     Dim pbxBoard(3, 9) As PictureBox 
     Dim strColors() As String = {"Red", "Orange", "Yellow", "Green", "Blue", "Violet"} 'Array for colors 
     Dim intKey(4) As Integer 'Array for the mastermind's key 
     Dim intCol As Integer = 0 'Subroutine for columns 
     Dim intRow As Integer = 0 'Subroutine for rows 
     Dim Red, Orange, Yellow, Green, Blue, Violet As Boolean 
     Private Sub frmMind_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
       Dim Value As Boolean 'Sets a true and false thing to do stuff 
'Gets a random number for a key that the use will not see 

    Randomize() 
    Dim intRand As Integer = ((Rnd() * 5)) 
    'Gets random numbers 
    intKey(0) = intRand 
    intKey(1) = intRand 
    intKey(2) = intRand 
    intKey(3) = intRand 
    'Assigns a random number from 1-6 to each row 

    Do Until Value = True 'Checks to make sure a number is not duplicated. 
     If intKey(0) = intKey(1) Then 
      intKey(1) = ((Rnd() * 5)) 
     ElseIf intKey(0) = intKey(2) Then 
      intKey(2) = ((Rnd() * 5)) 
     ElseIf intKey(0) = intKey(3) Then 
      intKey(3) = ((Rnd() * 5)) 
     ElseIf intKey(1) = intKey(2) Then 
      intKey(2) = ((Rnd() * 5)) 
     ElseIf intKey(1) = intKey(3) Then 
      intKey(3) = ((Rnd() * 5)) 
     ElseIf intKey(2) = intKey(3) Then 
      intKey(3) = ((Rnd() * 5)) 
     Else 
      'All if statements above gets a new number if one has already been used. 

      Value = True 
      MessageBox.Show(intKey(0) & " " & intKey(1) & " " & intKey(2) & " " & intKey(3)) 
     End If 
    Loop 
    'Sets the variables of strColors 
    If intRand = 5 Then 
     strColors(5) = "Violet" 
    ElseIf intRand = 4 Then 
     strColors(4) = "Blue" 
    ElseIf intRand = 3 Then 
     strColors(3) = "Green" 
    ElseIf intRand = 2 Then 
     strColors(2) = "Yellow" 
    ElseIf intRand = 1 Then 
     strColors(1) = "Orange" 
    Else 
     strColors(0) = "Red" 
    End If 

End Sub 
Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click 


    If Then 
     MessageBox.Show("You good.") 
    Else 
     MessageBox.Show(":(") 
     End If 

End Sub 

'Creates border around peg on click. Red 
Private Sub pbxPegR_Click(sender As Object, e As EventArgs) Handles pbxPegR.Click 
    Red = True 
    If Red = True Then 
     pbxPegR.BorderStyle = BorderStyle.FixedSingle 
     pbxPegY.BorderStyle = BorderStyle.None 
     pbxPegO.BorderStyle = BorderStyle.None 
     pbxPegG.BorderStyle = BorderStyle.None 
     pbxPegB.BorderStyle = BorderStyle.None 
     pbxPegP.BorderStyle = BorderStyle.None 
    End If 
    Yellow = False 
    Green = False 
    Violet = False 
    Blue = False 
    Orange = False 
End Sub 

Private Sub pbxJ0_Click(sender As Object, e As EventArgs) Handles pbxJ0.Click 
    If Red = True Then 'changes the box from an empty square to a square with a red dot/piece 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxR.png") 
     pbxBoard(0, 9) = strColors(0) 
    ElseIf Yellow = True Then 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxY.png") 
     pbxBoard(0, 9) = strColors(2) 
    ElseIf Orange = True Then 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxO.png") 
     pbxBoard(0, 9) = strColors(1) 
    ElseIf Blue = True Then 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxB.png") 
     pbxBoard(0, 9) = strColors(4) 
    ElseIf Green = True Then 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxG.png") 
     pbxBoard(0, 9) = strColors(3) 
    ElseIf Violet = True Then 
     pbxJ0.Image = Image.FromFile("H:\VB.net\MasterMind\pictures\CboxP.png") 
     pbxBoard(0, 9) = strColors(5) 
    End If 
End Sub

所以这段代码的重点是重新创建一个名为mastermind的游戏。用户在第一行输入四种不同的颜色，并根据关键词（主角）猜测正确的顺序和颜色。我们拥有它，空白方块将被用户选择的颜色替换。我们无法弄清楚如何将新值/颜色与随机数发生器/键的颜色进行比较。或者如何检查没有多次使用颜色。请帮忙。将picturebox数组转换为字符串或整数？

答

我建议看看System.Drawing中定义的Color结构，它定义了很多已知的颜色。包括你在strColors中的名字。

如果您需要比较颜色相等以上的比较，它会稍微复杂一点，但从检查颜色的ARGB属性开始。

简化的控制台程序：

Imports System.Drawing 

Module Module1 
    Sub Main() 
    Dim a As Color = Color.Red 
    Dim b As Color = Color.Orange 
    Dim c As Color = Color.Turquoise 

    CheckColors(a, a) 
    CheckColors(a, b) 
    CheckColors(c, Color.FromName("Turquoise")) 

    Console.ReadKey() 
    End Sub 

    Private Sub CheckColors(x As Color, y As Color) 
    Console.WriteLine("Does " & x.Name & " equal " & y.Name & "? " & (x = y).ToString) 
    End Sub 
End Module

输出：

Does Red equal Red? True 
Does Red equal Orange? False 
Does Turquoise equal Turquoise? True

将picturebox数组转换为字符串或整数？

相关推荐