zoukankan      html  css  js  c++  java
  • 一个很不错的清空页面所有文本框内容的函数(也可随意改成页面其他控件类型) Carlwave

    Private Sub SetTextBoxValue(ByVal Page As Control, ByVal TextBoxValue As String)
        
    For Each ctl As Control In Page.Controls
                
    If TypeOf ctl Is TextBox Then
                    
    CType(ctl, TextBox).Text = TextBoxValue
                
    Else
                    
    If ctl.Controls.Count > 0 Then
                        SetTextBoxValue(ctl, TextBoxValue)
                    
    End If
                
    End If
            
    Next
    End Sub
    该函数功能见标题,
    调用例子:SetTextBoxValue(Me.Page,"想置换的string")
    如果想置换页面所有的Label,只要把
    If TypeOf ct1 Is TextBox Then中的TextBox 改成Label就行了,很不错的函数,供参考。
  • 相关阅读:
    手工测试
    测试理论
    MySQL常用语法
    Linux设置静态ip
    设计模式
    Shiro
    TreeSet和TreeMap
    UDP和反射
    Linux归纳
    Spring+SpringMVC+Mybatis整合
  • 原文地址:https://www.cnblogs.com/Carlwave/p/384572.html
Copyright © 2011-2022 走看看