关于判断文本框只能输入数字并限定位数的问题！请天同回答！

关于一个检查字符串的函数：就是手机号码注册部分的判断，在TEXTBOX中判断  
   
  说明：限定文本框只能输入11位字符，而且只能为数字，其他不行！并要有相关提示信息，，前面的两位要是“13”。 问题点数：100、回复次数：2Top

1 楼jyu1221（天同）回复于 2002-05-24 11:29:17 得分 100

Function   TestMobileNumber(ByVal   strNumber   As   String)   As   Boolean  
  On   Error   GoTo   lerr:  
  Dim   cNumber   As   Currency  
  cNumber   =   FormatCurrency(strNumber,   "00000000000")  
  If   cNumber   <   13000000000#   Then  
          TestMobileNumber   =   False  
          Exit   Function  
  End   If  
   
  If   cNumber   >=   14000000000#   Then  
          TestMobileNumber   =   False  
          Exit   Function  
  End   If  
   
  If   cNumber   &   ""   =   strNumber   Then  
          TestMobileNumber   =   True  
  Else  
          TestMobileNumber   =   False  
  End   If  
  Exit   Function  
  lerr:  
  TestMobileNumber   =   False  
  End   Function  
  Top

2 楼IsMe（海底捞针）回复于 2002-05-24 11:56:42 得分 0

private   sub   text1_keypress(keyascii   as   integer)  
    select   case   keyscii  
    case   asc("0")   to   asc("9")  
       
    case   else  
          keyascii=0  
    end   select  
  end   sub  
  private   sub   text1_change()  
    dim   I   as   integer  
    if   text1.tag=""   then  
          i=text1.selstart  
          text1.tag="1"  
          if   not   isnumeric(text1.text)   then  
              text1.text=""  
          endif  
          if   left(text1.text,2)<>"13"   then  
              text1.text="13"   &   text1.text  
          end   if  
          text1.text=left(text1.text   &   "000000000",11)  
          text1.selstart=i  
          text1.tag=""  
    end   if  
  end   subTop

相关问题

• tag
• testmobilenumber
• text1
• 判断
• cnumber
• strnumber
• 只能
• sub
• then
• case

• 帖主：coddysun
• jyu1221

• Visual Basic类图书
• Visual Basic类源码下载