vb.net 動態(tài)添加大量控件嚴(yán)重卡頓怎么辦

這是不可避免的，除非更換電腦硬件，讓處理器及內(nèi)存處理得更快，或是不要用自帶的 Panel 和 Label 控件，自定義一個容器，內(nèi)容自繪。

為潁泉等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及潁泉網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都做網(wǎng)站、成都網(wǎng)站建設(shè)、潁泉網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

卡頓主要原因：

1、控件多了，電腦必然會慢，因為在 Windows 里每個控件都相當(dāng)于一個窗口，有自己的句柄，系統(tǒng)需要維護(hù)對應(yīng)的窗口消息，那么一定會卡頓，只能緩解不能消除。

2、可以用多線程，在子線程中更新控件，通過委托的方式通知主線程，可以有效緩解卡頓的問題。

(vb.net)動態(tài)添加的控件如何多次響應(yīng)事件？

熟悉VB的朋友對使用ActiveX控件一定不會陌生，眾多控件極大地方便了編程，但

唯一的缺陷是不能動態(tài)加載控件，必須在設(shè)計時通過引用，將控件放置在窗體上。

VB6.0已能夠解決該問題，只是幫助中沒有明確說明，并且沒有描述到一些關(guān)鍵功能，

由于以前的版本中可以動態(tài)創(chuàng)建進(jìn)程外服務(wù)：如果對象是外部可創(chuàng)建的，可在 Set 語

句中用 New 關(guān)鍵字、CreateObject 或 GetObject 從部件外面將對象引用賦予變量。

如果對象是從屬對象，則需使用高層對象的方法，在 Set 語句中指定一個對象引用：

Dim xlApp1 As Excel.Application

Set xlApp1 = New Excel.Application

或

Dim xlApp As Object '定義存放引用對象的變量。

Set xlApp = CreateObject("excel.application")

xlApp.Visible = True

---- 這些語法很容易造成誤導(dǎo)，以為動態(tài)加載ActiveX控件也是此方法，可能有朋友也

象我一樣利用CreateObject嘗試了無數(shù)次，卻無功而返，不知微軟公司是出于何種考

慮，動態(tài)加載ActiveX控件是擴(kuò)展控件集合的方式實現(xiàn)，通過實際摸索，終于就如何實

現(xiàn)動態(tài)ActiveX控件找出了一條切實可行的方法，下面以一個具體的實例來詳細(xì)說明。

一、ActiveX控件

---- ActiveX 控件是 Visual Basic 工具箱的擴(kuò)充部分。使用 ActiveX 控件的方法與

使用其它標(biāo)準(zhǔn)內(nèi)裝的控件，如 CheckBox 控件，完全一樣。在程序中加入 ActiveX 控

件后，它將成為開發(fā)和運(yùn)行環(huán)境的一部分，并為應(yīng)用程序提供新的功能。

---- ActiveX 部件通過客戶端/服務(wù)器關(guān)系與應(yīng)用程序— 及與部件相互之間— 交互作

用。客戶端是使用部件功能的應(yīng)用程序代碼或部件。服務(wù)器是部件及其關(guān)聯(lián)的對象。例

如，假設(shè)應(yīng)用程序使用 ActiveX 控件來提供一個標(biāo)準(zhǔn)的雇員窗體，供公司的多種應(yīng)用

程序使用。提供雇員窗體的 ActiveX 控件就是服務(wù)器，使用這個控件的應(yīng)用程序就是

服務(wù)器的客戶端。

二、加載方法

---- VB6.0中對Controls 集合進(jìn)行了擴(kuò)展，以前版本中Controls 集合在窗體上列舉出

已加載的控件，這在迭代過程中是很有用的。Controls 集合標(biāo)識一個叫做 Controls

的內(nèi)在窗體級變量。如果忽略可選的 object 所在處的整數(shù)，則關(guān)鍵字 Controls 必須

包括在內(nèi)。我們通常在窗口中使用如下代碼：

Text1.Text="Hello, world"

其實也可以使用如下代碼達(dá)到同一目的：

Controls(1).Text="Hello, world"

---- 在VB6.0中除了原來的Clear、Remove 方法外(很奇怪，為什么微軟在VB5.0中只提

供這兩種方法，而沒有提供Add方法，因為沒有Add，這兩種方法也就沒什么用處)，增

