ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > 我的酷贴 > Excel VBA > 12生肖图

12生肖图

作者：绿色风 分类： 时间：2022-08-18 浏览：107
楼主
研究研究		 这原先是送给幼儿园老师做教材用的。现在拿出来给大家娱乐一下，希望能博得你一笑

这个作品其实是让12生肖对号入座。不管你怎么点都不会乱套。
他们只会到自己该去的地方



 

通过上面的示意图，就可以知道是给小朋友加强记忆12生肖的次序和属相！

闲话少说，言归正传，如何来实现窗体中动画的呢？又如何来使他不乱？

这些要归功于窗体的第3方插件和公共变量。

12生肖.rar
2楼
研究研究		 首先利用　Private Sub Workbook_Open()　把附件下的VBAniGIF.ocx 文件拷贝到　
  1. C:\WINDOWS\system32\

然后利用
  1. Shell "cmd.exe /c regsvr32 /s C:\WINDOWS\system32\VBAniGIF.ocx", vbHide

注册
                    （文件已经在压缩包里，没有毒的。不放心你可以杀毒。再不放心我劝你别用。）



这样windows已经算是注册了，但是你还不用直接用。因为我们的EXCEL还不认，窗体还不认。我们换需要做加载到窗体中、

那么如何加载呢？


通过VBA编辑器里的\工具\引用\   找到图所示


 

这样我们就算差不多搞好预备工作了
3楼
研究研究		 接下来再找25张图片（1张空白的+12张gif格式的 +12张jpg）。为了程序操作的方便把他们改名为1,2,3,4。。12。


下一步我们需要插入一个用户窗体，还是在vbe编辑器里找到插入\用户窗体。点击插入。

然后我们点击用户窗体插入

一个Image控件

12个AniGif控件


还得插入15个CommandButton按钮

把15个按钮的CAPTION 分别改成12个动物的名字

好了多准备好了（柴米油盐都齐了，准备炒菜！）

这样我们要写代码了

大家知道普通的声明变量只有在过程中使用。所以我们要在过程外声明一个变量如A

DIM A AS LONG  把这个变量放到过程外作为公共边量。
4楼
研究研究		 接下来我们要做图片上跳的动作
  1. Sub 上跳()
  2. If a = 0 Then Exit Sub
  3. If a = 1 Then
  4. UserForm1.AniGif1.Filename = ThisWorkbook.Path & "\小\1.gif"
  5. ElseIf a = 2 Then
  6. UserForm1.AniGif2.Filename = ThisWorkbook.Path & "\小\2.gif"
  7. ElseIf a = 3 Then
  8. UserForm1.AniGif3.Filename = ThisWorkbook.Path & "\小\3.gif"
  9. ElseIf a = 4 Then
  10. UserForm1.AniGif4.Filename = ThisWorkbook.Path & "\小\4.gif"
  11. ElseIf a = 5 Then
  12. UserForm1.AniGif5.Filename = ThisWorkbook.Path & "\小\5.gif"
  13. ElseIf a = 6 Then
  14. UserForm1.AniGif6.Filename = ThisWorkbook.Path & "\小\6.gif"
  15. ElseIf a = 7 Then
  16. UserForm1.AniGif7.Filename = ThisWorkbook.Path & "\小\7.gif"
  17. ElseIf a = 8 Then
  18. UserForm1.AniGif8.Filename = ThisWorkbook.Path & "\小\8.gif"
  19. ElseIf a = 9 Then
  20. UserForm1.AniGif9.Filename = ThisWorkbook.Path & "\小\9.gif"
  21. ElseIf a = 10 Then
  22. UserForm1.AniGif10.Filename = ThisWorkbook.Path & "\小\10.gif"
  23. ElseIf a = 11 Then
  24. UserForm1.AniGif11.Filename = ThisWorkbook.Path & "\小\11.gif"
  25. Else
  26. UserForm1.AniGif12.Filename = ThisWorkbook.Path & "\小\12.gif"
  27. End If
  28. End Sub
做几个按钮
  1. Private Sub 狗_Click()
  2.     If a <> 0 Then
  3.         Call 上跳
  4.     End If
  5.     a = 11
  6.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/11.jpg")
  7. End Sub

  9. Private Sub 猴_Click()
  10.     If a <> 0 Then
  11.         Call 上跳
  12.     End If
  13.     a = 9
  14.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/9.jpg")
  15. End Sub

  17. Private Sub 虎_Click()
  18.     If a <> 0 Then
  19.         Call 上跳
  20.     End If
  21.     a = 3
  22.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/3.jpg")
  23. End Sub

  25. Private Sub 鸡_Click()
  26.     If a <> 0 Then
  27.         Call 上跳
  28.     End If
  29.     a = 10
  30.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/10.jpg")
  31. End Sub

  33. Private Sub 龙_Click()
  34.     If a <> 0 Then
  35.         Call 上跳
  36.     End If
  37.     a = 5
  38.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/5.jpg")
  39. End Sub

  41. Private Sub 马_Click()
  42.     If a <> 0 Then
  43.         Call 上跳
  44.     End If
  45.     a = 7
  46.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/7.jpg")
  47. End Sub

  49. Private Sub 没_Click()
  50.     a = 0
  51.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/0.jpg")
  52. End Sub

  54. Private Sub 牛_Click()
  55.     If a <> 0 Then
  56.         Call 上跳
  57.     End If
  58.     a = 2
  59.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/2.jpg")
  60. End Sub

  62. Private Sub 蛇_Click()
  63.     If a <> 0 Then
  64.         Call 上跳
  65.     End If
  66.     a = 6
  67.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/6.jpg")
  68. End Sub

  70. Private Sub 鼠_Click()
  71.     If a <> 0 Then
  72.         Call 上跳
  73.     End If
  74.     a = 1
  75.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "/大/1.jpg")
  76. End Sub
这里我没有全部写完整。想知道全部的话可以参考我的作品！


最后我希望大家能够喜欢我的作品。有不足之处请批评指正
5楼
luckydog		 很喜欢，我也向跟你学VBA
6楼
悠悠雨		 这个娱乐性强，小朋友们喜欢，大朋友也喜欢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap