VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 一次清除窗体上所有文本框的内容
发表评论(0)作者:, 平台:, 阅读:30801, 日期:2000-03-25
文章主题: 一次清除窗体上所有文本框的内容

文章作者: 小屠

文章来源: VBNOW

文章内容: 小屠以前曾编写过一些小程序,有时需要将Form中所有的TextBox内容清空,而Form里的TextBox又特别多,这时最让小屠头疼了,一条一条语句的写:

TextBoxName.Text=""

如果有十几个TextBox的话...(哇,我的命真苦啊)后来想到用控件数组,虽然语句少了,仅需:

For i=1 to n

TextBoxArray(i).Text=""

Next

可是每一个TextBox的Name都一样,反而降低了程序的编程质量和可读性。难到真的没法子即使语句短小精悍,又保持程序的可读性吗?

当小屠学到对象的应用后,茅塞顿开,和不利用对象所属的类的属性来实现呢?

Public Sub ClearAllTextBox(frm As Form)

Dim ctl As Object

For Each ctl In frm

if TypeOf ctl Is TextBox Then

ctl.Text=""

end if

Next

End Sub

哈哈,轻松搞定,就这么简单!




本站所引用的文章、原代码、控件等素材版权归其原始作者所有。