Posted on 2007-09-07 13:17
石头 阅读(1734)
评论(0) 编辑 收藏 引用 所属分类:
.NET技术
最近,在做一个业务系统,发现新增界面空间太多,操作起来及耗费时间,保存,清空都不方便,于是想了一想,自己写了两个函数,开发周期大大缩短,贴出来,供大家参考,有什么更好的方式或思想,也希望提出来,大家一起研究,共同进步,把我们的软件开发水平提高
以下是代码:
清空窗体内文本框中的值,您可以换成其他控件,就可以满足同等需求,代码很简单,只是提供方法
Public Shared Sub Clear(ByRef obj As Control)
For Each ctl As Control In obj.Controls
If TypeOf (ctl) Is TextBox Then
ctl.Text = ""
End If
If Not ctl.Controls Is Nothing Then
Clear(ctl)
End If
Next
End Sub