Foro de elhacker.net

    Public Sub C1CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles C1CheckBox1.CheckedChanged
        If C1CheckBox1.Checked = True Then My.Settings.box1_selected = "Y" Else My.Settings.box1_selected = "N"
        Dim checkedpath1 = C1CheckBox1.Text
    End Sub

 Dim ChkBox As CheckBox = Nothing
 
        For Each xObject As Object In Me.GroupBox1.Controls
            If TypeOf xObject Is CheckBox Then
                ChkBox = xObject
                ChkBox.Checked = True
            End If
        Next

 For Each ctrl As Control In Me.Controls
 
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).CheckState = CheckState.Checked
            End If
 
        Next

      For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).Text = "Test"
            End If
        Next

Public Class Form1
 
' Esta es la función que se llamará al producirse el evento CheckedChange del CheckBox
    Private Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        msgbox("Me pinchaste, la cagaste xD")
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim mCheck(2) As CheckBox 'matriz que contendrá los 3 CheckBox
        For i As Int32 = 0 To mCheck.Length - 1
            mCheck(i) = New CheckBox() 'creo un CheckBox en cada espacio de la matriz
            With mCheck(i)
                .Text = "Checkbox" & i + 1 ' Le adjunto un nombre Checkbox1 / Checkbox2 y 3
                .Location = New Point(20, i * 30) ' Sin más los situo....
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
            Me.Controls.Add(mCheck(i)) 'Añado el control al formulario, es decir, lo dibujo
        Next
    End Sub
End Class
 

  Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatefoldernames()
    End Sub
 
    Public Sub updatefoldernames()
        Dim List As Integer = 0
        Dim posy As Integer = 10
 
        filesystem = CreateObject("Scripting.FileSystemObject")
        ThisDir = filesystem.GetFolder(My.Settings.folderpath)
 
        For Each folder In ThisDir.Subfolders
            List = List + 1
            posy = posy + 20
            Dim newCheckBox As New CheckBox()
            Panel1.Controls.Add(newCheckBox)
            newCheckBox.Name = "checkbox" & List.ToString()
            newCheckBox.Text = folder.name
            newCheckBox.Location = New Point(10, posy)
            'MessageBox.Show(newCheckBox.Name.ToString())
 
            Dim checkbox_selected As String = "checkbox" & List.ToString()
            If My.Settings.checkbox_selected = "Y" Then newCheckBox.Checked = True
        Next
    End Sub

Panel1.Controls.Add(newCheckBox)
newCheckBox.Name = "checkbox" & List.ToString()

    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        MsgBox(CheckboxN.Name)
        If CheckboxN.Checked = True Then My.Settings.Selected_Checkboxes.Add(CheckboxN.Name.ToString())
    End Sub

    Private Sub GenerarPropiedades(ByVal mCheckBox As CheckBox())
        For Each checkboxN As CheckBox In mCheckBox 'por cada CheckBox en mCheckBox
'Creo una propiedad con el nombre del CheckBox
'De esta forma cada CheckBox tendrá una propiedad equivalente
            My.Settings.Properties.Add(New Configuration.SettingsProperty(checkboxN.Name))
'Meto el valor de la propiedad Checked en la nueva propiedad que hemos creado para el CheckBox
            My.Settings.Properties.Item("CheckBox").DefaultValue = checkboxN.Checked
        Next
        My.Settings.Save()
    End Sub
 

Public Sub AnyCB_CheckedChanged(sender As Object, e As EventArgs)
 
        Dim cb = DirectCast(sender, CheckBox)
        If cb.Checked AndAlso Not My.Settings.MyCBs.Contains(cb.Name) Then
            My.Settings.MyCBs.Add(cb.Name)
        ElseIf Not cb.Checked AndAlso My.Settings.MyCBs.Contains(cb.Name) Then
            My.Settings.MyCBs.Remove(cb.Name)
        End If
 
    End Sub
 
    Public Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
        If My.Settings.MyCBs Is Nothing Then My.Settings.MyCBs = New Collections.Specialized.StringCollection
 
        For Each s In My.Settings.MyCBs
            DirectCast(Me.Controls(s), CheckBox).Checked = True
        Next
 
        For Each cb In Me.Controls.OfType(Of CheckBox)()
            AddHandler cb.CheckedChanged, AddressOf AnyCB_CheckedChanged
        Next
 
    End Sub

