0

これが宿題であることを今すぐ明確にします。完全な回答は期待していませんが、歓迎します。

Visual Basic で 15 パズルを作成するように割り当てられました。これはゲームがどのように見えるかの例です (これは私がこれまでに持っているものです):

通常の15パズルゲーム。

助けが必要なのは、画像の確認と移動です。右下に表示されている PictureBox 1 をクリックすると、その下、横、および上の画像がチェックされ、その場所の画像が My.Resources.NONE であるかどうかが確認されます。(NONEは私がインポートしたpng画像です)。隣接するセルが NONE の場合、2 つの画像は互いに交換されます。各 PictureBox にはアドレスに Handler があり、すべての画像は 2 次元の PictureBox 配列 (4x4) にあります。

このようにサブを設定しましたが、中に何を入れればよいかわかりません。助言がありますか?

Private Sub mypic_Click(ByVal sender As Object, ByVal e As EventArgs)

End Sub

アップデート:

私はさらにいくつかの調査を行い、いくつかのことを理解しました。これは私の現在のアプローチです:

 Private Sub mypic_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim x, y, w, z As Integer
    ClickedPicture = DirectCast(sender, PictureBox)
    x = ClickedPicture.Left
    y = ClickedPicture.Top
    If ClickedPicture(x + 1, y).Image = Nothing Then
        ClickedPicture(x + 1, y).Image = ClickedPicture(x, y).Image
        ClickedPicture(x, y).Image = My.Resources.NONE
    End If
End Sub

私が今抱えている問題は、デフォルトのプロパティがないため、ClickedPicture にインデックスを付けることができないと言っているということです。これは正確にはどういう意味ですか?

4

1 に答える 1