تکست بوکس TextBox

[meisambandari]

سلام.
من سوالی داشتم در مورد تکست بوکس
سوالم اینطوره که مثلا در یک فرمسه تکست بوکس داریم که در یکی از تکست بوکسها عدد و حروف تایپ شده و حالا من میخوام که عدد و حروف در این تکست بوکس جدا بشه و به دو تکست بوکس دیگه بره یعنی عدد در تکست بوکس دیگه بره و حروف هم در تکست بوکس دیگه.... راهنمایی کنید ممنون میشم.

[ƒxmahdi]

با فرض اینکه رشته مورد نظر ما در Text1 است با کد زیر اعداد در Text2 و حروف در Text3 قرار می گیرند

For i = 1 To Len(Text1.Text)
str1 = Mid(Text1.Text, i, 1)
If IsNumeric(str1) = True Then
Text2.Text = Text2.Text & str1
Else
Text3.Text = Text3.Text & str1
End If
Next i

[.:KeihanCPU:.]

اینم یه راه حل قانونی



Private Sub cmdCmpar_Click()
If Not IsNumeric(Text1.Text) Then Label1.Caption = "just integer": Exit Sub
End Sub