当前位置: 首页 > 开发语言 > VB.net > VB.Net文本框提示及一次性清空

VB.Net文本框提示及一次性清空

时间:2021-01-03 19:41来源:未知 点击:
分享到:

【前言】

     第二次基础机房收费系统,在很多系统优化方面有了更多的认识,对于窗体中文本框内容是否为空的提示以及一次性清空其内容,这些在第一次的机房收费系统中进行了尝试,在这次的机房收费系统个人重构的过程中,再次产生了这一方面的需求,如何减少代码的重复率,于是对该方面进行了探究。

【具体操作】

     操作一:

     对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题,我们需要在UI层中建一个公共类,将相应的定义与函数写在该类中。

                                                                   

     操作二:

     1、在新建的公共类TextModel中声明公共内容部分

 


  1.  
    <span style="font-size:18px;">Imports System.Windows.Forms.Control
  2.  
    Imports System.Object
  3.  
    Public Class TextModel
  4.  
     
  5.  
    '定义一个结构体Term
  6.  
    Public Structure Term
  7.  
    Dim controlSub As System.Windows.Forms.Control
  8.  
    Dim strText As String
  9.  
    Sub New(ByVal controlSub As System.Windows.Forms.Control, ByVal strText As String)
  10.  
    With Me
  11.  
    .controlSub = controlSub
  12.  
    .strText = strText
  13.  
    End With
  14.  
    End Sub
  15.  
    End Structure
  16.  
     
  17.  
    '用结构体定义一个Term类型数组
  18.  
    Public Shared arrayControl() As Term</span>
     

 

     2、判断文本框中内容是否为空

     (1)在公共类中TextModel类中写入相应的函数

 


  1.  
    <span style="font-size:18px;"> '判断文本框是否为空的函数
  2.  
    Public Shared Function CIsEmpty(ByVal ArrayControl() As Term) As Boolean
  3.  
     
  4.  
    '定义一个term变量
  5.  
    Dim termControl As Term
  6.  
     
  7.  
    '遍历结构体数组中所有的元素, 如果文本框为空, 则进行相应的提示
  8.  
    For Each termControl In ArrayControl
  9.  
     
  10.  
    If TypeOf termControl.controlSub Is System.Windows.Forms.TextBox Then
  11.  
    If termControl.controlSub.Text.Trim = "" Then
  12.  
    Windows.Forms.MessageBox.Show(termControl.strText & "不能为空", "提醒", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation)
  13.  
    termControl.controlSub.Focus()
  14.  
    Return True
  15.  
    Exit Function
  16.  
    End If
  17.  
    End If
  18.  
     
  19.  
    Next
  20.  
    End Function</span>
      (2)在实际窗体中,例如在frmOnlineRecord窗体中判断文本框中内容是否为空

 

 


  1.  
    <span style="font-size:18px;">Public Class frmOnlineRecord
  2.  
     
  3.  
    '对定义的结构体进行初始化处理,定义一个过程Rdim(),来完成该功能
  4.  
    Private Sub Rdim()
  5.  
    ReDim Preserve TextModel.arrayControl(1)
  6.  
     
  7.  
    TextModel.arrayControl(0) = New TextModel.Term(txtCardID, "卡号")
  8.  
    End Sub
  9.  
     
  10.  
    Private Sub btnInquire_Click(sender As Object, e As EventArgs) Handles btnInquire.Click
  11.  
     
  12.  
    '调用Rdim过程进行数组初始化
  13.  
    Call Rdim()
  14.  
    If TextModel.CIsEmpty(TextModel.arrayControl) = True Then
  15.  
    Exit Sub
  16.  
    End If
  17.  
     
  18.  
    End Sub
  19.  
     
  20.  
    End Class</span>

 

    3、一次性清除文本框中的内容

 

  (1)在公共类TextModel中写入相应的函数

 


  1.  
    <span style="font-size:18px;"> '设置对文本框一键清除
  2.  
    Public Shared Function AllEmpty(ByVal arraycontrol() As Term) As Boolean
  3.  
    Dim termControl As Term
  4.  
     
  5.  
    For Each termControl In arraycontrol
  6.  
    If TypeOf termControl.controlSub Is Windows.Forms.TextBox Then
  7.  
    termControl.controlSub.Text = ""
  8.  
     
  9.  
    End If
  10.  
    Next
  11.  
    Return True
  12.  
    End Function</span>
 
    (2)在对应窗体中调用 AllEmpty函数,实现一次性清除文本框中的内容

  1.  
    <span style="font-size:18px;"> Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
  2.  
    Me.Hide()
  3.  
     
  4.  
    '调用Rdim(过程及AllEmpty函数)
  5.  
    Call Rdim()
  6.  
    If TextModel.AllEmpty(TextModel.arrayControl) Then
  7.  
    Exit Sub
  8.  
    End If
  9.  
    End Sub</span>

 

【学习感悟】

 

     就像米老师跟我们说过:从此,我们要开始不将就。有不满意的部分,就需要我们去改变,做到更好。这个过程需要我们积极地去探索,最怕的就是“就这样吧”、“凑活吧”、“差不多就行了”,因为一旦有了这样的心理,我们很难再有新的发现。在机房重构的过程中,自己想到了如何解决文本框的问题,在网上找了一点资料后没有找到想要的内容,想要去找别的同学寻求帮助的时候,硕硕和宋荣凯对我说:网上有很多该方面的资料,自己找找看。很感谢他们给我一个自己探索的机会,正是在这样的情况下,才产生了意想不到的收获!

 
(责任编辑:admin)
推荐教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们--网站地图          黑ICP备17004983号-1