通過my.resources使用字符串加載圖像（VBE2012）

Question

我想創建一個5張牌抽獎撲克程序。

Dim Rndm As New Random 
Dim PictureBox(5) As PictureBox 
Dim HiddenCards As New List(Of String) 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim CardDeck() As String = {"AoH", "AoD", "AoC", "AoS", "ONEoH", "ONEoD", "ONEoC", _ 
           "ONEoS", "TWOoH", "TWOoD", "TWOoC", "TWOoS", "THREEoH", "THREEoD", "THREEoC", _ 
           "THREEoS", "FOURoH", "FOURoD", "FOURoC", "FOURoH", "FIVEoH", "FIVEoD", _ 
           "FIVEoC", "FIVEoS", "SIXoH", "SIXoD", "SIXoC", "SIXoS", "SEVENoH", _ 
           "SEVENoD", "SEVENoC", "SEVENoS", "EIGHToH", "EIGHToD", "EIGHToC", "EIGHToS", _ 
           "NINEoH", "NINEoD", "NINEoC", "NINEoS", "TENoH", "TENoD", "TENoC", _ 
           "TENoS", "JoH", "JoD", "JoC", "JoS", "QoH", "QoD", _ 
           "QoC", "QoS", "KoH", "KoD", "KoC", "KoS"} 

    Dim ListofCards As List(Of String) = CardDeck.ToList 
    Dim Count As Integer = 0 
    Dim Selected As Integer = 0 


    For intCard As Integer = 0 To 5 
     Count = ListofCards.Count 
     Selected = Rndm.Next(0, Count) 
     PictureBox(intCard) = PictureBox1 
     With PictureBox(intCard).Image = My.Resources.CardDeck() 
     End With 
    Next 
End Sub 

我特別想弄清楚如何從CardDeck串獲得所選擇的卡來加載，因爲我有一個RND函數隨機生成一個卡。在進入下一部分之前，我希望得到這個工作。它給我的錯誤是：

CardDeck是一種資源類型，不能用作表達式。

有人點正是我做錯了，也可以告訴我怎麼可以加載隨機生成的卡？

Answer 1

您正在嘗試使用With...End With Statement，並且您的語法錯誤，這就是您遇到該錯誤的原因。

編輯：

For intCard As Integer = 0 To 5 
    Count = ListofCards.Count 
    Selected = Rndm.Next(0, Count) 
    PictureBox(intCard) = PictureBox1 
    With PictureBox(intCard) 
     .Image = My.Resources.CardDeck() 
    End With 
Next