11.01.05VBA拼图游戏素材

笨巧果 发表于: 2011-1-04 23:07 来源: 扑奔PPT网

笨巧果 发表于 2011-1-05 18:31:59

Dim pic(1 To 16)
Dim ss
Private Sub kaishi_Click()
        For i = 1 To 16
                pic(i) = i
        Next
        Randomize
        For i = 1 To 15
                j = Int(Rnd * (16 - i) + 1)
                temp = pic(i)
                pic(i) = pic(j)
                pic(j) = temp
        Next
        ss = ActivePresentation.Path
        For k = 1 To 16
                ActivePresentation.Slides(1).Shapes.Item("Image" & k).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(k) & ".gif")
        Next
        SlideShowWindows(1).View.First
End Sub

Sub changepic(k)
        If k - 4 > 0 And k - 4 < 17 Then
                If (k - 1) \ 4 <> 0 And pic(k - 4) = 16 Then
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k - 4).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(k) & ".gif")
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & "16.gif")
                        temp = pic(k - 4)
                        pic(k - 4) = pic(k)
                        pic(k) = temp
                End If
        End If
        If k - 1 > 0 And k - 1 < 17 Then
                If k Mod 4 <> 1 And pic(k - 1) = 16 Then
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k - 1).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(k) & ".gif")
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & "16.gif")
                        temp = pic(k - 1)
                        pic(k - 1) = pic(k)
                        pic(k) = temp
                End If
        End If
        If k + 1 > 0 And k + 1 < 17 Then
                If k Mod 4 <> 0 And pic(k + 1) = 16 Then
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k + 1).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(k) & ".gif")
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & "16.gif")
                        temp = pic(k + 1)
                        pic(k + 1) = pic(k)
                        pic(k) = temp
                End If
        End If
        If k + 4 > 0 And k + 4 < 17 Then
                If (k - 1) \ 4 <> 3 And pic(k + 4) = 16 Then
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k + 4).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(k) & ".gif")
                        ActivePresentation.Slides(1).Shapes.Item("Image" & k).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & "16.gif")
                        temp = pic(k + 4)
                        pic(k + 4) = pic(k)
                        pic(k) = temp
                End If
        End If
        SlideShowWindows(1).View.First
End Sub

Private Sub Image1_Click()
        Call changepic(1)
End Sub

Private Sub Image2_Click()
        Call changepic(2)
End Sub

Private Sub Image3_Click()
        Call changepic(3)
End Sub

Private Sub Image4_Click()
        Call changepic(4)
End Sub

Private Sub Image5_Click()
        Call changepic(5)
End Sub

Private Sub Image6_Click()
        Call changepic(6)
End Sub

Private Sub Image7_Click()
        Call changepic(7)
End Sub

Private Sub Image8_Click()
        Call changepic(8)
End Sub

Private Sub Image9_Click()
        Call changepic(9)
End Sub

Private Sub Image10_Click()
        Call changepic(10)
End Sub

Private Sub Image11_Click()
        Call changepic(11)
End Sub

Private Sub Image12_Click()
        Call changepic(12)
End Sub

Private Sub Image13_Click()
        Call changepic(13)
End Sub

Private Sub Image14_Click()
        Call changepic(14)
End Sub

Private Sub Image15_Click()
        Call changepic(15)
End Sub

Private Sub Image16_Click()
        Call changepic(16)
End Sub

Private Sub tuichu_Click()
        For i = 1 To 16
                pic(i) = i
                ActivePresentation.Slides(1).Shapes.Item("Image" & i).OLEFormat.Object.Picture = LoadPicture(ss & "\pic\" & pic(i) & ".gif")
                pic(i) = 0
        Next
        SlideShowWindows(1).View.Exit
End Sub

Sub kong()

End Sub

chunxiao 发表于 2011-1-05 20:08:23

下载素材。

w12345678 发表于 2011-1-22 17:26:41

请问这一课的视频在哪

笨巧果 发表于 2011-1-24 19:09:17

QUOTE:

原帖由 w12345678 于 2011-1-22 17:26 发表
请问这一课的视频在哪

不知道，也许没人录像吧？

w12345678 发表于 2011-2-18 14:57:49

很想学，有没有人写个教程，诚心请教，网上也搜不到相关资料

w12345678 发表于 2011-2-23 07:25:22

最近的学习录像怎么没人录呢