Public Class Form1
 
    Dim mCheck(5) As CheckBox 'matriz que contendrá los 5 CheckBox
 
    Private Sub GenerarPropiedades() 'metodo que generará la propiedad al producirse el cierre del formulario
        Dim CheckedN As String = Nothing 'la cadena que contendrá los CheckBoxes que estén Checkados
        For i As Int32 = 0 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
            If mCheck(i).Checked = True Then 'Si el CheckBox actual está checkado
                CheckedN &= i + 1 'Obtengo su indice y lo meto al string (si es Checkbox1 pues 1, si es chckbx2 pues 2) ...
            End If
        Next
        My.Settings.CuantosChecked = CheckedN 'Actualizo la propiedad
        My.Settings.Save() 'Guardo la propiedad
    End Sub
    Private Sub CargarPropiedad() 'método que comprobará que CheckBoxes fueron tildados la útlima vez
        Dim mCuantosChecked As Char() = My.Settings.CuantosChecked.ToCharArray 'Paso el String de la propiedad a una matriz
        'Simplemente hago esto para separar el String por indices (un caracter por indice)
        For Each caracter As Char In mCuantosChecked 'Recorro la matriz caracteres que contendrá los checboxes tildados
            For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
                If CheckboxN.Name.Contains(caracter) Then
                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
                    'que tiene los indices de los CheckBoxes tildados
                    CheckboxN.Checked = True 'Lo tildo
                End If
            Next
        Next
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Este es el evento al que se llamará cuando se cierre la aplicación
        'Como ves al cerrar la aplicación llamamos al método GenerarPropiedades() para guardar los CheckBoxes que fueron tildados
        GenerarPropiedades()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For i As Int32 = 0 To mCheck.Length - 1
            mCheck(i) = New CheckBox() 'creo un CheckBox en cada espacio de la matriz
            With mCheck(i)
                .Text = "Checkbox" & i + 1 ' Le adjunto un nombre Checkbox1 / Checkbox2 y 3
                .Location = New Point(20, i * 30) ' Sin más los situo....
                .Name = "Checkbox" & i + 1
            End With
            Me.Controls.Add(mCheck(i)) 'Añado el control al formulario, es decir, lo dibujo
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub
End Class
 

