logo|长春|吉林|制作|建设|开发|网站|网页|数据库|采集|修复|ASP|PHP|MUI|.NET|DW|OA|IIS|SEO|HTML|jQuery|API|JLASP

哈达波斯王|网站建设|网页制作|网页设计【官方网站】

知识文档

VB.net多线程自己理解笔记

知识文档  2020年06月24日 15:42:01  哈达波斯王  

因为要写采集什么的。发现单个非常慢。感觉多线程。应该会快一些。所以弄了个多线程实例笔记。

    Dim a As System.Threading.Thread
    Private Delegate Sub VoidShow(ByVal str As String)          '定义要委托的类型
    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        a = New System.Threading.Thread(AddressOf ShowNumber)   '创建线程
        a.Start()                                               '开始
    End Sub
    Private Sub ShowNumber(str)
        For i = 1 To 1000
            Dim ivo As New VoidShow(AddressOf TureShowNumber)   '定义委托
            Invoke(ivo, i.ToString() + ",")                     '去委托
            System.Threading.Thread.Sleep(2)                    '延迟一会。避免卡顿
        Next
        a.Abort()                                               '停止一会
    End Sub
    Private Sub TureShowNumber(ByVal str As String)             '被委托事件
        TextBox1.Text &= str
    End Sub


上一篇:没有了下一篇:VB6.0和VB.Net的对照...
网站首页 | 最新公告 | 漏洞修补 | 网站模板 | 知识文档 | 联系我们
Copyright © 2015 jlasp.com All Rights Reserved.
哈达波斯王|网站建设|网页制作|网页设计【官方网站】 版权所有
地址:吉林省吉林市昌邑区 联系QQ:383612004 联系人:董先生
未经本站授权,禁止复制或建立镜像
 ICP备案号:吉ICP备15000891号-1