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
  • 打赏
  • 举报
回复
LoveEgg 2004-04-12
“ 那么就可以使他的1.2.3.4.5.6.7.8.9.分别显示他所定义的数据到label中 ”

我理解不清楚,能不能说明白点?
  • 打赏
  • 举报
回复
发帖
VB

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
帖子事件
创建了帖子
2004-04-12 03:49
社区公告
暂无公告