Public?Sub?ReSetText(Control?ctrl)????????

目前成都創(chuàng)新互聯(lián)已為近千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站運營、企業(yè)網(wǎng)站設(shè)計、新鄉(xiāng)縣網(wǎng)站維護等服務(wù),公司將堅持客戶導向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
Dim?ct?As?Control
For?Each?ct?In?ctrl.Controls
Try
For?Each?ct2?As?Control?In?ct.Controls
ReSetText(ct2)
Next
Catch
End?Try
If?(TypeOf?ct?Is?TextBox)?Then
ct.Text?=?""
ElseIf?(TypeOf?ct?Is?ComboBox)?Then
Dim?cb?As?System.Windows.Forms.ComboBox?=?DirectCast(ct,?System.Windows.Forms.ComboBox)
cb.SelectedIndex?=?-1
End?If
Next
End?Sub
因為textbox在窗體里的panel里,你只遍歷窗體的控件是不夠的。
vb.net:
Dim path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories):搜索該路徑下的所有txt類型的目錄及子目錄
path.AddRange(path)
Dim _RecordInfo As String
Dim _Reader As StreamReader
_Reader = New StreamReader(file, System.Text.Encoding.Default):'以Default編碼的形式讀取file文件(文件寫入的編碼要與讀取的編碼一致)
'把下面的目錄改成你要遍歷的目錄
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir + "目錄下的所有文件包括:"
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo += Environment.NewLine + MyFile
Next
Me.RichTextBox1.Text =MyInfo
遍歷的例子:
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 在后。
網(wǎng)頁標題:vb.net如何去遍歷 vbnet遍歷控件
鏈接URL:http://chinadenli.net/article44/docijhe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供商城網(wǎng)站、域名注冊、ChatGPT、、靜態(tài)網(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)