從文件中動態讀取並在表單加載中顯示

Question

我有兩個文本文件，分別包含每行（每行中的每個字）中的單個字和sObj.txt，每行還包含單個字（但條目數更多這個文件比在sQue.txt中）。

現在，我有，我想讀上面兩個文件&的方式顯示他們一個空白表單這樣的：

1. 從sQue.txt文件中的每個條目被顯示在單獨的標籤中表格

2. 將文件sObj.txt的所有條目放在CheckedListBox中&這個CheckedListBox對於上面第1點中顯示的每個標籤都會出現。

實施例：

sObj.txt contains 3 entries aaa, bbb & ccc (vertically i.e each in new line). sQue.txt contains 5 entries p,q,r,s & t (vertically i.e each in new line).

現在，當形式負載，3個標籤看出與文本AAA，BBB CCC &。另外3個CheckedListBoxes在每個盒子中看到包含p,q,r,s & t。

可以這樣做嗎？我試圖找到一個沒有運氣的解決方案。

請幫忙。

到目前爲止我只有

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim queue As String() = IO.File.ReadAllLines("C:\temp\sQue.txt") 
    Dim objects As String() = IO.File.ReadAllLines("C:\temp\sObj.txt") 

    For i = 0 To queue.Count - 1 
    'create labels here 
     For j=0 to objects.Count - 1 
     'create CheckedListBoxes 
     Next 
    Next 
End Sub 

Answer 1

這是很容易做到：

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim theAppDirectory = IO.Path.GetDirectoryName(Application.ExecutablePath) 

    Dim queue As String() = IO.File.ReadAllLines(theAppDirectory & "\que.txt") 
    Dim objects As String() = IO.File.ReadAllLines(theAppDirectory & "\obj.txt") 

    Dim top As Integer = 10 
    Dim left As Integer = 10 
    Dim I As Integer = 0 
    Dim J As Integer = 0 

    Dim aLabel As Label 
    Dim aListCheckBox As CheckedListBox 

    Dim aPanel As New Panel 
    aPanel.Dock = DockStyle.Fill 
    aPanel.Top = 0 
    aPanel.Left = 0 
    aPanel.AutoScroll = True 

    For I = 0 To queue.Count - 1 
     aLabel = New Label 
     aLabel.Text = queue(I) 
     aLabel.Top = top 
     aLabel.Left = left 

     aListCheckBox = New CheckedListBox 
     aListCheckBox.Top = top 
     aListCheckBox.Left = left + 100 
     For J = 0 To objects.Count - 1 
      aListCheckBox.Items.Add(objects(J), False) 
      top += 20 
     Next J 

     'add event handlers here 

     aPanel.Controls.Add(aLabel) 
     aPanel.Controls.Add(aListCheckBox) 
    Next I 

    Me.Controls.Add(aPanel) 
End Sub 

這是假設你要的文件是在同一目錄下的可執行文件。

還沒有添加事件處理程序。您需要確定所需的事件處理程序，並在創建控件時添加它們。