VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: download

[原创]全球首创? 再次突破VB极限!VB真正稳定多线程(第二季,可以用Msgbox了)

  [复制链接]
发表于 2012-3-17 23:09:14 | 显示全部楼层
总是有人在耳边说不要用VB了,什么乱七八糟的东西都比VB好用多了,自从浏览了老汉哥和这个论坛里面一些高手的帖子,我发现用什么工具真的不重要了,但是我还是没有发现重要的额,只有一步一步去学,希望老汉哥看到我这篇回帖,教教我,我是一个刚毕业的学生,现在工作上用到了VB,以前真是太看得起自己了。。。求老汉哥指点,我应该怎么样一步一步的去学习编程。求老汉的经验,求老汉哥推荐学习方法和书籍啊!自己真的茫啊,看了你们的帖子,一下觉得程序的世界实在是大啊!!!!
回复 支持 反对

使用道具 举报

发表于 2012-5-30 16:35:09 | 显示全部楼层
学习学习!
回复 支持 反对

使用道具 举报

发表于 2012-6-4 11:29:43 | 显示全部楼层
本帖最后由 ? 于 2012-6-4 12:07 编辑

我是来看楼主头像的
Sub Main()
Static IsRunning As Boolean
If IsRunning Then Exit Sub
IsRunning = True
'......
End Sub
这样写总觉得怪怪的。老外的网址看不到了,不知道他是怎么去掉了启动...

点评

tgy
如果只是不让SUB main() 不重复启动,好象往main()里面塞个汇编进去就行了,但这样也没有解决本质上的东西,如新建线程时标准模块中定义的静态数组等变量重复占用内存问题.  发表于 2012-6-4 17:49
回复 支持 反对

使用道具 举报

发表于 2012-6-5 04:30:46 | 显示全部楼层
本帖最后由 ? 于 2012-6-5 04:31 编辑

看来得把CreateIExprSrvObj函数初始化环境的的代码给jmp掉啊
对了,那3个参数没人测试过?
回复 支持 反对

使用道具 举报

发表于 2012-6-7 14:27:01 来自手机 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-7-24 17:04:54 | 显示全部楼层
哇晒  学习了
回复 支持 反对

使用道具 举报

发表于 2014-12-19 18:57:37 | 显示全部楼层
这么牛叉, 关注一下
回复 支持 反对

使用道具 举报

发表于 2016-5-12 00:15:03 | 显示全部楼层
老汉这个多线程早就想研究了。
这次有机会玩了一下,果然经典!P-代码、类、MsgBox。。。问题都解决了!!!
只是有个问题,每开一个线程,都会克隆一个假窗体。。。很难看很难接受。。。解决这个问题就完美了~~~(IDE调试就不奢求了。。。)
问问群里的高手,果然长江后浪推前浪~本群的高手棉花糖和ka亲自帮我研究了对策。
原来只需要在标准模块中的Main函数中增加一个判断即可完美解决!

Sub Main()
    If Not IsRun Then
        '这里需要加以判断是否为第一次执行main
        '因为每次初始化线程环境,由于是调用vb自身的初始化,所以启动对象会再次执行
        '如果不加以判断,会造成很严重的后果
        IsRun = True
        Load Form1
        Form1.Show
    Else
        '这里的弹窗很明显的让你看到为什么要判断了
        MsgBox "这是唯一bug,第二次执行入口函数"
    End If
End Sub

我现在把这个API多线程和别的高人研究的合并在一起,做成一个类随时调用。。。。。
大家不要谢谢我,需要谢谢本群两大高手“ka和棉花糖”

点评

我不太喜欢在程序里搞个类啥啥的,用起来超不爽。如果弹个msgbox的话完全可以用机器码来搞,十分钟不要就能搞定  发表于 2016-5-12 01:55
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-3 15:51

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表