Vb.net 使用字符串(VBE2012)通过my.resources加载图像
我正在尝试创建一个5卡抽牌扑克程序Vb.net 使用字符串(VBE2012)通过my.resources加载图像,vb.net,embedded-resource,Vb.net,Embedded Resource,我正在尝试创建一个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",
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
是资源中的一种类型,不能用作表达式
有人能指出我到底做错了什么,并告诉我如何加载随机生成的卡吗?您正在尝试使用,并且您的语法错误,这就是您出现该错误的原因
编辑:
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
这条线看起来不对<代码>与PictureBox(intCard).Image=My.Resources.CardDeck()以结尾您需要使用
Selected
这个CardDeck资源到底是什么?我像您所说的那样尝试使用Selected,但仍然不起作用。你能告诉我它应该怎么写吗?我会非常感激的。非常感谢。我在这方面还是比较新的。