老话重提：在TEXT文本框(数组控件)中只某个控件只允许输入数字，如何实现？

Question

for i=0 to 100
    if i=40 then
         if not isnumeric(textbox(i)) then  
              msgbox "textbox(40)框必须输入数字！"
              exit for
         end if
    end if
next

Answer 1

'在Text1_KeyPress事件If KeyAscii = 8 Then Exit Sub  '开放Backspace键，供修改
If KeyAscii = 13 Then     '开放回车键
    
End IfIf KeyAscii < 48 Or KeyAscii > 57 Then
       KeyAscii = 0
       
End If

Answer 2

Private Sub Text1_KeyPress(keyascii As Integer)
  If keyascii < Asc("0") Or keyascii > Asc("9") Then
    If keyascii = vbKeyReturn Or keyascii = vbKeyBack Or keyascii=vbKeyTab Then(至于哪些按键不做处理，自己加吧)
    Else
        keyascii = 0
    End If
  End If
End Sub这样是可以的，我有试过。（当然要控制粘贴来的字符串，需要有其它的处理）

Answer 3

Amoon(阿木)　兄的答案有点对，但问题是我这个文本控件是控件组里的一个，我不想每个按键动作都触动到这个事件。
yiwei(垃圾)　兄说得好，但我用了控件组就是为了软件更小一点，不想太大了，呵呵...
skydg(飞龙)　兄，那句的意思是确认增加的按钮以及确认更新的按钮的CLICK事件里判断。
skydg(飞龙)　兄，我是七尺须眉，可否相识？邮件可留吗？我的是[email protected]
xmao(小猫)　兄的意思可是判断整个控件组？那么，如果真的有一百个控件，在第99个控件里有误，离开，修改后再进入循环...

Answer 4

子类化TextBox控件
用SetWoindowLong函数试试吧

Answer 5

先定义一个枚举类型,其中只包括0-9数字,然后判别TEXT.TEXT中的内容是否属于0-9中的任意一个值得,如果不是,就抱错