对界面上N个输入框进行特殊字符的屏蔽,有什么快速有效的办法没?该如何解决
对界面上N个输入框进行特殊字符的屏蔽,有什么快速有效的办法没?
接到任务,要对之前他人写的代码进行修改,其中有个界面上20+个文本框,要求对每一个文本框都要禁止用户输入SQL的特殊字符,我想问下有没有什么快速有效的办法,不行的话就只好一个个拷代码了。
------解决方案--------------------
遍历控件的text属性,判断
------解决方案--------------------
这个不用遍历吧,1 to me.controls.count -1 得到什么?都知道是textbox用来输入了。就每个keypress里第一句都指向同一个函数呗,返回个整型值,如果是非法就返回个0,让keyascii = 0就行了。20个,好像不多吧,再多就用控件数组呀,有这技术还不行为什么呢?是不?呵呵。
------解决方案--------------------
在文本框控件数组的Change事件中编写:
Private Sub Text1_Change(Index as integer)
'在这里加入禁止用户输入SQL的特殊字符。
'例如:Text1(Index)<>"HH" and Text1(Index)<>"TT"
End Sub
------解决方案--------------------
如果以后常用这种,不如做个ocx,以后引用就好了。
------解决方案--------------------
窗体控制吧
接到任务,要对之前他人写的代码进行修改,其中有个界面上20+个文本框,要求对每一个文本框都要禁止用户输入SQL的特殊字符,我想问下有没有什么快速有效的办法,不行的话就只好一个个拷代码了。
------解决方案--------------------
遍历控件的text属性,判断
------解决方案--------------------
这个不用遍历吧,1 to me.controls.count -1 得到什么?都知道是textbox用来输入了。就每个keypress里第一句都指向同一个函数呗,返回个整型值,如果是非法就返回个0,让keyascii = 0就行了。20个,好像不多吧,再多就用控件数组呀,有这技术还不行为什么呢?是不?呵呵。
------解决方案--------------------
在文本框控件数组的Change事件中编写:
Private Sub Text1_Change(Index as integer)
'在这里加入禁止用户输入SQL的特殊字符。
'例如:Text1(Index)<>"HH" and Text1(Index)<>"TT"
End Sub
------解决方案--------------------
如果以后常用这种,不如做个ocx,以后引用就好了。
------解决方案--------------------
窗体控制吧