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

joke080

总是有人在耳边说不要用VB了，什么乱七八糟的东西都比VB好用多了，自从浏览了老汉哥和这个论坛里面一些高手的帖子，我发现用什么工具真的不重要了，但是我还是没有发现重要的额，只有一步一步去学，希望老汉哥看到我这篇回帖，教教我，我是一个刚毕业的学生，现在工作上用到了VB，以前真是太看得起自己了。。。求老汉哥指点，我应该怎么样一步一步的去学习编程。求老汉的经验，求老汉哥推荐学习方法和书籍啊！自己真的茫啊，看了你们的帖子，一下觉得程序的世界实在是大啊！！！！

qiviut

学习学习！

?

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

?

看来得把CreateIExprSrvObj函数初始化环境的的代码给jmp掉啊
对了，那3个参数没人测试过？

pwwme

好

komaaopo

哇晒  学习了

随风逐流

这么牛叉， 关注一下

passok

老汉这个多线程早就想研究了。
这次有机会玩了一下，果然经典！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和棉花糖”