Imports System.Windows.Forms
Imports System.IO
 
Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Public newCheckBox As New CheckBox()
    Dim mCheck(9999) As CheckBox 'matriz que contendrá los "X" CheckBox
 
    ' Start of Propertys
    Public Property userSelectedPlayerFilePath() As String
        Get
            Return playertextbox.Text
        End Get
        Set(value As String)
            playertextbox.Text = value
        End Set
    End Property
 
    Public Property userSelectedFolderPath() As String
        Get
            Return foldertextbox.Text
        End Get
        Set(value As String)
            foldertextbox.Text = value
        End Set
    End Property
 
    Public Property checkedpath1() As String
        Get
            Return newCheckBox.Text
        End Get
        Set(value As String)
            newCheckBox.Text = value
        End Set
    End Property
    ' End of propertys
 
 
    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim i As Int32 = 0
        Dim posy As Integer = 0
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        For Each folder In ThisDir.Subfolders
            i = i + 1
            mCheck(i) = New CheckBox() 'creo un CheckBox en cada espacio de la matriz
            With mCheck(i)
                .Name = "Checkbox" & i ' Le adjunto un nombre Checkbox1 / Checkbox2 y 3
                .Text = folder.name
                .Location = New Point(10, i * 20)
            End With
            'MessageBox.Show(mCheck(i).Name)
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
            Panel1.Controls.Add(mCheck(i))
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub
 
 
    Public Sub CargarPropiedad() 'método que comprobará que CheckBoxes fueron tildados la útlima vez
        Dim mCuantosChecked As Char() = My.Settings.CuantosChecked.ToCharArray 'Paso el String de la propiedad a una matriz
        'Simplemente hago esto para separar el String por indices (un caracter por indice)
        For Each caracter As Char In mCuantosChecked 'Recorro la matriz caracteres que contendrá los checboxes tildados
            For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
                If CheckboxN.Name.Contains(caracter) Then
                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
                    'que tiene los indices de los CheckBoxes tildados
                    CheckboxN.Checked = True 'Lo tildo
                End If
            Next
        Next
    End Sub
 
 
    Private Sub GenerarPropiedades() 'metodo que generará la propiedad al producirse el cierre del formulario
        Dim CheckedN As String = Nothing 'la cadena que contendrá los CheckBoxes que estén Checkados
        For i As Int32 = 0 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
            If mCheck(i).Checked = True Then 'Si el CheckBox actual está checkado
                CheckedN &= i + 1 'Obtengo su indice y lo meto al string (si es Checkbox1 pues 1, si es chckbx2 pues 2) ...
            End If
            Me.Close()
        Next
 
        My.Settings.CuantosChecked = CheckedN 'Actualizo la propiedad
        My.Settings.Save() 'Guardo la propiedad
 
    End Sub
 
 
    ' Form close
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Este es el evento al que se llamará cuando se cierre la aplicación
        'Como ves al cerrar la aplicación llamamos al método GenerarPropiedades() para guardar los CheckBoxes que fueron tildados
        '      My.Settings.Save()
        GenerarPropiedades()
        Me.Close()
    End Sub
 
 
    ' Form load
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub
 
    ' Folder button
    Private Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselected As New System.Windows.Forms.FolderBrowserDialog
        Dim Resultado As DialogResult
        folderselected.RootFolder = Environment.SpecialFolder.Desktop
        Resultado = folderselected.ShowDialog
        If Resultado.ToString() = "OK" Then
            userSelectedFolderPath = folderselected.SelectedPath
            My.Settings.folderpath = folderselected.SelectedPath
            My.Settings.Save()
            updatecheckboxes()
        End If
    End Sub
 
 
    ' Player button
    Public Sub C1Button1_Click(sender As Object, e As EventArgs) Handles playerbutton.Click
        Dim playerselected As New OpenFileDialog()
        playerselected.InitialDirectory = Environ("programfiles")
        playerselected.Title = "Select your favorite music player"
        playerselected.Filter = "Music players|mpc.exe;mpc-hc.exe;mpc-hc64.exe;umplayer.exe;vlc.exe;winamp.exe;wmp.exe"
        PlayerDialog.FilterIndex = 1
        Dim selection As System.Windows.Forms.DialogResult = playerselected.ShowDialog()
        If selection = DialogResult.OK Then
            userSelectedPlayerFilePath = playerselected.FileName
            My.Settings.playerpath = playerselected.FileName
            My.Settings.Save()
        End If
    End Sub
 
 
    ' Play button
    Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click
        Process.Start(userSelectedPlayerFilePath, ControlChars.Quote & Path.Combine(ThisDir.Path, checkedpath1) & ControlChars.Quote)
    End Sub
 
    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        MsgBox(CheckboxN.Name)
 
    End Sub
 
 
 
End Class
 
 

Dim mCheck(0) as CheckBox() 'un indice
 
Private Sub BuscarCarpetas()
Dim i as integer = 0
for directorio in subdirectorios
i+=1 'se encontró una carpeta, sumo un indice
Array.Resize(mCheck,i) 'meto un indice mas a la matriz de CheckBoxes
for i as int32 = 0 to mCheck.length - 1
mCheck(i) = New CheckBox()
'y aqui sigues como esta
Next
 

       Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim folderindex As Integer = 0
 
        For Each folder In ThisDir.Subfolders
            folderindex += 1
            Array.Resize(mCheck, folderindex)
        Next
 
        For i As Int32 = 0 To mCheck.Length - 1
            mCheck(i) = New CheckBox()
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
        Next

Dim mCheck(5) As CheckBox 'matriz que contendrá los "X" CheckBox

