Reputation: 127
I'm making a Blackjack game and I'm having a rough time getting a picture of the cards without "hard coding" every single picture to values I'm passing it.
Current Code (not desired, but works):
Public Function Return_Card(CardVal As String, CardSuit As String) As Image
If CardVal = "Ace" And CardSuit = "Clubs" Then
Return My.Resources.AceOfClubs
ElseIf CardVal = "Two" And CardSuit = "Clubs" Then
Return My.Resources.TwoOfClubs
ElseIf CardVal = "Three" And CardSuit = "Clubs" Then
Return My.Resources.ThreeOfClubs
' Need the other 49 cards to complete deck
End If
End Function
Desired Code:
Public Function Return_Card(CardVal As String, CardSuit As String) As Image
' Return any picture of a card based on what is being passed in CardVal and CardSuit
Return My.Resources.CardValOfCardSuit
End Function
bump
Upvotes: 0
Views: 48
Reputation: 127
Public Function Return_Card(CardVal As String, CardNum As String) As Image
Return My.Resources.ResourceManager.GetObject(CardVal + "Of" + CardNum)
End Function
Upvotes: 1