as3遍歷對象所有屬性的方法(包含F(xiàn)lex)
創(chuàng)新互聯(lián)專注于企業(yè)成都營銷網(wǎng)站建設(shè)、網(wǎng)站重做改版、雙陽網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5高端網(wǎng)站建設(shè)、商城網(wǎng)站開發(fā)、集團公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為雙陽等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
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#?用程序轉(zhuǎn)的,也不知道對不對。你看看有沒有幫助?,這是遍歷所有控件,還有一個辦法就是重載form的消息處理函數(shù)應(yīng)該也是可以的。
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
網(wǎng)站題目:vb.net遍歷全部代碼 vb中的遍歷是什么意思
當(dāng)前URL:http://chinadenli.net/article48/hihiep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計、品牌網(wǎng)站設(shè)計、域名注冊、定制網(wǎng)站、品牌網(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)