vb.net & 文本框为空提示，一键清空文本框所有内容

最新推荐文章于 2020-11-18 17:46:33 发布

hytweafs

最新推荐文章于 2020-11-18 17:46:33 发布

阅读量3.8k

点赞数 1

本文链接：https://blog.csdn.net/hytweafs/article/details/43925593

版权

这篇博客介绍了如何在VB.NET中创建一个Model类，用于处理文本框的空值检查和一键清空内容。通过定义Term结构体，封装Control和提示文本，博主展示了如何遍历文本框并显示提示，以及如何实现一键清除所有文本框内容的功能。

摘要由CSDN通过智能技术生成

已经第二次机房收费系统重构了，一遍当然得有一遍的效果，正如对于文本框为空的提示方法，回顾第一遍机房，那些傻里傻气的If语句让自己对代码的亲和度大打折扣啊！那么到底有什么办法解决那些重复性的判断呢？这时候我们就要提到所谓的Model窗体了。在Model窗体中，建立一个封装数组，当窗体中需要判断大量文本框为空的时候，只需简单的调用即可。

新建一个Model类，来存放公共需要的部分。

1、定义一个结构体Term，且用结构体封装一个数组

[vb] view plain copy print ?

Public Structure Term '定义结构体term
Dim controlSub As Control
Dim strText As String
Sub New(ByVal controlSub As Control, ByVal strText As String) '初始化对象
With Me
.controlSub = controlSub
.strText = strText
End With
End Sub

 Public Structure Term   '定义结构体term
        Dim controlSub As Control
        Dim strText As String
        Sub New(ByVal controlSub As Control, ByVal strText As String)  '初始化对象
            With Me
                .controlSub = controlSub
                .strText = strText
            End With
        End Sub

2、用结构体定义一个Term类型数组

[vb] view plain copy print ?