100分关于textbox的问题（在线等待中...）

liuyi3000 2004-04-12 03:49:05

各位怎么规定textbox输入字符个数。并判断它个每一个字符。
比如说在textbox中输入1.2.3.4.5.6.7.8.9.
那么就可以使他的1.2.3.4.5.6.7.8.9.分别显示他所定义的数据到label中
请问怎么实现？

...全文

49 5 打赏收藏举报

写回复

5 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

linfuguo 2004-04-12

我是用个
onkeydown事件来处理的！

打赏
举报

回复赞

smoothwood 2004-04-12

Dim s As String = "1.2.3.4.5.6.7.8.9."
Dim ary() As String = s.Split(".")
Dim lbl As Label
For i As Integer = 0 To ary.Length - 2
lbl = New Label
lbl.Text = ary(i)
lbl.Location = New Point(i * 25, i * 25)
Me.Controls.Add(lbl)
Next

打赏
举报

回复赞

LiJoe 2004-04-12

For Each a As Char In Me.TextBox1.Text
Select Case a
Case "1"
Me.Label1.Text = a
Case "2"
Me.Label2.Text = a
Case "3"
Me.Label3.Text = a
End Select
Next

打赏
举报

回复赞

minajo21 2004-04-12

Dim myString As String = "1.2.3.4.5.6.7.8.9"
Dim myArray() As String = Split(myString, ".")

For i As Int32 = 0 To UBound(myArray)
MsgBox(myArray(i))
Next