想做一个文本框，纯数字输入，其它输入提示出错，长度为5
调试时(nbyte(j) > 48 And nbyte(j) < 57) j=1时，nbyte（j）ASC码为0
有没有字符串直接转数组检测的函数直接调用啊？？

Private Sub Command1_Click()
Dim i As String
Dim j%
Dim nbyte() As Byte
i = Text1.Text
If Len(i) > 5 Then
i = "长度溢出"
Else:
nbyte() = i
For j = 0 To Len(i) - 1
If (nbyte(j) > 48 And nbyte(j) < 57) Then
Else:
i = "非法字符"
Exit For
End If
Next j
Text1.Text = i
End If
End Sub

定义一个不定长的Byte型数组，将字符串转成vbFromUnicode编码，然后直接赋值给数组就行了。如下：

Dim Byte_data() as byte
byte_Data=strconv("ABCDEFG0000a@ddfa#",vbFromUnicode)

不过如果你只是想让一个文本框只能输入数字的话你可以在KeyPress事件中处理。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < &H30 Or KeyAscii > &H39) And KeyAscii > &H1F And KeyAscii < &H7F Then KeyAscii = 0
End Sub

[此贴子已经被作者于2007-5-13 21:41:18编辑过]

ok了 谢了！~