vb textbox的小问题

[LiJun12112003]

初学vb，有几个关于textbox控件的问题不太清楚：
1〉如何判断textbox控件中输入的内容是数字还是英文字母？
2〉如何获得textbox控件中输入内容的第一个（或者第二个第三个……）字符是否与指定的字符相符？
在线等！！

[haoztao]

用正则表达式。。你找点这方面的资料。。

[hamadou]

1.
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9"
MessageBox.Show("数字")
Case "A" To "z"
MessageBox.Show("字母")
End Select
End Sub
2.用正则应该是最简单的！

[True1024]

'1用正则表达式.(目前还没用过)
'2用下面这些方法.

'如果是数字的话.
'If IsNumeric(Text1.Text) = True Then
'End If

Public Function PanDuan(ByVal str As String) As Boolean
Dim Eng As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghigklmnopqrstuvwxyz"
PanDuan = True
Dim i As Integer
For i = 1 To Len(str)
If Eng.IndexOf(Mid(str, i, 1)) = -1 Then
PanDuan = False
End If
Next
End Function

第二个问题用 Mid 函数也能解决.

[LiJun12112003]

谢谢大家的帮忙，更具大家的帮助，我已经解决了这个问题，因为我是初学，未接触正则表达式，所以用的是true1024的方法，特别感谢！！

[haoco]

up