你需要的應(yīng)該是反射,類似如下,我測試通過的:

站在用戶的角度思考問題,與客戶深入溝通,找到榆林網(wǎng)站設(shè)計與榆林網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、申請域名、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋榆林地區(qū)。
Imports?System.Reflection
Public?Class?Form1
Public?Sub?MMMToolStripMenuItem_Click(sender?As?Object,?e?As?EventArgs)?Handles?MMMToolStripMenuItem.Click
MsgBox("menu?click")
End?Sub
'在按鈕事件處理里面通過反射名稱調(diào)用相應(yīng)菜單事件
Public?Sub?CallEventMethod(sender?As?Object,?e?As?EventArgs)
Dim?b?As?Button?=?sender?'獲取點擊的按鈕
'拼接菜單事件名稱
Dim?MethodName?As?String?=?b.Name??"ToolStripMenuItem_Click"
Dim?t?As?Type?=?Me.GetType
Dim?m?As?MethodInfo?=?t.GetMethod(MethodName)
'反射方法
m.Invoke(Me,?New?Object()?{Nothing,?Nothing})
End?Sub
'動態(tài)生成了按鈕
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?btn?As?New?Button
btn.Location?=?New?Point(100,?100)
btn.Name?=?"MMM"?'關(guān)鍵
btn.Text?=?"MMM"
'注冊事件
AddHandler?btn.Click,?AddressOf?Me.CallEventMethod
Me.Controls.Add(btn)?
End?Sub
End?Class
'這是數(shù)組的一個方法了,可是可以給數(shù)組定義擴展方法來實現(xiàn)這種形式。不過要給Item每個成員能動態(tài)生成相應(yīng)方法,想不出其它簡單點的辦法,只能一個一個的添加擴展方法。
Namespace?測試
Public?Class?Item
Public?Number()?As?String
Public?Name?As?String
Public?Symbol?As?String
Public?Value?As?Single
Public?Unit?As?String
Public?Description?As?String
Public?Remarks?As?String
End?Class
Public?Class?XX
Public?tty()?As?Item
Public?Sub?New()
tty(0).Name?=?"Women"
tty(0).Value?=?198000
tty(1).Name?=?"temen"
tty.Name("temen").Value?=?99999
End?Sub
End?Class
Public?Module?Module1
System.Runtime.CompilerServices.Extension()?_?
Public?Function?Name(ByVal?she?As?Item(),?ByVal?key?As?String)?As?Item?'定義擴展方法功能?在net.3.5前的版本像似沒有。
For?Each?it?In?she
If?it.Name?=?key?Then
Return?it
End?If
Next
Return?Nothing
End?Function
End?Module
End?Namespace
增加事件用 AddHandler 語句
AddHandler xxxx.click Addressof xxxx()
一個 sub 可以接受多個 click 事件
似有控件遍歷窗體控件集合,或在控件集合中查詢該控件名字,公用控件直接名字
網(wǎng)站名稱:vb.net動態(tài)生成類,vb動態(tài)庫制作
網(wǎng)頁地址:http://chinadenli.net/article7/dsgejoj.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、營銷型網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、域名注冊、微信小程序、動態(tài)網(wǎng)站
聲明:本網(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)