0

15 枚の絵のパズルを作成する必要がありますが、画像がボタンのすべてのスペースを埋めるようにボタンに画像を追加する方法がわかりません。または私はそれを別の方法で行うべきですか?? ここに私が構築する必要があるもののリンクがあります: sahek.co.il/content/full_screen.php?url= http://www.sahek.co.il/ … 現時点で私が持っているのは数字を使ったゲームだけです:

Class MainWindow 

Private Sub btn1_Click(sender As Object, e As RoutedEventArgs) Handles btn1.Click
    '2,4
    checkBtn(btn1, btn4)
    checkBtn(btn1, btn2)
    chechSolved()
End Sub

Private Sub btn2_Click(sender As Object, e As RoutedEventArgs) Handles btn2.Click
    '1,3,5
    checkBtn(btn2, btn1)
    checkBtn(btn2, btn3)
    checkBtn(btn2, btn5)
    chechSolved()
End Sub

Private Sub btn3_Click(sender As Object, e As RoutedEventArgs) Handles btn3.Click
    '2,6
    checkBtn(btn3, btn2)
    checkBtn(btn3, btn6)
    chechSolved()
End Sub

Private Sub btn4_Click(sender As Object, e As RoutedEventArgs) Handles btn4.Click
    '1,5,7
    checkBtn(btn4, btn1)
    checkBtn(btn4, btn5)
    checkBtn(btn4, btn7)
    chechSolved()
End Sub

Private Sub btn5_Click(sender As Object, e As RoutedEventArgs) Handles btn5.Click
    '2,4,6,8
    checkBtn(btn5, btn2)
    checkBtn(btn5, btn4)
    checkBtn(btn5, btn6)
    checkBtn(btn5, btn8)
    chechSolved()
End Sub

Private Sub btn6_Click(sender As Object, e As RoutedEventArgs) Handles btn6.Click
    '3,5,9
    checkBtn(btn6, btn3)
    checkBtn(btn6, btn5)
    checkBtn(btn6, btn9)
    chechSolved()
End Sub

Private Sub btn7_Click(sender As Object, e As RoutedEventArgs) Handles btn7.Click
    '4,8
    checkBtn(btn7, btn4)
    checkBtn(btn7, btn8)
    chechSolved()
End Sub

Private Sub btn8_Click(sender As Object, e As RoutedEventArgs) Handles btn8.Click
    '5,7,9
    checkBtn(btn8, btn5)
    checkBtn(btn8, btn7)
    checkBtn(btn8, btn9)

    chechSolved()
End Sub

Private Sub btn9_Click(sender As Object, e As RoutedEventArgs) Handles btn9.Click
    '6,8
    checkBtn(btn9, btn6)
    checkBtn(btn9, btn8)

    chechSolved()
End Sub

Sub checkBtn(ByRef butt1 As Button, ByRef butt2 As Button)
    If butt2.Content = "" Then
        butt2.Content = butt1.Content
        butt1.Content = ""
    End If
End Sub

Sub chechSolved()

    If btn1.Content = "1" And btn2.Content = "2" And btn3.Content = "3" And btn4.Content = "4" And btn5.Content = "5" And btn6.Content = "6" And btn7.Content = "7" And btn8.Content = "8" And btn9.Content = "" Then
        MsgBox("הצלחת")
    End If
End Sub



Sub shuffle()
    Dim a(8) As String
    Dim i, j, RN As Integer
    Dim flag As Boolean

    flag = False
    i = 1
    a(j) = 1

    Do While i <= 8
        Randomize()
        RN = CInt(Int((8 * Rnd()) + 1))

        For j = 1 To i
            If (a(j) = RN) Then
                flag = True
                Exit For
            End If
        Next

        If flag = True Then
            flag = False
        Else
            a(i) = RN
            i = i + 1
        End If

    Loop

    btn1.Content = a(1)
    btn2.Content = a(2)
    btn3.Content = a(3)
    btn4.Content = a(4)
    btn5.Content = a(5)
    btn6.Content = a(6)
    btn7.Content = a(7)
    btn8.Content = a(8)
    btn9.Content = ""
End Sub

Private Sub btnSH_Click(sender As Object, e As RoutedEventArgs) Handles btnSH.Click
    shuffle()
End Sub
End Class
4

2 に答える 2

0

XAML コードでこれを試してください。

Stretch="None"、"Fill"、"Uniform"、または "UniformToFil" を試すこともできます。 イメージングの概要に関する詳細情報はこちら

<Button Height="100" Width="25" >
  <Button.Background>
    <ImageBrush ImageSource="your image source path" Stretch="Fill" TileMode="None" />
  </Button.Background>
</Button>
于 2013-07-02T17:47:50.010 に答える