as3遍歷對象所有屬性的方法(包含F(xiàn)lex)

創(chuàng)新互聯(lián)專注于企業(yè)成都營銷網站建設、網站重做改版、雙陽網站定制設計、自適應品牌網站建設、H5高端網站建設、商城網站開發(fā)、集團公司官網建設、成都外貿網站制作、高端網站制作、響應式網頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為雙陽等各大城市提供網站開發(fā)制作服務。
1、所有對象,包括靜態(tài)屬性和動態(tài)屬性
ObjectUtil.getClassInfo(this._arr[0]).properties as Array
2、僅能遍歷靜態(tài)屬性
var o:Object=new Object();
o.name='mm';
o.type='size';
o.size='32D';
for (var i:String in o)
{
trace(i);
trace(o[i]);
}
3、可以遍歷所有屬性,需要解析XML,比較麻煩
flash.utils.describeType
var oXml:XML=describeType(o);
遍歷的例子:
Dim i, j As Integer
For i = 0 To DataGridView1.RowCount - 1
For j = 0 To DataGridView1.ColumnCount - 1
MsgBox(DataGridView1.Item(j, i).Value)
Next
Next
注意:與Excel的單元格命名規(guī)則不一樣,這里的 Item(j, i) 中,列號 j 在前,行號 i 在后。
Public?Sub?GetAllControls(ByVal?InContainer?As?Control,?ByRef?RecieveList?As?ListBox)
For?i?As?Integer?=?0?To?InContainer.Controls.Count?-?1
If?InContainer.Controls.Item(i).Text??""?Then
GetList.Items.Add(InContainer.Controls.Item(i).Text??vbCrLf)
End?If
If?InContainer.Controls.Item(i).Controls.Count??0?Then
GetAllControls(InContainer.Controls.Item(i),?GetList)
End?If
Next
End?Sub
這段代碼可行,但不能遍歷菜單和工具欄,要按需要修改
IO.Directory.GetDirectories("文件夾") '獲取文件夾中的所有子文件夾路徑。
IO.Directory.GetFiles("文件夾") '獲取文件夾下所有文件的路徑。
'子文件夾的子文件夾,用遞歸;
c#?用程序轉的,也不知道對不對。你看看有沒有幫助?,這是遍歷所有控件,還有一個辦法就是重載form的消息處理函數應該也是可以的。
STAThread?_
Public?Shared?Sub?Main(args?As?String())
Dim?button?=?New?Button()
button.Text?=?"我是按鈕"
button.Dock?=?DockStyle.Fill
Dim?form?=?New?Form()
form.Controls.Add(button)
CapturehMouseClickEvent(form)
form.ShowDialog()
End?Sub
Private?Shared?Sub?CapturehMouseClickEvent(control?As?Control)
AddHandler?control.Click,?AddressOf?ControlOnClick
For?Each?subControl?As?Control?In?control.Controls
CapturehMouseClickEvent(subControl)
Next
End?Sub
Private?Shared?Sub?ControlOnClick(sender?As?Object,?eventArgs?As?EventArgs)
Debug.WriteLine("控制被單擊")
End?Sub
網站題目:vb.net遍歷全部代碼 vb中的遍歷是什么意思
當前URL:http://www.yijiale78.com/article48/hihiep.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供網站設計、品牌網站設計、域名注冊、定制網站、品牌網站制作、
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)