我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb点虐 同时进行的简单介绍

vb点虐 不用多线程如何同时运行两个过程?

不用多线程?

成都创新互联是一家专业提供迎江企业网站建设,专注与网站设计、成都网站制作H5响应式网站、小程序制作等业务。10年已为迎江众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

即使用多线程,也不会是“同时”执行,题主只要略懂一些计算机编译原理就能明白了。

不用多线程更不可能让两个过程同步执行了。

不过可以提供一个折衷的法子,示例如下:

Sub a()

'过程一 

End Sub 

Sub b()

'过程二

End Sub

Sub Timer1_Tick() '简写了,实际在VB.NET里不是这样的

Timer1.Enabled = False 

a()

End Sub     

Sub Button1_Click() '同样简写

Timer1.Enabled = True

b()

End Sub

利用了一个 Timer 控件,实现了这种伪同步(其实还是异步),a()、b() 两个过程相互独立切能并发运行。

注意:上述代码需要先把 Timer1 的 Enabled 属性设置为 False,Interval 属性要尽可能小。

vb点虐 如何用多线程同时运行同一个过程

把一个线程对一个sub的方法放到For循环中就是了啊,循环的次数你自己设定

vb点虐 同时对两个ACCESS数据库进行增删改查。

见下面的代码,自己换成真实的数据库及表即可

Imports System.Data

Imports System.IO

Imports System.Data.OleDb

Module Module1

Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称 

Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称 

Public DataBaseRST1 As Integer '用来返回数据库执行结果 

Public DataBaseRST2 As Integer '用来返回数据库执行结果

Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数 

Dim cmdinsert1 As New OleDbCommand

Dim cmdinsert2 As New OleDbCommand

Try

cmdinsert1.CommandText = str_cmd1

cmdinsert2.CommandText = str_cmd2

cmdinsert1.Connection = cn1

cmdinsert2.Connection = cn2

If cn1.State = ConnectionState.Closed Then cn1.Open()

If cn2.State = ConnectionState.Closed Then cn2.Open()

DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果 

DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果 

cn1.Close()

cn2.Close()

Return True

Catch ex As Exception

MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return False

End Try

End Function

End Module 

Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法

End Sub

End Class

vbnet同时执行多个任务

题主是否想询问“vbnet同时执行多个任务怎么实现”?多线程操作。vbnet同时执行多个任务通过多线程操作实现,Visual Basic点虐 ,属于计算机软件领域,是计算机中实现网络功能的编程语言。


文章题目:vb点虐 同时进行的简单介绍
网站URL:http://mswzjz.cn/article/ddgjhgg.html

其他资讯