VB.NET 如何動態(tài)添加組件，如FileSystemWatcher，并且響應(yīng)同一事件？

For Each i In My.Computer.FileSystem.Drives

成都創(chuàng)新互聯(lián)公司成立于2013年，先為察布查爾錫伯等服務(wù)建站，察布查爾錫伯等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為察布查爾錫伯企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

Dim FSW As New FileSystemWatcher

FSW.NotifyFilter = NotifyFilters.FileName

FSW.Path = i.Name.ToString

FSW.Filter = "*.txt"

AddHandler FSW.Changed, AddressOf FileSystemWatcher1_Changed '與FileSystemWatcher1_Changed事件綁定，以下同。

AddHandler FSW.Created, AddressOf FileSystemWatcher1_Created

AddHandler FSW.Deleted, AddressOf FileSystemWatcher1_Deleted

AddHandler FSW.Disposed, AddressOf FileSystemWatcher1_Disposed

AddHandler FSW.Error, AddressOf FileSystemWatcher1_Error

AddHandler FSW.Renamed, AddressOf FileSystemWatcher1_Renamed

FSW.EnableRaisingEvents = True

Next

上面代碼放到一個調(diào)用過程中

Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created

‘我用fsw的path屬性區(qū)別多個分區(qū)，你用自己的代碼就行，如果你沒有創(chuàng)建FileSystemWatcher1，就把Handles FileSystemWatcher1.Created刪除。

If sender.path = "C:\" Then

'代碼

ElseIf sender.path = "D:\" Then

'代碼

ElseIf sender.path = "F:\" Then

ElseIf sender.path = "H:\" Then

'……

End If

End Sub

vb.net 如何在一個項目中創(chuàng)建類，并且使用他?

在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。

示例：

public class form1

‘創(chuàng)建一個屬于form的子類，名稱為【類名】。

public class 類名

’定義類成員text

public text as string

end class

‘定義一個【類名】類的公共變量。

dim 類名1 as 類名

’定義一個過程，使用【類名】類的text成員

public sub 過程

‘實例化【類名1】

類名1=new 類名

類名1.text=“賦值”

’定義一個【新類】類的私用變量，并實例化。

dim 新類1 as new 新類

新類1.name=“一個字符串”

新類1.age=12

end sub

end class

‘’‘創(chuàng)建一個與form同級的類，名稱為【新類】

public class 新類

public sub new（）

end sub

public name as string

public age as integer

end class

在模塊中使用：

public class module1

dim a as new form1.類名

end module

vb.net的COM組件的編寫問題

我想了兩種思路，winform沒有findControl，只有個this.Controls.Contains("textBox1")，因此除了遍歷沒辦法了。。。

思路1：遍歷Controls，具體你自己完善下，

if(this.Controls.Count0)

{

foreach(Control c in this.Controls)

if(c.GetTepy==Tepyof(TextBox))

string str += ((TextBox)c).Text;

}