可以用定時(shí)器Timer控件啊,設(shè)置循環(huán)時(shí)間間隔,比如300毫秒,
創(chuàng)新互聯(lián)專(zhuān)注骨干網(wǎng)絡(luò)服務(wù)器租用10年,服務(wù)更有保障!服務(wù)器租用,聯(lián)通機(jī)房服務(wù)器托管 成都服務(wù)器租用,成都服務(wù)器托管,骨干網(wǎng)絡(luò)帶寬,享受低延遲,高速訪問(wèn)。靈活、實(shí)現(xiàn)低成本的共享或公網(wǎng)數(shù)據(jù)中心高速帶寬的專(zhuān)屬高性能服務(wù)器。
定義N個(gè)字符串變量存儲(chǔ)要輸出的第N行內(nèi)容,然后,當(dāng)開(kāi)始執(zhí)行定時(shí)器時(shí)候,每次用不同的順序合并這N個(gè)變量,并顯示。
可以的,需要判斷控件類(lèi)型并做一下類(lèi)型轉(zhuǎn)換。
For Each c As Control In Me.Controls
If TypeOf(c) Is TextBox Then
Dim t As TextBox = CType(c ,TextBox)
'調(diào)用t的方法即可
End If
Next
Public?Sub?ReSetText(Control?ctrl)????????
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
因?yàn)閠extbox在窗體里的panel里,你只遍歷窗體的控件是不夠的。
For Each ctl As Control In Me.Controls If TryCast(ctl, TextBox) Nothing Then Dim txt As TextBox = TryCast(ctl, TextBox) txt.Text = "" End If