想请教一个问题，Vb text中只输入数字+ -，使用模块控制的，我想要源代码！还有就是如果text中输入的数据是错误的，光标返回text后，text的内容被选中，模块的源代码是什么，由于text控件比较多，不可能每个控件都添加选中text内容的代码，请问有什么好的法子吗?
在一个控件中加入限制只输入数字的代码如下，控件多的话，一个一个的加，太笨了，也太麻烦了！所以要一个模块！
Select Case KeyAscii
        Case Asc("0") To Asc("9"), vbKeyBack '允许0~9数字和退格键
   
        Case Asc(".") '允许一个小数点
            If InStr(1, ｔｅｘｔ.Text, ".") > 0 Then KeyAscii = 0
        Case Else
            KeyAscii = 0
        Beep '其他的发出Beep声音
    End Select
或
    Select Case KeyAscii
          Case Asc("-") '允许负数
                If Text1.SelStart = 0 Then
                  If Left(Text1.Text, 1) = "-" Then
                      KeyAscii = 0
                      Beep
                  End If
                Else
                  KeyAscii = 0
                  Beep
                End If
            Case 8
                  '无变化,退格键不屏蔽
            Case Asc(" ") '32
                If Text1.SelLength = 0 Then
                    KeyAscii = 0
                End If
            Case Asc(".") '46 '允许小数点
                If InStr(Text1.Text, ".") Then
                    KeyAscii = 0
                End If
            Case Is < Asc(0) '48
                  KeyAscii = 0
            Case Is > Asc(9) '57
                  KeyAscii = 0
      End Select

text内容判断错误，光标返回text后，text的内容被选中，控件多的话，一个一个的加，太笨了，也太麻烦了！所以要一个模块！
    ｔｅｘｔ.SelStart = 0
    ｔｅｘｔ.SelLength = Len(ｔｅｘｔ.Text)
    ｔｅｘｔ.Text = ｔｅｘｔ.SelText

重复的代码就不要告诉我了，我要模块！

[[italic] 本帖最后由 yxg_80 于 2007-12-17 14:38 编辑 [/italic]]

不知道你说的模块控制是什么意思.
你写一个公用的过程不就是了?.
还有.既然光标要返回text后.那还要全选text?.那光标就不在text后了.

还有.如果多控件都一样的处理.那请用控件数组.

哈哈，也许是我表达不清楚吧吧，我的意思是说在KeyPress时调用一个在ｂａｓ里的函数，来判断输入的数据是否满足要求．在按回车键光标跳到下一个ｔｅｘｔ时要判断上一个ｔｅｘｔ的内容是否符合要求，如果不符合要求，上一个ｔｅｘｔ的内容被全部选中，这样输入的时候直接输入就行了．我感觉这个选中过程对每个ｔｅｘｔ来说都是一样的，那么是否写在一个ｂａｓ里边更方便呢？
这个ｂａｓ我以前用过，当时没有好好的记住，现在也忘了，只记着这些判断过程分别写在一个ｂａｓ里边．
见笑，请高手不吝赐教！

[[italic] 本帖最后由 yxg_80 于 2007-12-17 14:46 编辑 [/italic]]

你说的公用过程也就是我想说的ｂａｓ，哈哈，我想把你的过程放到一个ｂａｓ里，以后要是再编写这样的程序直接用这个ｂａｓ就行了．
我全选ｔｅｘｔ的目的就是不要再删除ｔｅｘｔ的内容，应为原ｔｅｘｔ的内容是错的阿！我直接删除重写就行来了，要不还得删除太麻烦了，程序吗，就是做的越省劲越好嘛！

那你不就在一个Module里写一个函数.接收KeyAscii参数.返回Boolean.然后再判断一下返回值就ok了..
你想怎么判断都行.

你帮我整整阿？

解决了但是不完美！

'以下是我用的,限制文本框只能输入字母和数字的,你改一改就行了
'在KeyPress时 写一句 Call chkKeyCode(KeyAscii) 就OK
'以下代码放入Module里
Public Sub chkKeyCode(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii > 64 And KeyAscii < 123 Then
   If KeyAscii > 96 And KeyAscii < 123 Then
      KeyAscii = KeyAscii - 32
         ElseIf KeyAscii > 90 And KeyAscii < 97 Then
            Beep
               KeyAscii = 0
            End If
         ElseIf KeyAscii > 47 And KeyAscii < 58 Then
Else
    Beep
    KeyAscii = 0
End If
End Sub

谢谢楼上的！

又学习了   不错   知识永远学不完