VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

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

  [复制链接]
发表于 2010-5-6 10:31:06 | 显示全部楼层
不错,不错!测试结果:

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

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

评分

参与人数 1人气 +2 收起 理由
download + 2 有行动有研究值得奖励...

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 11:00:00 | 显示全部楼层
不错,不错!测试结果:

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)
回复 支持 反对

使用道具 举报

发表于 2010-5-6 11:42:49 | 显示全部楼层
你能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也是没有什么问题,个人觉得似乎只是写法上不一样而已。

评分

参与人数 1人气 +2 收起 理由
download + 2 发现偶写的测试文件的代码中少了一句 nFF=F

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 11:49:59 | 显示全部楼层
   
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就打不开文件了, -_-!
这样的话就支持文件操作了,太牛了...哈哈~
回复 支持 反对

使用道具 举报

发表于 2010-5-6 11:55:54 | 显示全部楼层
弱弱的问一句,啥时候再出第三季捏?我已经开始期待了!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 11:56:20 | 显示全部楼层
己将支持文件操作说明加到顶楼.

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

使用道具 举报

发表于 2010-5-6 12:19:02 | 显示全部楼层
以收藏,以后慢慢看。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 12:32:22 | 显示全部楼层
弱弱的问一句,啥时候再出第三季捏?我已经开始期待了!
yimins 发表于 2010-5-6 11:55


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

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

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

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

call vbExitThread()'这里清除
end function

这个就留给喜欢自己动手的人去做了...
回复 支持 反对

使用道具 举报

发表于 2010-5-6 12:57:30 | 显示全部楼层
老汉伟大
回复 支持 反对

使用道具 举报

发表于 2010-5-6 14:50:02 | 显示全部楼层
...最近好多事...
.软件除虫
.学习 MFC
.网站改版
...弱弱的反问,第三季是需要什么功能? 修正固定维数的数组? -_-!

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

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


嘿嘿~~~ 修正固定维数的数组也算是一个吧,还有就是其它bug的处理什么的,或者是通用性、稳定性啥的。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-7-3 16:03

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