扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
首先,你把你那些要运行很久的过程。尽量放在一个过程中。
创新互联于2013年开始,是专业互联网技术服务公司,拥有项目成都网站设计、网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元共和做网站,已为上家服务,为共和各地企业和个人服务,联系电话:18980820575
因为线程只能是过程,不能使函数,没有返回值的。
然后,在某个事件下这样写:
**这里我假设你的那个很就的过程叫做 sub aaa()
调用如下:
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
这样就是定义一个线程,名字叫 mythread,这个线程会运行aaa这个过程。
start 就是让线程运行。
是每个窗口都一个SQLConnection。
当然也可以 每次连接一个 SQLConnection。
如果是 一个窗口需要多次连接SQL,可以继续使用原来的SQLConnection对象的,更改对应的SQL命令即可。
Sub Main() Dim thr As New Thread(AddressOf 循环) thr.Start("a") End Sub Sub 循环(a() As String) '这里随你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub
告诉你原理吧,要实现邮箱激活其实就是解决服务器上发邮件的问题,用户注册后,把用户状态默认成未激活,然后生成一个链接到一个页面,在那个页面加载时运行一个SQl语句把用户状态改成激活,然后再跳转到什么成功激活的页面就可以了,当然要传递一些有效的参数了;邮件激活的话就给注册时用户填写的邮箱发信就可以了,内容里面写上那个自动生成链接,怎么发邮件呢,建议你使用第三方控件Jmail不错,当然还有别的,如果用Smtp协议发的话20封左右就挂掉了···
找回密码一样,用户回答对密保问题的话就把密码给他发到邮箱就是了,归根结底还是发邮件···
补一句:源码的没有····
Sub Main()
Dim thr As Thread
For Pi As Integer=0 To 4 //启用5线程
MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //启动多线程进程
Application.DoEvents
Next
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流