關于遍歷VB點虐 窗體里面控件的問題

可以的，需要判斷控件類滑迅型并做一肆讓頃裂陸下類型轉換。

創(chuàng)新互聯長期為千余家客戶提供的網站建設服務，團隊從業(yè)經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯網生態(tài)環(huán)境。為無極企業(yè)提供專業(yè)的成都做網站、網站制作，無極網站改版等技術服務。擁有十多年豐富建站經驗和眾多成功案例,為您定制開發(fā)。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'調用t的方法即可

End If

Next

vb點虐 遍歷正在運行的雖有窗口和句柄

For Each i As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses

Next

vb點虐 歷遍項目的窗體

Private?Sub?槐棗Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?myAssembly?As?System.Reflection.Assembly?=?System.Reflection.Assembly.GetExecutingAssembly()

Dim?TheTypes?As?Type()?=?myAssembly.GetTypes()

Dim?myType?As?Type

寬羨?For?Each?myType?In?TheTypes

If?myType.BaseType.ToString?=?"System.Windows.Forms.Form"?Then

慎明拍?????????????ListBox1.Items.Add(myType.Name)

End?If

Next

End?Sub

vb點虐 中如何遍歷程序窗體中的控件？并讀寫控件的數據。

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

這段代碼可行，但不能遍歷菜單和工顫舉具欄，要按需要修改

本文名稱：vb點虐 窗口遍歷 vb findwindowex 遍歷窗口
URL分享：http://www.chinadenli.net/article10/ddpsigo.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站營銷、網站改版、品牌網站設計、自適應網站、微信公眾號、關鍵詞優(yōu)化

廣告

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