TextBox中接受某些特定字符，例如@#$，簡單的寫法

方法有好幾種,以下列舉二種：

-valign="top"width="48">方法1:->-width="703">可以使用IF或SelectCase一個個判斷,但如果不接受的字符多時,較麻煩!->-valign="top"width="48">方法2:->-width="703">將要剔除的字符統統放在一個字串中，只要一個IF判斷即可!!如下：

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
　　DimsTemplateAsString
　　sTemplate="!@#$^&*()_ -="'用來存放不接受的字符
　　IfInStr(1,sTemplate,Chr(KeyAscii))>0Then
　　KeyAscii=0
　　EndIf
　　EndSub->