-4

このセクションで、コンピューターの勝利、ユーザーの勝利、または引き分けを判断しようとすると、複数のエラーが発生します。誰でも私のコードを編集するのを手伝ってもらえますか? 私は自分の能力の限界に達したばかりです。オブジェクトを使用する必要があると思いますか？しかし、私は自分のコードを編集しており、ここから悪化するだけです。誰かが私を助けることができれば、私は本当に感謝しています!!

' Card shuffling and dealing application.
Public Class DeckOfCardsTest
    Dim userwin As Integer
    Dim compwin As Integer
    Dim ties As Integer

    Private deck As New DeckOfCards() ' create the deck of cards

    ' shuffle the deck when user clicks the Shuffle Button
    Private Sub shuffleButton_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles shuffleButton.Click

        deck.Shuffle() ' shuffles the deck
        card1PictureBox.Image = Nothing ' clear image
        card2PictureBox.Image = Nothing ' clear image
        dealButton.Enabled = True ' allow user to click the Deal Button
        MessageBox.Show("Deck is shuffled")
    End Sub ' shuffleButton_Click

    Private Sub dealButton_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles dealButton.Click

    End Sub ' dealButton_Click

    ' return an image for the Card argument
    Private Function GetCardImage(ByVal card As Card) As Image
        If card IsNot Nothing Then
            ' retrieve specific card image from resources
            Dim pictureResource = My.Resources.ResourceManager.GetObject(
              card.ToString().Replace(" ", ""))
            Return CType(pictureResource, Image) ' return Image
        Else
            dealButton.Enabled = False ' disable the Deal Button
            Return Nothing ' no more cards
        End If



    End Function ' GetCardImage
End Class ' DeckOfCardsTest
4

1 に答える 1

2

問題は、.FaceValue が PictureBox のプロパティではないことです。代わりに、生成されたカードに基づいてデッキから FaceValue を取得する必要があります。

以下のコメントに応えて、次のようなことを試してください...

Dim card1 as new card = deck.DealCard()
card1PictureBox.Image = GetCardImage(card1)

これが、PictureBox の 1 つを設定する方法です。2つ目はできます。次に、比較して、誰が勝ったかを確認します...

if card1.FaceValue> card2.FaceValue then
    'blahblahblah
End if
于 2013-05-01T14:39:21.493 に答える