十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
重新启动。vbnetfor循环占用cpu问题只要重新启动就可以了。VBNET是一种简单,现代,面向对象的计算机编程语言,它由微软开发,将NETFramework和公共语言运行库的强大功能相结合。
成都创新互联公司专业为企业提供乌拉特后网站建设、乌拉特后做网站、乌拉特后网站设计、乌拉特后网站制作等企业网站建设、网页设计与制作、乌拉特后企业网站模板建站服务,10多年乌拉特后做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
首先这个要看的子函数执行的情况了,比如你子函数要8秒才能执行完成,你1秒钟执行一次,到时会有好几个子函数在运行,肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序;
再一个,如果不想影响主程序,你可以再建一个程序,专门用来执行子函数,然后让那个程序用定时器每秒执行一次子函数,这样就不会影响主程序;
dim i
for i=2 to 1
msgbox("*")
next
语法没问题,这应该在winform里面能够调试成功,显示运行框,但是在web application里面就不能出现弹出信息框了,在网页上要出现,建议用response.write("scriptalert('***')/script").
for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的,不要天天抱着VB6啃。
要求不多的话,完全可以用按键精灵的,你用vb.net去实现的话,反而啰嗦了。。。
我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式,按你原来的方法,未设置编码,显示的是乱码!路径请按你的情况改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!
一般多开线程写无限循环行为。
//定义线程
Dim th As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf test))
th.Start("aaa")//开始线程,可以传参
//线程执行函数
Public Sub test(ob As Object)
While True
Console.WriteLine("线程正在运行中" ob)
Threading.Thread.Sleep(1000)
End While
End Sub