资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net等待2秒,vb等待时间指令

VB.NET的二进制文件读写为什么这么慢?比C++的慢慢N倍啊

这个是你的问题,不是vb.net速度慢。

芜湖网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。成都创新互联于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联

你应该这样写:

Dim file1 As FileStream = New FileStream("地址", FileMode.Open)

Dim myread As BinaryReader = New BinaryReader(file1)

Dim fn(file1.Length) As Byte

For i As Integer = 0 To file1.Length - 1

fn(i) = myread.ReadByte

Next

记得前面要 imports system.io

这个代码把文件读入一个fn的数组中,速度极快。

vbnet代码的timer怎么使用

简单的说Timer是一个时间的控件, 不能说Timer的值等於2秒时,因为Timer相当於时间,只能说当Timer跳动两秒时触发某事件。 代码如下: ' 首先要确定启动控件 Me.Timer1.Enabled = True’启动控件 Me.Timer1.Interval = 1000‘设定跳动频为1秒。

VB.net timer.Interval = 2000 ,计时器间隔为2秒 不懂这个间隔

timer要用timer.start()开始记时,timer.Interval = 2000简单来说:在timer事件下一个textbox.selectAll()两秒全选一次textbox内容,运行不完不会有什么影响,线程等内容现在不必考虑

vb 等待2秒后执行下一段代码

哦老天!这位仁兄能不能吧中间的那个长长的字符串搞得简明一点啊!

还有您的文件号 #2 也不好,容易冲突。建议改成变量 nFF(整型),nFF = IIF((FreeFile=0), FreeFile(1), FreeFile),这样就不会冲突了。

对于延迟,可以使用 Sleep 函数。

修正后的代码如下:

Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long

Shell "cmd /c echo open " Text5.Text "" aa "/xjdown.txt" "echo " Text6.Text "" aa "/xjdown.txt" "echo " Text7.Text "" aa "/xjdown.txt" "echo bin" aa "/xjdown.txt" "echo get " aa "\" aa "xjlt.txt" "" aa "/xjdown.txt" "echo bye" aa "/xjdown.txt" "ftp -s:" aa "/xjdown.txt" "del " aa "\xjdown.txt" "© " aa "xjlt.txt " aa "\" aa "xjlt.txt" "del " aa "xjlt1.txt", vbHide '修正后的下载文本代码

Dim nFF As Integer

nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)

Open aa "\" aa "xjlt.txt" For Binary As #nFF

Text1.Text = Input(LOF(2), #nFF)

Close #nFF

Sleep 2000 '睡两秒,注意 Sleep 以毫秒为单位

MkDir Text14.Text

这样就行了。

:RECENTLY ADDED:

上面的仁兄注意了!Sleep 函数本来就是让窗体暂停处理消息的,所以不响应是在所难免的。可以在调用 Sleep 函数的前一行使用 DoEvents 函数,不过只能处理完消息再进行(如,按钮显示为弹起,停止响应两秒,再继续执行)。


网站名称:vb.net等待2秒,vb等待时间指令
本文路径:http://cdkjz.cn/article/dsisjgj.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220