For Each i In My.Computer.FileSystem.Drives
成都創新互聯公司成立于2013年,先為察布查爾錫伯等服務建站,察布查爾錫伯等地企業,進行企業商務咨詢服務。為察布查爾錫伯企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。
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
上面代碼放到一個調用過程中
Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created
‘我用fsw的path屬性區別多個分區,你用自己的代碼就行,如果你沒有創建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
在任意form類或模塊中都可以創建類,跟建立函數和過程一樣。
示例:
public class form1
‘創建一個屬于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
‘’‘創建一個與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
我想了兩種思路,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;
}
本文名稱:vb.net新建組件類的簡單介紹
URL標題:http://www.yijiale78.com/article22/dsgodcc.html
成都網站建設公司_創新互聯,為您提供網站改版、微信公眾號、、微信小程序、品牌網站建設、營銷型網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