vb.net – 在一个处理程序中处理所有文本框事件

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb.net – 在一个处理程序中处理所有文本框事件，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我知道如何处理表单中的文本框事件.但是想让这段代码更短,因为我会使用30个文本框.使用它是低效的： 
  1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TextBox1.TextChanged,TextBox2.TextChanged,TextBox3.TextChanged,TextBox4.TextChanged,TextBox5.TextChanged,TextBox6.TextChanged,TextBox7.TextChanged,TextBox8.TextChanged,TextBox9.TextChanged,TextBox10.TextChanged
  2.     Dim tb As TextBox = CType(sender,TextBox)
  3.  
  4.     Select Case tb.Name
  5.         Case "TextBox1"
  6.             MsgBox(tb.Text)
  7.         Case "TextBox2"
  8.             MsgBox(tb.Text)
  9.     End Select
  10. End Sub

有没有办法缩短处理程序？

您可以通过编程方式使用 Controls.OfType AddHandler.例如： 
  1. Dim textBoxes = Me.Controls.OfType(Of TextBox)()
  2. For Each txt In textBoxes
  3.     AddHandler txt.TextChanged,AddressOf txtTextChanged
  4. Next

一个处理程序为所有：

  1. Private Sub txtTextChanged(sender As Object,e As EventArgs)
  2.     Dim txt = DirectCast(sender,TextBox)
  3.     Select Case txt.Name
  4.         Case "TextBox1"
  5.             MsgBox(txt.Text)
  6.         Case "TextBox2"
  7.             MsgBox(txt.Text)
  8.     End Select
  9. End Sub

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积