“审核”的CheckedChanged事件：Dim TextBox1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim TextBox2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim TextBox3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim TextBox4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim tbs() As WinForm.TextBox = {TextBox1,TextBox2,TextBox3,TextBox4}
For Each tb As WinForm.TextBox In tbs
tb.ReadOnly = iif( e.sender.Checked = True,1,0)
Next
加好友 
发短信
Post By：2016/10/22 8:00:00 [显示全部帖子]
