如何通過字符數據從一個文本框分割在VB中multicoloum和多6

我用VB 6，因爲我的老師向我挑戰由VB 6 做出PROGRAMM我在文本框的數據是這樣的：如何通過字符數據從一個文本框分割在VB中multicoloum和多6

我想將3種類型的數據分成3種顏色，如表格。我知道如何將數據由字符使用這種類型的代碼分割：（「」 Text1.Text）

一個=分段（0）

和因爲我不知道如何使一個表中的VB 6，我把它們分成3個文本框。但它只是分裂1行。第二行不起作用。

這是我的代碼：

Dim a As String 
Dim b As String 
Dim c As String 

Private Sub Command1_Click() 
a = Split(Text1.Text, ".")(0) 
b = Split(Text1.Text, ".")(1) 
c = Split(Text1.Text, ".")(2) 
Text2.Text = a 
Text3.Text = b 
Text4.Text = c 

End Sub

請幫助我。

來源

2017-06-22 diasti putri

......是不是你的老師已經是SO成員？ – deblocker

@deblocker不，他不是：'） –

您必須使用listbox代替文本框，然後才能逐行讀寫。

Private Function GetItemText(i As Integer) As String 
    'Return the text of the item using the index: 
    GetItemText = ListBox1.List(i) 
End Function

來源

2017-06-22 06:54:54 Rinos

謝謝你的建議:)我用listbox就像你告訴我的，但代碼不是這樣，因爲這不是vb6的代碼hehe，但thankyouuuu –

布魯諾，你能幫我更多？分裂的結果如何不是列表框，而是列表視圖？這樣的ListView有明杆3（A，B，C）請幫幫我，thankyouu –

您可以創建一個列表框柱：'ListBox1.ColumnCount = 3 ListBox1.Columnwidths = 「100,100,100」 ListBox1.AddListItem（「ROW1 COL1」 1,1） ListBox1.AddListItem（「row1 col2」，1,2） ListBox1.AddListItem（「row1 col3」，1,3） ListBox1.AddListItem（「row2 col2」，2,2）' – Rinos

首先，您必須拆分線，接下來您必須按每行拆分值。這應該工作：

Dim i as Long 
Dim sLines() As String 
Dim sValues() As String 
sLines() = Split(Text1.Text, vbCrLf) 
For i = 0 to UBound(slines) 
    If sLines(i) > vbNullString Then ' skip for empty line 
     sValues() = Split(sLines(i), ".") 
     Text2.Text = Text2.Text & sValues(0) & vbCrLf 
     Text3.Text = Text3.Text & sValues(1) & vbCrLf 
     Text4.Text = Text4.Text & sValues(2) & vbCrLf 
    End If 
Next i

來源

2017-06-22 08:12:30

此代碼只是把最後的名單分開。所以第一行不顯示在結果中。 :( –

查看更新的代碼確保所有的文本框設置Multiline = True –

謝謝你這麼多它的工作!!! :)）） –

如何通過字符數據從一個文本框分割在VB中multicoloum和多6

回答

相關問題