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

yimins

不错，不错！测试结果：

set XX as new XXX（OK）
msgbox XXX        (OK)
open "XXX" for binary as #1 (OK)

不过奇怪的是：
dim xx(3) as byte (挂了！-_-!!!)

download

不错，不错！测试结果：

set XX as new XXX（OK）
msgbox XXX        (OK)
open "XXX" for binary as #1 (OK)

不过奇怪的是：
dim xx(3) as byte (挂了！-_-!!!)
yimins 发表于 2010-5-6 10:31

你能OPEN?为何我就不行呢...
OPEN以后再GET,之类的试试?估计OPEN出错后直接跳过了...


dim xx(3) as byte 偶很少这样用?有什么好处?
偶一般都是
dim xx() as byte,然后想要多大再n=3: redim xx(n)

yimins

你能OPEN?为何我就不行呢...
OPEN以后再GET,之类的试试?估计OPEN出错后直接跳过了...


dim xx(3) as byte 偶很少这样用?有什么好处?
偶一般都是
dim xx() as byte,然后想要多大再n=3: redim xx(n)
download 发表于 2010-5-6 11:00

   
Open "c:\123.txt" For Binary As #1
    Get #1, , S
Close #1
MsgBox StrConv(S, vbUnicode)

我是这样get的，直接放在Public Sub Thread1()里面
在MsgBox "Thread OK", vbInformation, ""这句之后。


然后测试了写入文件：

    Dim S() As Byte
    ReDim S(3) As Byte
    S(0) = Asc("A")
    S(1) = Asc("B")
    S(2) = Asc("C")
    S(3) = Asc("D")
   
Open "c:\123.txt" For Binary As #1   
    Put #1, , S()
Close #1

什么问题都没有，读写都很正常。

另外dim s(3) as byte的用法一般是用于读取比较大的文件，需要分段读取，于是会设置一个固定大小的字节数组，然后多次读取。当然，全部换成redim也是没有什么问题，个人觉得似乎只是写法上不一样而已。

download

   
Open "c:\123.txt" For Binary As #1
    Get #1, , S
Close #1
MsgBox StrConv(S, vbUnicode)

我是这样get的，直接放在Public Sub Thread1()里面
在MsgBox "Thread OK", vbInformation, ""这句之后。 ...
yimins 发表于 2010-5-6 11:42

发现偶写的测试文件的代码中少了一句初始化
nFF=FreeFile,

所以nFF=0就打不开文件了, -_-!
这样的话就支持文件操作了,太牛了...哈哈~

yimins

弱弱的问一句，啥时候再出第三季捏？我已经开始期待了！

download

己将支持文件操作说明加到顶楼.

不过测试代码太简单就不修正了.用于测试->看看是不是转载的连BUG也转

sihers

以收藏，以后慢慢看。

download

弱弱的问一句，啥时候再出第三季捏？我已经开始期待了！
yimins 发表于 2010-5-6 11:55

...最近好多事...
.软件除虫
.学习 MFC
.网站改版
...弱弱的反问,第三季是需要什么功能? 修正固定维数的数组? -_-!

将上述顶楼的代码封装成MFC的CWinThread就是类似这样:

function myThread1()...
call vbBeginThread() '这里调用初始化//MFC的是afxBeginThread()

'然后是线程可以随意调用VB函数了,YEAH!

call vbExitThread()'这里清除
end function

这个就留给喜欢自己动手的人去做了...

独上高楼

老汉伟大

yimins

...最近好多事...
.软件除虫
.学习 MFC
.网站改版
...弱弱的反问,第三季是需要什么功能? 修正固定维数的数组? -_-!

将上述顶楼的代码封装成MFC的CWinThread就是类似这样:

function myThread1()...
ca ...
download 发表于 2010-5-6 12:32

嘿嘿～～～ 修正固定维数的数组也算是一个吧，还有就是其它bug的处理什么的，或者是通用性、稳定性啥的。