For i As Int32 = 1 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes

    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i += 1
            Array.Resize(mCheck, i)
            MessageBox.Show("test")
            mCheck(i) = New CheckBox()
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
            Panel1.Controls.Add(mCheck(i))
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub

       'al incrementar la variable i, no estas inicializando el 1er elemento del array (indice=0)
       i += 1
       Array.Resize(mCheck, i)
       MessageBox.Show("test")
       mCheck(i) = New CheckBox()
        With mCheck(i)

Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Dim mCheck(0) As CheckBox 'matriz que contendrá los "X" CheckBox
...

    ' Form load
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
    End Sub

    ' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i = i + 1
            Array.Resize(mCheck, i)
            mCheck(i - 1) = New CheckBox()
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox
        Next
        CargarPropiedad()
    End Sub

Public Class Form1
' el número aumentado a 999, sino no me funciona el segundo intento xD
    Dim mCheck(999) As CheckBox
...

    ' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i = i + 1
            mCheck(i) = New CheckBox()
            'Array.Resize(mCheck, i)
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub

Me.Panel1.Controls.Add(mCheck(i))
With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
 End With
 AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox
 

 
' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            mCheck(i) = New CheckBox()
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox
            i = i + 1
            Array.Resize(mCheck, i)
        Next
        CargarPropiedad()
    End Sub
 

Imports System.Windows.Forms
Imports System.IO
 
Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Dim mCheck(0) As CheckBox 'matriz que contendrá los "X" CheckBox
 
    ' Start of Propertys
    Public Property userSelectedPlayerFilePath() As String
        Get
            Return playertextbox.Text
        End Get
        Set(value As String)
            playertextbox.Text = value
        End Set
    End Property
 
    Public Property userSelectedFolderPath() As String
        Get
            Return foldertextbox.Text
        End Get
        Set(value As String)
            foldertextbox.Text = value
        End Set
    End Property
 
    Public Sub GenerarPropiedades() 'metodo que generará la propiedad al producirse el cierre del formulario
        Dim CheckedN As String = Nothing 'la cadena que contendrá los CheckBoxes que estén Checkados
        For i As Int32 = 0 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
            If mCheck(i).Checked = True Then 'Si el CheckBox actual está checkado
                CheckedN &= i + 1 'Obtengo su indice y lo meto al string (si es Checkbox1 pues 1, si es chckbx2 pues 2) ...
            End If
        Next
        My.Settings.CuantosChecked = CheckedN 'Actualizo la propiedad
        My.Settings.Save() 'Guardo la propiedad
    End Sub
 
 
    Public Sub CargarPropiedad() 'método que comprobará que CheckBoxes fueron tildados la útlima vez
        Dim mCuantosChecked As Char() = My.Settings.CuantosChecked.ToCharArray 'Paso el String de la propiedad a una matriz
        'Simplemente hago esto para separar el String por indices (un caracter por indice)
        For Each caracter As Char In mCuantosChecked 'Recorro la matriz caracteres que contendrá los checboxes tildados
            For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
                If CheckboxN.Name.Contains(caracter) Then
                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
                    'que tiene los indices de los CheckBoxes tildados
                    CheckboxN.Checked = True 'Lo tildo
                End If
            Next
        Next
    End Sub
 
 
    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 1
        'Dim mCheck() As CheckBox
        For Each folder In ThisDir.Subfolders
 
            'mCheck(i - 1) = New CheckBox()
            Array.Resize(mCheck, i)
            mCheck(i - 1) = New CheckBox()
            'MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i - 1))
            With mCheck(i - 1)
                .Name = "Checkbox" & i - 1
                .Text = "Checkbox" & i - 1
                ' .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i - 1).CheckedChanged, AddressOf LlamadaCheckBox
            i = i + 1
        Next
        CargarPropiedad()
    End Sub
 
    ' Form close
    Public Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        GenerarPropiedades()
        'My.Settings.Save()
    End Sub
 
 
    ' Form load
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
    End Sub
 
 
    ' Folder button
    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselected As New System.Windows.Forms.FolderBrowserDialog
        Dim Resultado As DialogResult
        folderselected.RootFolder = Environment.SpecialFolder.Desktop
        Resultado = folderselected.ShowDialog
        If Resultado.ToString() = "OK" Then
            userSelectedFolderPath = folderselected.SelectedPath
            My.Settings.folderpath = folderselected.SelectedPath
            My.Settings.Save()
            updatecheckboxes()
        End If
    End Sub
 
 
    ' Player button
    Public Sub C1Button1_Click(sender As Object, e As EventArgs) Handles playerbutton.Click
        Dim playerselected As New OpenFileDialog()
        playerselected.InitialDirectory = Environ("programfiles")
        playerselected.Title = "Select your favorite music player"
        playerselected.Filter = "Music players|mpc.exe;mpc-hc.exe;mpc-hc64.exe;umplayer.exe;vlc.exe;winamp.exe;wmp.exe"
        PlayerDialog.FilterIndex = 1
        Dim selection As System.Windows.Forms.DialogResult = playerselected.ShowDialog()
        If selection = DialogResult.OK Then
            userSelectedPlayerFilePath = playerselected.FileName
            My.Settings.playerpath = playerselected.FileName
            My.Settings.Save()
        End If
    End Sub
 
 
    ' Play button
    Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click
        'Process.Start(userSelectedPlayerFilePath, ControlChars.Quote & Path.Combine(ThisDir.Path, checkedpath1) & ControlChars.Quote)
    End Sub
 
 
 
    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        'MsgBox(CheckboxN.Name)
 
    End Sub
 
