vb.net如何讓兩個窗體并發(fā)運(yùn)行

Imports System.Threading

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比湖濱網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式湖濱網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋湖濱地區(qū)。費(fèi)用合理售后完善，十年實體公司更值得信賴。

Public Class Form1

Dim t1, t2 As Thread

Dim tt1

Private Delegate Sub voiddelegate(ByVal i As Integer)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Form2.Show()

End Sub

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

t1 = New Thread(AddressOf test)

tt1 = 1

t1.Start()

tt1 = 2

t2 = New Thread(AddressOf test)

t2.Start()

' Timer1.Start()

End Sub

Private Sub updateui(ByVal i As Integer)

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

'把循環(huán)放到線程中運(yùn)行會好一些，其實主要事務(wù)是對窗體控件的操作時多線程意義不大，因為訪問窗體的代碼依然要在窗體線程中運(yùn)行。

Private Sub test()

Dim d As voiddelegate = AddressOf updateui

For i = 0 To 9000

Me.Invoke(d, i)

Next

End Sub

'如果放在計時器中運(yùn)行效果好的多

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static i As Integer = 0

i += 1

If i 9000 Then Timer1.Stop() : i = 0

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

End Class

'如果在另一線程中用Application.run 打開窗體確實能行，不過窗體間相互操作不起作用，這個尚待研究中。

vb.net中怎么定義成所有窗體共用的子過程 代碼中有對窗體名字的引用，編譯器報錯：“Me”在模塊中無效。

既然是所有窗體都共用，為何不放在Moudle模塊里呢？再把窗體名稱做為參數(shù)傳進(jìn)去。

在VB.NET中怎么實現(xiàn)多窗體同步

建立一個名為 modGeneral 的模塊并加入下面一行代碼：

Friend DataStuff As DataClass

這一行代碼為我的新類 DataClass 創(chuàng)建了一個友元變量，使你可以完全訪問程序集，對這個簡單例子來說，也就是指完整的應(yīng)用程序。然后我添加了下面的代碼到 Form1 的 Load 事件：

DataStuff = New DataClass

Me.txt1stData.DataBindings.Add("Text", DataStuff, "MyData")

Me.txt2ndData.DataBindings.Add("Text", DataStuff, "MoreData")

第一行建立一個 DataClass 新實例。下面兩行代碼將數(shù)據(jù)綁定到 textbox 控件。對這個窗體而言，就這么些操作！

現(xiàn)在，你怎樣讓它們與 Form2 和其它窗體上的數(shù)據(jù)同步呢？將下面兩行加入到 Form 2 的窗體load 事件中去：

Me.txt1stData.DataBindings.Add("Text",DataStuff, "MyData")

Me.txt2ndData.DataBindings.Add("Text",DataStuff, "Moredata")

這個方法容易確保所有窗體上的幾乎任何類型的數(shù)據(jù)處于同步狀態(tài)。你可以簡單地將控件綁定到某個類的相同實例上，這就行了。

VB.NET窗體間的數(shù)據(jù)傳遞

在編寫VB.Net windows應(yīng)用程序的時候我們經(jīng)常會遇到這種問題，怎么樣在兩個窗體間傳遞數(shù)據(jù)呢？例如，用VB.Net做一個文本編輯器，里面有一個搜索功能（即搜索我打開的文本里面的文字），點搜索則彈出搜索對話框，輸入要搜索的內(nèi)容，然后確定，就可以搜索到我打開的文本里面的文字了，這里就用到了兩個窗體間的相互通信。我查看了相關(guān)的資料想了想，得出一些想法和方法。

也許有的人會覺得這個很簡單呀。假如主框架為Form1，打開的搜索對話框是Form2.直接在Form2類中申明一個Form1實例：dim f1 as new Form1然后就可以通過f1來調(diào)用Form1中的域和函數(shù)了。其實不是這樣的，你申明的新的Form1實例不是原來的那個Form1對象了，這樣操作的是新的Form1中的域和函數(shù)，和最先打開的Form1是沒有關(guān)系的。

那應(yīng)該如何來完成兩個窗體的通訊呢？我們要做的是把當(dāng)前的Form1實例傳遞給Form2，如果是這樣的話，問題就很好解決了。

方法1：首先，我們在Form2中定義：

Private mF_Form As Form1

我們更改Form2的構(gòu)造函數(shù)為有參數(shù)的

Public Sub New(ByVal form As Form1)

MyBase.New()

'該調(diào)用是 Windows 窗體設(shè)計器所必需的。

InitializeComponent()

Me.mF_Form = form

'在 InitializeComponent() 調(diào)用之后添加任何初始化

End Sub

在Form1中，我在 要用到Form2的地方申明如下：

Dim f1 As New Form2(Me)

這里的me指的就是Form1當(dāng)前的實例,也就是把當(dāng)前Form1的實例通過Form2的構(gòu)造函數(shù)傳遞給Form2類（其實在網(wǎng)上看到過比較蠢的方式，就是在構(gòu)造函數(shù)里面?zhèn)鬟f要傳遞的信息如：字符串或是數(shù)字等，這樣做很有局限性，不能傳遞其他的，所有我們可以直接傳遞實例,來完成傳遞更多的信息。）

這樣在Form2中使用myForm 就可以對原來的Form1窗口進(jìn)行操作了。但是你要把要操作的Form1中的域和函數(shù)定義成public形式的（這樣可能不安全），此時的myForm就是真正的最開始打開的Form1了，你可以用這個實例來進(jìn)行兩個窗體的通訊了。

方法2：其實VB.Net中提供了窗體間進(jìn)行通訊的現(xiàn)成的屬性，呵呵，我們能想到的，微軟也想到了，他們創(chuàng)造的語言其實確實可以說是人性化了。

在Form1類中申明Form2時用如下代碼：

Dim f2As New Form2 '類Form2中的構(gòu)造函數(shù)不改，還是無參的

f2.owner=me

也可以使用函數(shù)的方法，給當(dāng)前實例添加一個附屬窗口 代碼：Me.AddOwnedForm(f2)

在Form2類的定義中寫如下代碼：

dim f1 as Form1=me.owner

這樣f1對應(yīng)的就是原來的Form1的實例了，也就可以用這個進(jìn)行通訊了。但是還是要把不同類之間訪問的域和函數(shù)定義成public，哎,安全確實是一個問題！！

分享名稱：vb.net窗體共享,vbnet web窗體
文章鏈接：http://chinadenli.net/article38/dsgoipp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、App開發(fā)、軟件開發(fā)、網(wǎng)站排名、網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)