在Visual Basic中将文本添加到文本框中

时间:2013-05-08 22:57:14

标签: vb.net razor excel-vba vb.net-2010 vba

好的,所以我试着制作这个节目,我需要这个: “Melternet Hello Melternet@gmail.com 5/7/2013”​​将出现在这样的不同文本框中

“Textbox1 = Melternet”

“Textbox2 = Hello”

“Textbox3 = Melternet@gmail.com”

“Textbox4 = 5/7/2013”​​

所以几乎每个空间都是一条截断线,用于将文本添加到文本框中,然后像第一个那样完成剩下的工作

如果事先感谢,我将如何做到这一点。

请回答如果任何人可以解决这个问题或帮助我,需要这个快速...

BTW:我正在使用Visual Basic 2008。

2 个答案:

答案 0 :(得分:2)

没有更多信息......如:

    Dim data As String = "Melternet Hello Melternet@gmail.com 5/7/2013"
    Dim values() As String = data.Split(" ")
    If values.Length >= 4 Then
        TextBox1.Text = values(0)
        TextBox2.Text = values(1)
        TextBox3.Text = values(2)
        TextBox4.Text = values(3)
    End If

答案 1 :(得分:0)

看起来你只是简单地拆分整个输入文本字符串:" Melternet Hello Melternet@gmail.com 5/7/2013"空间发生的地方,是(?)

如果您的字符串具有可变数量的单词,则以编程方式填写文本框,例如:

Dim mystr as String
mystr = "hello world I want to paste this to multiple textboxes"

Dim Buff() as String
Buff = Split(mystr," ")
For i As Integer = 0 to UBound(Buff)
  Dim tb As New TextBox
  str = Buff(i)
  tb.Name = str
  tb.Text = str
  tb.Left = 50 
  tb.Top = 50 + 25 * i
  tb.Width = 50
  tb.TextAlign = HorizontalAlignment.Right
  Me.Controls.Add(tb)
Next

以上述方式,无论mystr的值是什么,或者字符串中有多少单词(mystr),你都可以将它们全部写入在Form1上动态创建/放置的新文本框,即"我"