|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
TextBox 中接受某些特定字符，例如 \'@#$%\"，简单的写法 |
| 作者：本站收集 日期：2005-8-4 11:35:36 |
|
|
方法有好几种, 以下列举二种：
| 方法1: |
可以使用 IF 或 Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦! |
| 方法2: |
将要剔除的字符统统放在一个字串中，只要一个 IF 判断即可 !! 如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!@#$%^&*()_+-=" '用来存放不接受的字符
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
End If
End Sub |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:35:36 |
|
|
|
| |
|
|
|
|
|
|
| Copyright ©2005 - 2008 IT00.COM，All Rights Reserved |
|
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]