工作簿的游戏

楼主研究研究	这个出于一种娱乐在写VBA代码时会发现自己感到有趣的动作！我整理了一下！共同讨论讨论一键多用.rar
2楼研究研究	本案例主要讲的是窗体的几个属性的应用，其中包涵5个知识点知识点１如何给第３放控件注册和插入第三方控件首先利用　Private Sub Workbook_Open()　把附件下的VBAniGIF.ocx 文件拷贝到　 C:\WINDOWS\system32\ 然后利用 Shell "cmd.exe /c regsvr32 /s C:\WINDOWS\system32\VBAniGIF.ocx", vbHide 注册光注册还不行必须要引用到窗体知识点2 利用Visible来隐藏和现实东西如本案中的 AniGif1.Visible = False ‘隐藏AniGif1控件 Application.Visible = False ‘隐藏整个工作簿 AniGif1.Visible = True ‘取消隐藏AniGif1控件 Application.Visible = True ‘取消隐藏整个工作簿等等都可以来隐藏和显示出来、知识点3 利用Caption来改变我们文本和按钮的显示并用来作为检测的对象如：Label1.Caption = "我先来变一下！还能变你试试？"和开始.Caption = "下一个弹窗"
3楼研究研究	知识点4 利用Speech朗读 Application.Speech.Speak "你好，祝你生活愉快。", , , False ‘这句话会被朗读出来！朗读可分为2种： Sub 朗读固定语句() On Error Resume Next Application.Speech.Speak "你好，节日快乐。", , , False If Err.Number <> 0 Then Application.Speech.Speak "", , , True End If End Sub Sub 朗读A列() Dim myStr$, i&, tRng As Range Dim mySpk As Speech i = [A65536].End(xlUp).Row Set mySpk = Application.Speech myStr = Replace(Replace(Range("A1:A" & i).Address, "$", ""), ":", "到") On Error Resume Next With mySpk .Speak "_", , , False For Each tRng In Range("A1:A" & i) If Err.Number <> 0 Then .Speak "_", , , True: Exit Sub If Not tRng Is Nothing Then .Speak tRng, , , False Next End With End Sub
4楼研究研究	最后要说的是动画是用UserForm1.AniGif1.Filename = ThisWorkbook.Path & "\附件\花.gif" 语句映入进去的下面是全部的代码 Private Sub UserForm_Initialize() AniGif1.Visible = False End Sub Private Sub 开始_Click() If 开始.Caption = "开始" Then Label1.Caption = "我先来变一下！还能变你试试？" 开始.Caption = "下一个弹窗" ElseIf 开始.Caption = "下一个弹窗" Then MsgBox "问候你一下！" & vbCrLf & "欢迎继续" 开始.Caption = "欢迎继续" ElseIf 开始.Caption = "欢迎继续" Then Application.Visible = False 开始.Caption = "工作簿不见了？" ElseIf 开始.Caption = "工作簿不见了？" Then Application.Visible = True 开始.Caption = "工作簿回来了！" ElseIf 开始.Caption = "工作簿回来了！" Then Label1.Caption = "有声音吗？本人测试了好几个人，都有声音，就我听不到！郁闷啊！" Application.Speech.Speak "你好，祝你生活愉快。", , , False 开始.Caption = "送花" ElseIf 开始.Caption = "送花" Then 开始.Caption = "再见！下次再玩" Label1.Visible = False AniGif1.Visible = True UserForm1.AniGif1.Filename = ThisWorkbook.Path & "\附件\花.gif" ElseIf 开始.Caption = "再见！下次再玩" Then Unload Me End If End Sub 做的不好请前辈们指正
5楼 wqfzqgk	什么啊
6楼冰心8549	谢谢分享，学习学习

楼主研究研究	这个出于一种娱乐在写VBA代码时会发现自己感到有趣的动作！我整理了一下！共同讨论讨论一键多用.rar
2楼研究研究	本案例主要讲的是窗体的几个属性的应用，其中包涵5个知识点知识点１如何给第３放控件注册和插入第三方控件首先利用　Private Sub Workbook_Open()　把附件下的VBAniGIF.ocx 文件拷贝到　 C:\WINDOWS\system32\ 然后利用 Shell "cmd.exe /c regsvr32 /s C:\WINDOWS\system32\VBAniGIF.ocx", vbHide 注册光注册还不行必须要引用到窗体知识点2 利用Visible来隐藏和现实东西如本案中的 AniGif1.Visible = False ‘隐藏AniGif1控件 Application.Visible = False ‘隐藏整个工作簿 AniGif1.Visible = True ‘取消隐藏AniGif1控件 Application.Visible = True ‘取消隐藏整个工作簿等等都可以来隐藏和显示出来、知识点3 利用Caption来改变我们文本和按钮的显示并用来作为检测的对象如：Label1.Caption = "我先来变一下！还能变你试试？"和开始.Caption = "下一个弹窗"
3楼研究研究	知识点4 利用Speech朗读 Application.Speech.Speak "你好，祝你生活愉快。", , , False ‘这句话会被朗读出来！朗读可分为2种： Sub 朗读固定语句() On Error Resume Next Application.Speech.Speak "你好，节日快乐。", , , False If Err.Number <> 0 Then Application.Speech.Speak "", , , True End If End Sub Sub 朗读A列() Dim myStr$, i&, tRng As Range Dim mySpk As Speech i = [A65536].End(xlUp).Row Set mySpk = Application.Speech myStr = Replace(Replace(Range("A1:A" & i).Address, "$", ""), ":", "到") On Error Resume Next With mySpk .Speak "_", , , False For Each tRng In Range("A1:A" & i) If Err.Number <> 0 Then .Speak "_", , , True: Exit Sub If Not tRng Is Nothing Then .Speak tRng, , , False Next End With End Sub
4楼研究研究	最后要说的是动画是用UserForm1.AniGif1.Filename = ThisWorkbook.Path & "\附件\花.gif" 语句映入进去的下面是全部的代码 Private Sub UserForm_Initialize() AniGif1.Visible = False End Sub Private Sub 开始_Click() If 开始.Caption = "开始" Then Label1.Caption = "我先来变一下！还能变你试试？" 开始.Caption = "下一个弹窗" ElseIf 开始.Caption = "下一个弹窗" Then MsgBox "问候你一下！" & vbCrLf & "欢迎继续" 开始.Caption = "欢迎继续" ElseIf 开始.Caption = "欢迎继续" Then Application.Visible = False 开始.Caption = "工作簿不见了？" ElseIf 开始.Caption = "工作簿不见了？" Then Application.Visible = True 开始.Caption = "工作簿回来了！" ElseIf 开始.Caption = "工作簿回来了！" Then Label1.Caption = "有声音吗？本人测试了好几个人，都有声音，就我听不到！郁闷啊！" Application.Speech.Speak "你好，祝你生活愉快。", , , False 开始.Caption = "送花" ElseIf 开始.Caption = "送花" Then 开始.Caption = "再见！下次再玩" Label1.Visible = False AniGif1.Visible = True UserForm1.AniGif1.Filename = ThisWorkbook.Path & "\附件\花.gif" ElseIf 开始.Caption = "再见！下次再玩" Then Unload Me End If End Sub 做的不好请前辈们指正
5楼 wqfzqgk	什么啊
6楼冰心8549	谢谢分享，学习学习