99偷拍视频精品区一区二,口述久久久久久久久久久久,国产精品夫妇激情啪发布,成人永久免费网站在线观看,国产精品高清免费在线,青青草在线观看视频观看,久久久久久国产一区,天天婷婷久久18禁,日韩动漫av在线播放直播

vb.net新建組件類的簡單介紹

VB.NET 如何動態添加組件,如FileSystemWatcher,并且響應同一事件?

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

vb.net 如何在一個項目中創建類,并且使用他?

在任意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

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;

}

本文名稱:vb.net新建組件類的簡單介紹
URL標題:http://www.yijiale78.com/article22/dsgodcc.html

成都網站建設公司_創新互聯,為您提供網站改版、微信公眾號、微信小程序、品牌網站建設、營銷型網站建設

廣告

聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯

h5響應式網站建設