동적 Groupbox 및 Checkedlistbox 항목을 저장하는 방법

Question

이 코드를 사용하여 sQue.txt 파일에서 GroupBox 읽기를 작성하고 sObj.txt 파일에서 CheckedListBox 읽는 중입니다. 양식이로드되면 sQue.txt의 항목 수에 따라 여러 GB가 생성되고 각 GB에는 sObj.txt의 항목이있는 CLB가 통합됩니다. 다음은 작업 코드입니다.

Imports System.IO 

Public Class Form1 

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles  MyBase.Load 
    Dim NewForm2 As New Form2 
    NewForm2.Show() 
    Dim sObj() As String = File.ReadAllLines("C:\temp\sQue.txt") 
    Dim sQue() As String = File.ReadAllLines("C:\temp\sObj.txt") 
    For Each s As String In sObj 
     Me.Controls.Add(MakeNewGB(s, sQue)) 
    Next 

End Sub 
End Class 
Public Module Module1 
Friend WithEvents NewGB As System.Windows.Forms.GroupBox 
Friend WithEvents NewCLB As System.Windows.Forms.CheckedListBox 
Public NextColumn As Integer = 0 
Public Function MakeNewGB(lbl As String, clbItems() As String) As GroupBox 
    NewGB = New System.Windows.Forms.GroupBox() 
    NewCLB = New System.Windows.Forms.CheckedListBox() 
    NewGB.SuspendLayout() 
    'GroupBox1 
    ' 
    NewGB.Controls.Add(NewCLB) 
    NewGB.Location = New System.Drawing.Point(NextColumn, 0) 
    NewGB.Name = lbl 
    NewGB.Size = New System.Drawing.Size(126, 210) 
    NewGB.TabIndex = 0 
    NewGB.TabStop = False 
    NewGB.Text = lbl 
    ' 
    'CheckedListBox1 
    ' 
    NewCLB.FormattingEnabled = True 
    NewCLB.Location = New System.Drawing.Point(6, 19) 
    NewCLB.Name = "clb" + lbl 
    NewCLB.Size = New System.Drawing.Size(103, 184) 
    NewCLB.TabIndex = 0 
    NewCLB.Items.AddRange(clbItems) 
    NextColumn += NewGB.Size.Width + 10 
    Return NewGB 
End Function 
End Module 

폼로드 후 사용자는 각 CLB에서 일부 항목을 선택합니다. 양식에 단추가 있습니다. 버튼을 클릭하면 각 CLB의 선택된 CLB 항목을 각각의 GB에 텍스트 파일로 저장하려고합니다.

어떻게 할 수 있습니까?

Answer 1

당신은 당신은 선택의 아래 같은 것을 사용하려면 •

을되었습니다 선택 사항을 기록하기 버튼을 클릭 이벤트를 사용 StreamWriter를 또는 file.write가 중 •

을 처리하는 •

for each gpx as groupbox in me 
    for each rbx as radiobox in gpx.controls 
     if control.gettype is gettype(radiobox) then 
      if rbx.selected = true then 
       'write to a stringbuilder or something 
      end if 
     end if 
    next 
next 

이동은 좀 더 코드를 작성하고 우리가 당신 :