BlackjackGUI/card.vb

50 lines
1.2 KiB
VB.net

Public Class Card
Private Shared idCounter As Integer = 1
Private id As Integer
Private boxId As PictureBox
Private cardImage As Image
Private cardName As Tuple(Of String, String)
Private cardLocation As Point
Private cardHidden As Boolean
Public Sub New(name As Tuple(Of String, String), Optional hidden As Boolean = False)
id = idCounter
idCounter += 1
boxId = New PictureBox()
cardName = name
cardHidden = hidden
cardImage = Utilities.GetCardImage(name, hidden)
End Sub
Public Sub SetLocation(location As point)
cardLocation = location
End Sub
Public Sub SetName(name As Tuple(Of String, String))
cardName = name
End Sub
Public Sub SetHidden(hidden As Boolean)
cardHidden = hidden
End Sub
Public Function GetId() As Integer
Return id
End Function
Public Function GetBoxId() As PictureBox
Return boxId
End Function
Public Function GetName() As Tuple(Of String, String)
Return cardName
End Function
Public Function GetLocation() As Point
Return cardLocation
End Function
Public Function IsHidden() As Boolean
Return cardHidden
End Function
End Class