End Class

' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            mCheck(i) = New CheckBox()
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i +1 'De esta forma sumas 1 y tendrás CheckBox1,2,3
                .Text = "CheckBox" & i+1 'Lo mismo para el nombre
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox
            i = i + 1
            Array.Resize(mCheck, i)
        Next
        CargarPropiedad()
    End Sub

For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
                If CheckboxN.Name.Contains(caracter) Then
                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
                    'que tiene los indices de los CheckBoxes tildados
                    CheckboxN.Checked = True 'Lo tildo
                End If
Next
 

If CheckboxN.Name[(/^#{Regexp.escape(caracter)}$/)] Then...

Dim reg As New Regex(caracter) 
If reg.Match(CheckboxN.Name) Then

Public Class Form1
    Dim mcheck(0) As CheckBox
    Private Sub CargarPropiedades()
        'Obtenemos la Lista de Enteros de los índices Checkados
        Dim ListaCheckados As Int32() = My.Settings.Valores
        For i As Int32 = 0 To mcheck.Length - 1 'Recorro los CheckBoxes
            For Each indiceCheckado As Int32 In ListaCheckados 'Por cada indice de CheckBoxes checkados
                'Como se los indices de los CheckBoxes checkados, accedo a éstos mediante el Array de los CheckBoxes
                'Ej -> indiceCheckado : 3 (CheckBox3) ;
                'Por lo tanto indiceCheckado - 1 = 2, mCheck(0) = check1, ... m(2) = CheckBox3
                'Es decir el índice N - 1 siempre corresponderá a CheckBoxN
                mcheck(indiceCheckado - 1).Checked = True
            Next
        Next
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim mCheckados(0) As Int32 'matriz que guardará los indices de los CheckBoxes checkados
        Dim Cuantos As Int32 = 0 'cuantos CheckBoxes estan checkados
        For i As Int32 = 0 To mcheck.Length - 1 'Recorro los CheckBoxes en busca de Checkados
            If mcheck(i).Checked = True Then
                Cuantos += 1
                'Sumamos un indice por CheckBox checkado
                Array.Resize(mCheckados, Cuantos)
                mCheckados(Cuantos - 1) = i + 1 'metemos en el indice del Array el elemento Checkado (RECUERDA SE EMPIEZA DESDE 0)
                'Por eso lo de Cuantos - 1 (Si tienes 7 Checkados ira desde 0 hasta 6 ...)
            End If
        Next
        My.Settings.Valores = mCheckados 'Actualizamos la propiedades Int32()
        My.Settings.Save()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        For i As Int32 = 0 To 20
            Array.Resize(mcheck, i + 1)
            mcheck(i) = New CheckBox
            With mcheck(i)
                .Name = "CheckBox" & i + 1
                .Text = mcheck(i).Name
                .Location = New Point(40, i * 40)
            End With
            Me.Controls.Add(mcheck(i))
        Next
        CargarPropiedades()
    End Sub
End Class
 

Dim ListaCheckados As Int32() = My.Settings.Valores

My.Settings.Valores = mCheckados

        <Global.System.Configuration.UserScopedSettingAttribute(), _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
         Global.System.Configuration.DefaultSettingValueAttribute("0")> _
        Public Property Valores() As Int32()
            Get
                Return CType(Me("Valores"), Int32())
            End Get
            Set(value As Int32())
                Me("Valores") = value
            End Set
        End Property
    End Class
End Namespace

    Private Sub CargarPropiedades()
                mcheck(indiceCheckado - 1).Checked = True
    End Sub

    ' Folder button
    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
     ...
        If Resultado.ToString() = "OK" Then
            Dim mcheck(0) As CheckBox
            updatecheckboxes()

    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            'MessageBox.Show("a")
            Array.Resize(mcheck, i + 1)
            mcheck(i) = New CheckBox
            With mcheck(i)
                .Name = "CheckBox" & i + 1
                '.Text = mcheck(i).Name
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            Me.Panel1.Controls.Add(mcheck(i))
            AddHandler mcheck(i).CheckedChanged, AddressOf LlamadaCheckBox
            i += 1
        Next
        CargarPropiedades()
    End Sub

    Dim mCheck(0) As CheckBox
 
    Private Sub UpdateArray()
        Array.Clear(mCheck, 0, mCheck.Length)
        Array.Resize(mCheck, 0)
    End Sub
 

Imports System.Windows.Forms
Imports System.IO
Imports System.Text.RegularExpressions
 
Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Dim mcheck(0) As CheckBox
    Dim winampargs As String

#Region "Propertys"
    Public Property userSelectedPlayerFilePath() As String
        Get
            Return playertextbox.Text
        End Get
        Set(value As String)
            playertextbox.Text = value
        End Set
    End Property
 
    Public Property userSelectedFolderPath() As String
        Get
            Return foldertextbox.Text
        End Get
        Set(value As String)
            foldertextbox.Text = value
        End Set
    End Property
#End Region

#Region "Load / Close"
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim mCheckados(0) As Int32
        Dim Cuantos As Int32 = 0
        For i As Int32 = 0 To mcheck.Length - 1
            If mcheck(i).Checked = True Then
                Cuantos += 1
                Array.Resize(mCheckados, Cuantos)
                mCheckados(Cuantos - 1) = i + 1
            End If
        Next
        My.Settings.Valores = mCheckados
        My.Settings.Save()
    End Sub
 
#End Region

#Region "Save & Get settings"
 
    Public Sub GenerarPropiedades()
        Dim CheckedN As String = Nothing
        For i As Int32 = 0 To mcheck.Length - 1
            If mcheck(i).Checked = True Then
                CheckedN &= i + 1
            End If
        Next
        My.Settings.Save()
    End Sub
 
    Private Sub CargarPropiedades()
        'Obtenemos la Lista de Enteros de los índices Checkados
        Dim ListaCheckados As Int32() = My.Settings.Valores
        For i As Int32 = 0 To mcheck.Length - 1
            For Each indiceCheckado As Int32 In ListaCheckados
                mcheck(indiceCheckado - 1).Checked = True
            Next
        Next
    End Sub
 
#End Region

#Region "Draw checkboxes..."
 
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            Array.Resize(mcheck, i + 1)
            mcheck(i) = New CheckBox
            With mcheck(i)
                .AutoSize = True
                .Location = New Point(10, i * 20)
                .Name = "CheckBox" & i + 1
                .Text = folder.Name
            End With
            Me.Panel1.Controls.Add(mcheck(i))
            AddHandler mcheck(i).CheckedChanged, AddressOf LlamadaCheckBox
            i += 1
        Next
        CargarPropiedades()
    End Sub
 
    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox)
        If CheckboxN.Checked = True Then
            winampargs = winampargs & " " & ControlChars.Quote & Path.Combine(ThisDir.Path, CheckboxN.Text.ToString()) & ControlChars.Quote
        Else
            winampargs = Replace(winampargs, ControlChars.Quote & Path.Combine(ThisDir.Path, CheckboxN.Text.ToString()) & ControlChars.Quote, "")
        End If
    End Sub
 
#End Region

#Region "buttons"
 
    ' Folder button
    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselected As New System.Windows.Forms.FolderBrowserDialog
        Dim Resultado As DialogResult
        folderselected.RootFolder = Environment.SpecialFolder.Desktop
        Resultado = folderselected.ShowDialog
        If Resultado.ToString() = "OK" Then
            userSelectedFolderPath = folderselected.SelectedPath
            My.Settings.folderpath = folderselected.SelectedPath
            My.Settings.Save()
            Dim mcheck(0) As CheckBox
            updatecheckboxes()
        End If
    End Sub
 
    ' Player button
    Public Sub C1Button1_Click(sender As Object, e As EventArgs) Handles playerbutton.Click
        Dim playerselected As New OpenFileDialog()
        playerselected.InitialDirectory = Environ("programfiles")
        playerselected.Title = "Select your favorite music player"
        playerselected.Filter = "Music players|mpc.exe;mpc-hc.exe;mpc-hc64.exe;umplayer.exe;vlc.exe;winamp.exe;wmp.exe"
        PlayerDialog.FilterIndex = 1
        Dim selection As System.Windows.Forms.DialogResult = playerselected.ShowDialog()
        If selection = DialogResult.OK Then
            userSelectedPlayerFilePath = playerselected.FileName
            My.Settings.playerpath = playerselected.FileName
            My.Settings.Save()
        End If
    End Sub
 
    ' Play button
    Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click
        Process.Start(userSelectedPlayerFilePath, winampargs)
    End Sub
 
#End Region

End Class

• Seleccionas un directorio
• Listas todos los subdirectorios
• Creas un checkbox por cada subdirectorio
• ¿Para que son las settings?

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Xml.Serialization;
 
namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            List<string> savedPath = GetSavedPaths();
            DirectoryInfo folder = new DirectoryInfo(@"D:\Tools\");
            DirectoryInfo[] subFolders = folder.GetDirectories();
            int top = 10;
            foreach (DirectoryInfo subFolder in subFolders)
            {
                CheckBox c = new CheckBox() { Left = 20, Top = top, AutoSize = true, Text = subFolder.FullName};
                c.Checked = savedPath.Contains(subFolder.FullName);
                c.CheckedChanged += new System.EventHandler(this.checkBox_CheckedChanged);
                top += 20;
                this.Controls.Add(c);
            }
        }
 
        private void SavePaths()
        {
            List<string> paths = new List<string>();
 
            foreach (Control c in Controls)
                if (c is CheckBox && ((CheckBox)c).Checked)
                        paths.Add(c.Text);
 
            using (StreamWriter sw = new StreamWriter("setting.xml"))
            {
                XmlSerializer serializer = new XmlSerializer(typeof(List<string>));
                serializer.Serialize(sw, paths);
                sw.Flush();
            }
        }
 
        private List<string> GetSavedPaths()
        {
            List<string> paths;
 
            try
            {
                using (StreamReader sr = new StreamReader("setting.xml"))
                {
                    XmlSerializer serializer = new XmlSerializer(typeof(List<string>));
                    paths = (List<string>)serializer.Deserialize(sr);
                }
            }
            catch
            {
                paths = new List<string>();
            }
 
            return paths;
        }
 
        private void checkBox_CheckedChanged(object sender, EventArgs e)
        {
            MessageBox.Show(((CheckBox)sender).Text);
        }
 
        private void Form1_FormClosing(object sender, FormClosingEventArgs e)
        {
            SavePaths();
        }
    }
}
 

• Al cargar el form carga las rutas de los checkbox guardados
• Lista los subdirectorios en D:\Tools (solo un ejemplo, ahora lo cambié a test)
• Crea un form con checkbox y sus paths
• Al dar click en un checkbox muestra el path correspondiente
• Al cerrar el form vuelve a guardar las rutas