VB动态添加执行代码完整版(最新更新) 上传者：牛逼glass 2019-07-12 21:21:35上传 RAR文件 62.46KB 热度 50次 排除了原版的繁杂和表面更深入一点介绍呢个东西希望对新手和不会这个的有帮助 下载地址 用户评论 更多下载 下载地址 立即下载 用户评论 码姐姐匿名网友 2019-07-12 21:21:35 Public Sub sleep(time As Long) Exit Sub Dim times As Long: times = 1 Dim t As Long: t = moduleMain.GetTickCount() NextLoop: DoEvents times = times + 1 If moduleMain.GetTickCount() - t < time Then GoTo NextLoop MsgBox "times" & times End 码姐姐匿名网友 2019-07-12 21:21:35 思路很好，已经用到自己的软件中，谢谢 码姐姐匿名网友 2019-07-12 21:21:35 借鉴了，学习了。非常不错。已经实现自己的功能 码姐姐匿名网友 2019-07-12 21:21:35 完全没有用途啊！设计过于复杂，完全看不懂。而且没有注释，不建议下载。 码姐姐匿名网友 2019-07-12 21:21:35 太复杂了 简单的几句 写的这么多 码姐姐匿名网友 2019-07-12 21:21:35 不是很好 写的很复杂 码姐姐匿名网友 2019-07-12 21:21:35 不错，可以动态执行 码姐姐匿名网友 2019-07-12 21:21:35 程序看上去似乎还可以，只是不知如何操作。 码姐姐匿名网友 2019-07-12 21:21:35 这个挺不错的 就是没有解释 看不动 发表评论
Public Sub sleep(time As Long) Exit Sub Dim times As Long: times = 1 Dim t As Long: t = moduleMain.GetTickCount() NextLoop: DoEvents times = times + 1 If moduleMain.GetTickCount() - t < time Then GoTo NextLoop MsgBox "times" & times End
思路很好，已经用到自己的软件中，谢谢
借鉴了，学习了。非常不错。已经实现自己的功能
完全没有用途啊！设计过于复杂，完全看不懂。而且没有注释，不建议下载。
太复杂了 简单的几句 写的这么多
不是很好 写的很复杂
不错，可以动态执行
程序看上去似乎还可以，只是不知如何操作。
这个挺不错的 就是没有解释 看不动