-2

好的，所以我试图制作这个程序，我需要这个：“Melternet Hello Melternet@gmail.com 5/7/2013”​​像这样在不同的文本框中

“Textbox1 = Melternet”

“文本框 2 = 你好”

“Textbox3 = Melternet@gmail.com”

“文本框 4 = 2013 年 5 月 7 日”

因此，几乎每个空格都是将该文本添加到文本框的截止线，然后它会像第一个一样完成其余部分

我将如何做这样的事情，在此先感谢。

如果有人能解决这个问题或帮助我，请尽快回复...

顺便说一句：我正在使用 Visual Basic 2008。

4

2 回答 2

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
于 2013-05-08T23:05:45.700 回答
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 上动态创建/放置的新文本框，即“我”。

于 2015-02-18T02:33:44.310 回答