加了Add方法，該方法就是用于動態(tài)加載控件的：

Controls.Add(progid as String, Name as String);

progid： ActiveX部件的ProgID，如："VB.CheckBox"；

Name：ActiveX部件加載后的名稱，如： "MyCheckBox"；

若要在窗體上添加一個名為MyButton的按鈕，可以使用：

dim oControl as Object '窗體級變量

注意：這里聲明為Object對象類型

Private Sub LoadControl()

Set oControl = Controls.Add

("VB.CommandButton", "MyButton")

oControl.Left = 10

oControl.Top = 10

oControl.Visible = True '使控件可見

End Sub

---- 這是VB6.0的標(biāo)準(zhǔn)語法，它在例程中也是如此演示的，不過該方法雖然現(xiàn)實了控件

的動態(tài)加載，按鈕顯示在窗體上，可以象普通按鈕一樣按下去，但加載的控件不能預(yù)先

設(shè)計響應(yīng)事件代碼，如：事件Sub MyButton_Click()將是非法的，當(dāng)然，可以將要響應(yīng)

的事件封裝在控件內(nèi)部。就編程的觀點(diǎn)來看該方法沒什么大的用處，開發(fā)ActiveX控件

的目的是為了資源共享，為了被其他開發(fā)人員利用，所以要提供必要的事件接口，顯然

利用該方法不行，通過分析VBControls等相關(guān)對象，找出VBControlExtender對象與

EventInfo相結(jié)合能提供事件陷井捕捉，VBControlExtender對象對動態(tài)添加控件特別有

用，它提供了一套通用的屬性、方法、事件給開發(fā)人員，它的一個突出特點(diǎn)是能編程設(shè)

計控件的事件，熟習(xí)類編程的朋友對帶事件的對象聲明一定不會陌生：

---- Dim WithEvents objElemt as CElemtVBControlExtender也不例外，聲明的語法

一樣，只不過它有個特殊的事件ObjectEvent(Info As EventInfo)，它能捕捉到對象使

用RaiseEvent產(chǎn)生的所有事件，EventInfo數(shù)據(jù)結(jié)構(gòu)映射了事件的名稱、參數(shù)個數(shù)和參

數(shù)的值。VBControlExtender和 EventInfo相結(jié)合，采用Select Case 就可以預(yù)先將不

同類對象的事件放置一起，各自獨(dú)立運(yùn)作。將上面的代碼改寫一下就能提供Click事件

了：

---- Dim WithEvents oControl As VBControlExtender '帶事件聲明聲明之后您就可

以在代碼窗口的左上角的對象下拉框中發(fā)現(xiàn)該對象出現(xiàn)了，也就是說，該對象有了事件

或方法了，它的事件有DragDrop，DragOver ，LostFocus ，GotFocus ，ObjectEvent

和Validate，其中ObjectEvent是通用的事件捕捉。

Private Sub LoadControl()

Set oControl = Controls.Add

("VB. CommandButton", "MyButton")

oControl.Visible = True

End Sub

Private Sub oControl_ObjectEvent(Info As EventInfo)

Select Case Info.Name

Case "Click" 'Click事件

'您可以添加處理Click事件代碼

MsgBox "您按了MyButton!"

Case Else ' 其他事件

' Handle unknown events here.

End Select

End Sub

---- 當(dāng)然對微軟提供的標(biāo)準(zhǔn)控件能采用該方法添加，大家都不會懷疑，但自己開發(fā)的

控件也能嗎？答案是肯定的，我們可以用一個實際的例子進(jìn)行說明。

vb.net 如何區(qū)分動態(tài)加載相同控件的事件處理，如加載了兩個combox，添加事件后如何區(qū)分選擇了其中哪一個

就算有兩個combox也是不能同名的。

不會觸發(fā)同一個事件，兩個事件分開寫所以沒必要去區(qū)分，相同的部分寫到一個過程里面來調(diào)用，就算區(qū)分也可以通過獲取焦點(diǎn)在哪里來判斷。

如何在vb.net里面動態(tài)添加控件

Private WithEvents NewTextBox As TextBox

'通過使用WithEvents關(guān)鍵字聲明一個對象變量為新的命令按鈕

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub