Test Foro de elhacker.net SMF 2.1

Hola,

Tengo un panel con casi 50 checkboxes (todos siguen un orden de nombre bien enumerado), y por ejemplo este es el sub del chekbox1:

   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

Lo que quisiera poder hacer es que ese mismo evento afecte a todos los checkboxes, eso se que se puede hacer añadiendo los checkboxes al "handle", vale, pero no es suficiente, ya que lo que hay dentro del sub del ejemplo solo afectará al checkbox 1 aunque yo añada todos al handle, ¿entienden lo que quiero decir?

Hay alguna forma de no escribir el mismo evento para los 50 checkboxes?

es decir, yo necesito hacer esto:

(Pseudocode)

---

Public Sub TODOS_LOS_CHECKBOXES_CheckedChanged(sender As Object, e As EventArgs) Handles TODOS_LOS_CHECKBOXES.CheckedChanged
If CUALQUIER_CHECKBOX.Checked = True Then My.Settings.NÚMERO_DEL_CHECKBOX_SELECCIONADO_selected = "Y" Else My.Settings.boxNÚMERO_DEL_CHECKBOX_SELECCIONADO_selected = "N"
Dim checkedpathNÚMERO_DEL_CHECKBOX _SELECCIONADO = C1CheckBoxNÚMERO_DEL_CHECKBOX _SELECCIONADO.Text
End Sub

---

Gracias y un saludo...

Si pones tus checkboxs en un groupbox puedes hacer esto.

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


creo que a eso te refieres.

y sin Groupbox así:

For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).CheckState = CheckState.Checked
            End If

        Next

saludos.

Hola,

Gracias, pero lo he probado sin groupbox y no sé como hacerlo funcionar, directamente no ocurre nada... (no me da error)

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

EDITO: Aún así, ese código tendría que usarlo en algun evento... y yo lo que necesito es un evento que haga eso para todos los checkboxes... así que en que evento lo meto? xD

que hago mal?

Lo que buscas es que todos los CheckBox al ser clickados llamen a un mismo método. Con el "Handles" logras que las acciones de el método trabajen con el objeto que va con el "Handles", no con todos los objetos del mismo tipo.

Este ejemplo crea 3 CheckBox dinámicamente y los agrega al Formulario, sin haberlos dibujado con el IDE del Visual Basic. Después asocio a cada evento CheckedChange del Checkbox con la funcion "LlamadaCheckBox", donde se ejecutarán las instrucciones que desees. Es decir, todos los eventos CheckedChanged de tus CheckBox se asociarán a dicho método, y al producirse tal evento pues se llamará a dicha función.


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


Espero haberte servido de ayuda!

Saludos!

No se si te será de ayuda, pero no se podría crear una matriz de controles en los que por cada elemento (las checkboxes) se vaya realizando la misma rutina?

:http://www.elguille.info/NET/dotnet/arrayControles.htm

Un saludo.

Cita de: kub0x en 18 Noviembre 2012, 20:41 PM

Espero haberte servido de ayuda!

Saludos!

Increible, muchísimas gracias Kubox

Mi intención era que al cargar la app saliesen 1 textbox por cada X carpeta previamente bindeada, y he conseguido "dibujar" los textboxs hace unos minutos así:

 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

Pero me tendría que haber comido la cabeza unas semanas para conseguir lo del evento... ja!, addhandler!, como para saberlo sin haber estudiado 1 año mínimo xD, mil gracias esto me ahorra mucho trabajo ^^

EDITO: Aprovecho para preguntarte Kubox, si puedes fijarte en el final de ese code, intento asociar cada checkbox al nombre de "my.settings"

En my.settings lo tengo así:
My.Settings.checkbox1
My.Settings.checkbox2
My.Settings.checkbox3
etc...
Pero no consigo llamar a ninguno porque solo me acepta un string así que esto me da error:  My.Settings.checkbox_selected

un saludo

Aupa EleKtro H@cker,

buscas cambiar el valor de alguna propiedad guardada en my.settings o simplemente hacer comprobaciones con éstas? Sería mejor que fueras más claro : p

Ahora estoy en clase y no puedo echarle una buena ojeada, más tarde estaré disponible.

Espero tu respuesta,

Saludos!

Cita de: kub0x en 19 Noviembre 2012, 08:47 AMbuscas cambiar el valor de alguna propiedad guardada en my.settings o simplemente hacer comprobaciones con éstas? Sería mejor que fueras más claro : p

Verás, pienso usar el ejemplo que me has proporcionado, eso sin duda, pero esto lo necesito hacer tanto para tu ejemplo como para el mío

---

En mi ejemplo de arriba, creo nuevos checkboxes y les proporciono un nombre:
newCheckBox.Name = "checkbox" & List.ToString()

El nombre final de cada checkbox es: "checkbox1", "checkbox2", "checkbox3", etc...

En my-settings los nombres que tengo son:
checkbox1
checkbox2
checkbox3
etc...

(Cada uno con el scope "user", y con el valor de "Y" o "N".)

En resumen, los nombres de los nuevos checkboxes y los nombres de my.settings son exactamente igual, eso lo hice para poder referenciarme mejor a "my.settings" basandome en el nombre de los nuevos checkboxes, pero no lo he conseguido xD.

Por ejemplo:

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

Eso se llamará checkbox1, pues quisiera crear una nueva entrada (o reemplazar una ya existente con el mismo nombre) en my.settings, que tenga el mismo nombre que el "checkbox.Name", y poder obetener el valor de esa entrada.

Osea, crear la entrada "checkbox1" en my.settings, y obtener el valor de "checkbox1" en my-settings, las dos cosas necesitaría,pero sobretodo obtener el valor...

Yo se obtener y guardar valores en my.settings, pero no se hacerlo cuando el nombre que le intento dar al "my.settings" es el objeto "newCheckBox.Name = "checkbox" & List.ToString()"
Si uso "My.settings.newCheckBox.Name" me dice que no es un string, con toda la razón xD.

Muchas gracias por tu tiempo Kubox!

Ya he acoplado tu code a mi form, muchas gracias de nuevo

Lo que intento hacer es guardar en las settings los checkboxes que están clickados antes de cerrar el form:

   ' 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

pero me dice: Object reference not set to an instance of an object.

La setting la tengo como tipo: "system.collection.specialized.stringcollection", no se si es la correcta.

---

Una vez conseguido eso, al volver a abrir la app (el form) necesitaría averiguar cuales checkboxes estaban clickados para seleccionarlos automáticamente


ojalá puedas ayudarme con eso

Cita de: EleKtro H@cker en 19 Noviembre 2012, 16:34 PM
Una vez conseguido eso, al volver a abrir la app (el form) necesitaría averiguar cuales checkboxes estaban clickados para seleccionarlos automáticamente

En ese momento deberias cargar las propiedades e ir comparando uno a uno los valores de las propiedades y si esta en True (Clickado) pues activar la propiedad Checked del CheckBox. Es decir, PropiedadCheckBox1 -> ¿True? -> Sí -> Activar CheckBox1 .. saltar ala siguiente propiedad.

No he probado el código, hace mil que no utilizo propieadades de forma dinámica (on the fly) pero bueno, este código lo que hace es generar X propiedades por cada X CheckBoxes que haya en una matriz mCheckBox (lo de la matriz lo puedes cambiar recorriendo por ejemplo los controles del Panel donde estén los CheckBox)


    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


Gracias por tu atención :)

Si necesitas ayuda para el siguiente caso (Cargar los CheckBoxes tildados mediante las propiedades) avisa.

Saludos!

Uhm como solo te interesan los CheckBoxes tildados (Checked = TRUE) pues ponle un condicional para que sólo guarde éstos últimos.

Ya me cuentas ;)

Gracias,

una pregunta tonta.... ¿Como coñ* lo utilizo? ¿Que tipo de argumento "mCheckBox" debo pasarle al sub? xD

Aparte, me da este error en "Configuration.SettingsProperty":

Cita de: VSError   1   'Configuration' is ambiguous, imported from the namespaces or types 'System, System.Drawing'.

EDITO:
Alguien me ha proporcionado este code en otro sitio, pero por más que lo intento no sé como utilizarlo:

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 SubCuando clicko en un checkbox este no se guarda en "my.settings" así que cuando vuelvo a abrir la app, el checkbox no se auto-selecciona.

PD: Tengo creada la entrada "MyCBs" de tipo "Collections.Specialized.StringCollection" en "my.settings"

Joder que comedero de cabeza xD todo para encontrar que una vez generado el archivo Settings no se puede agregar configuraciones desde el código, como el tuyo de arriba o el que te había posteado (que ya lo corregí, pero no cargaba las configs). Para agregarlas tendrías que hacerlo dinámicamente, es decir, sobre el fichero de configuraciones, pues ya sea mediante serialización para convertir dichos valores de las propiedades a XML.

Se me ocurre que podrías hacer trampa en esto, es decir, creas una propiedad "CuantosChecked" donde añadiras los controles que están checkados. Pues si tienes el Checkbox2 el 5 y el 6 checkados la cadena que le pasarás a esa propiedad quedará así -> 256. Luego en el inicio de la app obtienes todos los CheckBox y obtienes un índice de dicha cadena. Si el CheckBox que has obtenido contiene el elemento del indice de la cadena (If checkbox2.contains(2) entonces lo checkas). Vamos, esto lo llevaba pensando tiempo ya, pero estaba intentando encontrar la forma limpia de implementarlo.

Te dejo un ejemplo. Funciona 100%, eso sí cualquier error ya sabes.


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


Saludos!

Tu ejemplo me funciona perfectamente en un winform nuevo, pero cuando intento acoplarlo a mi winform ocurre una cosa... EL FORM NO SE CIERRA AL PULSAR EL BOTON DE CERRAR :  :huh: :huh: :huh:

Te lo agradezco mucho, ya me has ayudado bastante, pero ahora no se como "salir" de aquí, y como no puedo cerrarlo tampoco puedo saber si se guardan correctamente en my.settings xD

Te pongo mi form COMPLETO por si sabes donde puede estar mi error:

PD: uso Dim mCheck(9999) porque la cantidad de checkboxes a agregar es indeterminada, se agrega un checkbox nuevo en el form por cada carpeta de una ruta previamente cargada, no se si puedo hacerlo de mejor manera eso...

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



Cita de: EleKtro H@cker en 19 Noviembre 2012, 19:12 PM
PD: uso Dim mCheck(9999) porque la cantidad de checkboxes a agregar es indeterminada, se agrega un checkbox nuevo en el form por cada carpeta de una ruta previamente cargada, no se si puedo hacerlo de mejor manera eso...

Se me ocurre sumarr un indíce a dicha matriz mCheck por cada carpeta encontrada, es decir, Resizeas la matriz por cada indice.


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


De esta forma sólo creas los CheckBoxes que tú necesites basándote en las carpetas encontradas en un directorio. En cuanto al no poder controlar el evento de cierre, ¿Has probado metiéndole un Breakpoint o un MsgBox() para ver si se llama? ¿Has probado a utilizar el evento FormClosed en vez de FormClosing? ¿Probaste quitándole el Me.Formclosing y poniéndole MyBase.Formclosing? Ésto último no tiene mucho que ver xD pero ya sabes, la vida es rara.

No he detectado ninguna anomalía a simple vista, solo que no utilizas una variable y que Dim filesystem = CreateObject("Scripting.FileSystemObject") sobra porque hay una clase del Framework que nos permite trabajar de la misma forma (FileIO creo que era).

Saludos!

Pero entonces donde pone ".Text = folder.Name", ¿como puedo hacerlo?

¿Debo crear una lista que contenga cada nombre de carpeta en un string para luego usarlo en la propiedad "text" del segundo FOR? puf...

¿No se puede hacer esto en un solo bucle?
      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

PD: Da error en ".Text = folder.Name" obviamente porque nada tiene que ver, pero no se como hacerlo.


EDITO: He conseguido "salir" de la app cambiando esto:

Dim mCheck(5) As CheckBox 'matriz que contendrá los "X" CheckBox
(Si el número 5 es mayor que las "carpetas" en total, osea, los checkboxes añadidos al cargarse el form, entonces sigue sin poderse cerrar)
(Vamos, que si en la app se cargan 20 checkboxes pues debería poner mcheck(19) manualmente para poder cerrar el form)

For i As Int32 = 1 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
Además de cambiar lo de antes, debo cambiar el valor inicial de 0, a 1, ¿algo raro pasa con el índice no?

Lo bueno viene ahora, puedo cerrar el form pero las propiedades no se me guardan!, bueno, yo que sé si se guardan, pero cuando vuelvo a abrir la app la casilla que estaba seleccionada no se selecciona...

En resumen, creo que la solución está arreglando el code de la forma que me has intnetado explicar Kubox, añadiendo un índice por cada carpeta encontrada, porque sinó no puedo salir del form ni tampoco se me guardan las settings arreglando el problema de "salir"  :xD.

Perdona que haya tardado en contestar. Como yo te decia antes, tienes que cambiar el indice de la matriz de los CheckBoxes en función de las carpetas encontradas. Lo puedes hacer en un mismo For todo xD

Es decir,

For subdirectorios en Directorios
i += 1
Array.resize(matrizCheckBox,i)
.......
matrizCheckBox(i) = new Checkbox
.......
Next

De esta forma compruebas las carpetas, obtienes indices y generas CheckBox, todo en uno.

¿Por que dices que los indices están mal? Espero que te sirva de ayuda lo que te he dicho =p

Nada, tu contesta cuando puedas y solamente si te apetece, sinó mandame a buscarme la vida por ahí xD

¿Me puedes decir si está bien el For?
Bueno, no está bien, porque al cargar el form no se muestra NINGUN checkbox

   ' 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

Tengo declarado el mcheck así como me dijiste:
  Dim mCheck(0) As CheckBox

PD: El messagebox solo se muesta UNA vez :S
Muchas gracias por tu tiempo

Hola EleKtro.

El problema lo tienes aquí:


      '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)

Prueba poniendo todas las referencias a i cuando actúa como índice dentro del bucle, como i-1.

Saludos.

HdM tiene razón. El error reside en que en el caso mCheck(0) no le estás instanciando ningun objeto CheckBox. Entonces dentro del bucle For, para instanciar los CheckBoxes en mCheck tendrás que hacerlo así:

mCheck(i-1) = New CheckBox()

De esta forma si tienes 20 CheckBox, iras desde 0 hasta 19 instanciando los CheckBoxes en cada índice.

Saludos!

Nada, gracias Hdm y Kubox, puse exactamente lo que me dijeron pero no me quiere funcionar esto:


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

---

1er intento:
El messagebox solo aparece 1 vez, y en el panel no aparece ningún 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
           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

---

2ndo intento:

El msgbox aparece todas las veces,
se cargan todos los checkboxes,

Pero no puedo cerrar el form, y como he "omitido" el "Array.resize" y lo que me dijo el compañero Hdm pues no creo que el índice del "mcheck" funcione para cargar/guardar las settings

Además he vuelto a las mismas de antes declarando el mcheck con un valor alto (999), así que esto no creo que me sirva para nada, solo es un ejemplo.

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

Hola.

Pero no estás haciendo i-1 en todos los casos en los que i actúa como índice.

Ej:


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


Nótese que actualizo la variable i y ReSizeo el Array al final del for, para que no tengas que cambiar nada.

   
' 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


Cita de: HdM en 19 Noviembre 2012, 23:02 PM
Pero no estás haciendo i-1 en todos los casos en los que i actúa como índice.

Tienes razón, estoy un poco gilipo**** xD!

Lo he modificado correctamente (Eso creo) y por fin me funciona, muchisimas gracias

Pero los problemas sigueeeen!


Voy a poner un ejemplo visual:

se carga la app, pincho en el primer checkbox de todos, el "0", y cierro la app:

(http://img818.imageshack.us/img818/9628/prtscrcapture3k.jpg)


Vuelvo a abrir la app, y me aparece esto:

(http://img138.imageshack.us/img138/6184/prtscrcapture4p.jpg)


¿Serías tán amables de ayudarme a buscar el error en mi form?
(además, no se que coñ* he tocado para que el índice empieze con "checkbox0" y no con "checkbox1", ya me he mirado la variable "i" pero me ha parecido estar bien)


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

No Kubox, he usado ahora mismo tu ejemplo y solo se muestra UN checkbox:

(http://img546.imageshack.us/img546/2697/prtscrcapture5.jpg)

Te lo agradezco de todas formas, a ver si doy con el fallo..

El fallo está en que tu escribes CheckBox0 y cuando cargas las propiedades esperas un CheckBox1,2,3,4 no el 0 xD
Para ello cuando generes los CheckBoxes empieza desde i=0, suma i+1 a la propiedad .Name y .Text de los CheckBoxes y y al final del for suma 1 como te dije, para ReSizear el Array, a mí me funciona :S

Con respecto al otro error, el de que te aparezcan seleccionados "automáticamente" a partir del 10 cuando abres de nuevo la app; es debido a:


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


Ese Contains, si seleccionas el checkbox 1, siempre lo va a contener y te seleccionará todos los checks que contengan 1 (1,11,12,13,...,21,31,...), si seleccionas el 2, pues todos los que contengan ese número,...

Como alternativa, podrías almacenar en un array numérico de enteros.

Saludos.

Cita de: kub0x en 19 Noviembre 2012, 23:29 PM
Para ello cuando generes los CheckBoxes empieza desde i=0, suma i+1 a la propiedad .Name y .Text de los CheckBoxes y y al final del for suma 1 como te dije, para ReSizear el Array, a mí me funciona :S

¿Eso es lo que hace tu última modificación de mi ejemplo, verdad?
Pues lo he copiado tál cual y no me funciona.

Mañana me lo miro con calma y sigo con el tema si aún no he podido resolverlo,

Aquí, y en stackoverf*** teneis que estar ya hartos de mí :xD, pero estais ayudando a alguien a aprender cosas nuevas de VB.NET, métodos nuevos, objetos nuevos, y en resumen aprender a hacer las cosas bien.

Como me dijo todo un experto en .NET, solo hay que saber "mezclar" las cosas bien.

Un saludo

PD: Hdm, lo mismo digo, mañana me lo miro detalladamente, y gracias.


EDITO: Por cierto, quizás es una tontería pero... ¿sería posible usar un regexp en "caracter"?

f CheckboxN.Name.Contains(caracter) Then

no se hacerlo en VB pero sería otra posibilidad (más sencilla para mí)
saludos

que buscarias capturar con la expresion regular?

Cita de: Keyen Night en 20 Noviembre 2012, 00:37 AM
que buscarias capturar con la expresion regular?

Hola, pues la interpretación que le haría en Ruby sería esta:
If CheckboxN.Name[(/^#{Regexp.escape(caracter)}$/)] Then...

Busca el "caracter" como una palabra con inicio y final de línea, de esa manera si el checkbox se llama "1", con ese regex excluiría todos los demás checkboxes: "10","11","12",etc.. ¿No?

Me iría muy bien, pero lo he intentado y me da error:
Dim reg As New Regex(caracter)
If reg.Match(CheckboxN.Name) Then

Value of type 'System.Text.RegularExpressions.Match' cannot be converted to 'Boolean'.

EDITO: Pensandolo bien, tengo que usar el string "checkbox" + (caracter) en el regex xD

un saludo

Gracias HdM por sacar el error, pues éste es vital para el posterior funcionamiento. Para cambiar el tipo de propiedad en My.Settings hay que hacerlo de forma manual, especificando en la propiedad en el archivo Designer.Vb el tipo Integer() o Int32().

He modificado el código para que no Checkee CheckBoxes que no fueron seleccionados, ahora se trabaja con una propiedad llamada "Valores" que guarda una lista de enteros que representa los índices de los CheckBoxes que fueron tildados al cerrar el programa. Al iniciar la aplicación se dibujan los CheckBoxes y se procede a comprobar la propiedad. El código está mal estructurado, pero EleKtro, es para que puedas ver lo que hago de forma simple. Recuerda que hay que ser limpios xD


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


Espero que te haya servido de ayuda,

Saludos!

He probado el form pero no me funciona:

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

CitarError 7       Value of type 'Integer' cannot be converted to '1-dimensional array of Integer'.   

My.Settings.Valores = mCheckados

CitarError   8   Value of type '1-dimensional array of Integer' cannot be converted to 'Integer'.   

Cita de: kub0x en 20 Noviembre 2012, 00:48 AM
Para cambiar el tipo de propiedad en My.Settings hay que hacerlo de forma manual, especificando en la propiedad en el archivo Designer.Vb el tipo Integer() o Int32().

(http://img17.imageshack.us/img17/262/prtscrcapture3px.jpg)

¿Eso es hacerlo de forma manual, o estoy omitiendo algo?
Vale creo que te referías aquí:

       <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

Es que yo no tengo un "form1.designer.vb" y acabo de conocer su existencia googleando...

Estoy acoplando tu form a mi form, a ver si por fin conseguimos que funcione...

(Infinitas) Gracias Kubox

EDITO: SÍ!!!

Me ha costado un poco adaptarlo a mi form pero al final lo he conseguido, y todo lo relativo al tema funciona bien

PD: Será una mier** mi programa pero sin duda kubox, Hdm, y Danyfirex os llevais unos agardecimientos en algún botón de la app xD

Ya puedo decir eso de... TEMA SOLUCIONADO!!!! ...O casi, porque aún me queda una duda esporádica...

¿Como puedo resetear el índice/tabla de la matriz?

Es decir, dejarlo todo "en blanco"... para poder borrar/añadir checkboxes una y otra vez sin que se salga fuera dle índice...

Mi app usa "folderbrowserdialog" para almacenar una ruta en "my.settings",
Cuando se abre el programa, esa ruta se carga en el evento form_load, Kubox, tu magnifico code se encarga de indizarlo y crear los checkboxes y tál una vez cargada la ruta, añadiendole el nombre de la carpeta a la propiedad "text" de cada checkbox.

El problema sucede cuando intento cargar una segunda ruta (osea, cuando uso el botón del folderbrowserdialog dentro de la app y selecciono una carpeta para que séa "cargada"), obtengo este error:

Index was outside the bounds of the array.
En:
   Private Sub CargarPropiedades()
               mcheck(indiceCheckado - 1).Checked = True
   End Sub


Y este es mi noob intento de reseteo antes de llamar al sub que llama al sub de "cargarpropiedades":

   ' 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()

y este es el sub que falta, por si acaso estuviera mal lo posteo:
   ' 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


GRACIAS POR VUESTRA PACIENCIA

Cuando dibujas nuevos controles la cantidad de CheckBoxes no tiene porque ser la misma que la anterior. Si tenias 20 CheckBoxes ya que encontraste 20 subdirectorios, y luego llamas al FolderBrowserDialog() quizás tengas una mayor cantidad de Controles y por eso es por lo que obtienes un error en conjunto con la propiedad. Me explico, si antes tenias 20 CheckBoxes en la matriz y ahora encontraste 10 subdirectorios pues en la matriz tendrás 30 ya que tienes que resetearla. Otro error es que antes tuvieras el Checkbox10 activado y ahora solo tengas dibujados 7 CheckBoxes e intentes Checkar ese 10. (Ahí te salta error en lo que dijiste de la proiedad).

Para resetear la matriz llama a este método :P

No he probado el código, ni tampoco le he dado muchas vueltas (estoy en clase :P) pero te adjunto algo:

    Dim mCheck(0) As CheckBox

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


Saludos!

Pues no, no me funciona el sub :-/

Tanto con tu sub como con "ReDim", y con "Array.Clear" obtengo el mismo error en el mismo sitió que comenté antes "el indice está fuera de blablabla...", algo estoy omitiendo o haciendo mal

Sobre lo que comentas de un checkbox10 y cargar menor cantidad de 10 checkboxes, pues también debo resetear eso entonces al cargar una carpeta :-/

Un saludo

EDITO:
Kubox, lo he arreglado por arte de mágia, realmente no se lo que ha pasado, empecé a probar cosas, y al volver pasos atrás en la IDE ("ctrl+z") ahora me funciona, SIN REDIMENSIONAR EL ARRAY NI NADA, ya te digo, por arte de mágia, no veo ni una pequeña modificación en la class...

Ahora puedo cargar las rutas que quiera y no me da error :S, tampoco me da error si cargo una ruta con 20 carpetas, selecciono el checkbox 20, y cargo una carpeta de 2 subfolders... (se selecciona el checkbox 2 xD)

Pues nada, un sufrimiento menos, ahora lo que necesitaría es resetear los checkboxes que se quedan clickados al cargar distintas rutas...

Retiro lo dicho, guardé el proyecto tal y como estaba, ahora he vuelto a abrir la ide, he ejecutado la app y me vuelve a dar el mismo problema del "index out of range", ha debido ser algún bug extraño del VS...porque no entiendo que me funcionase haciendo "pasos atrás" y ahora de nuevo no me vuelve a funcionar al cargar una ruta, muy raro.

Tengo el form casi terminado, lo único que me falta es eso, arreglar lo de los "reseteos" para que no me de error al usar el botón para cargar una ruta...

aquí adjunto el form completo por si sirve de algo:

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

Buenas EleKtro!

Te diría que debugeases la applicación o bien poniendo Breakpoints en los puntos que te interesa evaluar o bien llendo paso a paso por sentencia. Si cargas la app y el directorio es C:\ se dibujaran tantos CheckBoxes como directorios en C:\. Luego imaginate que cargas C:\musica, entonces se añadiran tantos CheckBox como directorios en C:\musica haya, pero claro, estas guardando en la propiedad FolderPathName el ultimo directorio cargado. Si inicias la app otra vez la propiedad que guarda el indice de los CheckBoxes checkados tendra un tamaño mayor a la que se espera pues solo estas dibujando tantos Checkbox como directorios en C:\musica, pero resulta que tambien cargas los de C:\ pues antes al cerrar la aplicación se guardaron los de C:\ y C:\musica.

No sé si ése será el error, el código parece estar bien. Ojala mis ojos fueran un debugger pero a tanto no llego xD como ultimo recurso pasame la solucion del proyecto y te busco el error.

Saludos!

Quizás este comentario resulta un poco OFFTOPIC, pero es para decirte que en estas últimas horas ya lo he intentado todo (todo lo que está bajo mis conocimientos en VB, que son pocos xD) y no he conseguido arreglar eso, así que como no me lo arregle un pro como tú... :xD

Dentro de 1-2 horas me pongo de nuevo al tema a ver si puedo solucionarlo yo solo con los datos que me acabas de dar, es que me da palo pedirte cosas ya, y sinó lo consigo en un rato pues te paso la "solución" por mp más tarde vale?

hasta un rato :)        (Y GRAAAAAAAACIAS, mi salvador! :xD)

Hola.

Yo el error veo que está en que cada vez que seleccionas un directorio, llamas al updatecheckboxes(), redibujando los checkbox y éste a su vez llama al CargarPropiedades(), que tiene almacenados los checkbox que había creados en la apertura del form. Es posible que el nº de checkbox actualmente dibujados, no coincida con los índices de checkbox almacenados en My.Settings.Valores y eso produce el error.

Ten en cuenta que en CargarPropiedades(), por cada checkbox dibujado, estás recorriendo todos los índices de los checkbox almacenados en My.Settings.Valores.

Saludos.

Necesito un resumen :xD

En tu app;

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

Saludos

Cita de: Novlucker en 20 Noviembre 2012, 14:12 PM
Necesito un resumen :xD

En tu app;

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

Saludos

x2 Yo también iba a publicar lo mismo :-X :xD El problema se ha desbordado un poco no?

Encontré el error, es lo que te dije antes y no es por el código si no por las rutas cargadas. Esta vez te lo intentaré explicar lo mejor posible :P

cuando se inicia la App se dibujan los CheckBoxes de la ruta actual. Si cargas mas rutas a través del FolderButton() entonces se añaden mas CheckBoxes (la matriz mCheck tendrá mas índices). Hasta ahí bien. Aunque llames a CargarPropiedades() todo seguirá bien ya que tendrás los mismos índices que cuando cargaste la primera ruta.

El problema se presenta al cerrar la aplicación, pues imagínate que la ruta que cargaste al principio del programa genera 10 Checkboxes y la que cargaste con FolderButton genera 5 CheckBoxes más. Si antes de cerrar el programa tildaste el CheckBox 12,13 y 14 cuando abras la App otra vez sólo se dibujarán los CheckBoxes de la última ruta cargada (los 5 que generaste mediante FolderButton). Entonces la matriz mCheck tendrá 5 índices y le será imposible acceder al índice 12,13 y 14 pues esos índices los generaste cuando tenías 15 CheckBoxes Y AHORA TIENES 5 no los 15 que generaste por última vez (cargas el último directorio asignado a la propiedad, no los anteriores :/)

Tienes que idear un método para que se carguen las últimas rutas cargadas en el formulario, de esta forma podrás dibujar todos los CheckBoxes de ambas rutas y posteiormente comprobar si fueron tildados la última vez. Puedes hacerlo con una propiedad que guarde una matriz de cadenas String().

Espero que lo entiendas, pues el error es bastante crítico xD Si no lo entendieras pues podría ayudarte mediante código, pero estaría bien que pudieras arreglarlo pues es la mejor manera de comprender el funcionamiento del programa. Cualquier duda aquí me tienes.

Saludos!

Cita de: Novlucker en 20 Noviembre 2012, 14:12 PM

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

Hola Novlucker,

Me sirvo de la setting/propiedad para almacenar la referencia de los checkboxes que están seleccionados antes de cerrar la app, al volver a abrir la app se recorre la propiedad buscando los checkboxes de "la última sesión" para que se seleccionen automáticamente.

---

Cita de: Keyen Night en 20 Noviembre 2012, 14:13 PM
x2 Yo también iba a publicar lo mismo :-X :xD El problema se ha desbordado un poco no?

La verdad es que sí, me parece increible que este tipo de MINI-aplicación tán insignificante requiera tanto esfuerzo.

---

Cita de: kub0x en 20 Noviembre 2012, 14:27 PM
El problema se presenta al cerrar la aplicación, pues imagínate que la ruta que cargaste al principio del programa genera 10 Checkboxes y la que cargaste con FolderButton genera 5 CheckBoxes más. Si antes de cerrar el programa tildaste el CheckBox 12,13 y 14 cuando abras la App otra vez sólo se dibujarán los CheckBoxes de la última ruta cargada (los 5 que generaste mediante FolderButton). Entonces la matriz mCheck tendrá 5 índices y le será imposible acceder al índice 12,13 y 14

por esa regla de trés, una posibilidad sería, como los checkboxes tildados se guardan en la propiedad "valores", pues vaciar la propiedad antes de cargar la nueva ruta... ¿Me equivoco o voy bien?

Cita de: kub0x en 20 Noviembre 2012, 14:27 PM
Tienes que idear un método para que se carguen las últimas rutas cargadas en el formulario, de esta forma podrás dibujar todos los CheckBoxes de ambas rutas y posteiormente comprobar si fueron tildados la última vez. Puedes hacerlo con una propiedad que guarde una matriz de cadenas String().

Si lo que he comentado en la cita anterior es así entonces puedo omitir el tener que idear ese método... ¿no?
Kubox, entenderlo lo entiendo (o eso creo), otra cosa es que tenga idea de como idear ese método para solventarlo, y sí... es un error muy crítico, y jod*er, si consigo arreglar eso ya tengo la aplicación hecha.

Vamos que en resumen, el error reside en que en "valores" se guardan los indices de la última ruta cargada, y claro al cargar una ruta nueva (Si tiene menos checkboxes o más que el indice) se jode todo... ¿no?

Pues como no tengo ni idea de idear nada semejante para arreglarlo, esto me parece más sencillo (pero no se si es posible hacerlo), a ver que opinas:

1. Se ejecuta la app (el primer uso de la app), aki no hay ninguna carpeta cargada porque se tiene que usar el botón del FolderBrowserDialog para cargarla.
2. Le damos al botón y cargo una ruta, se indexa y se guarda.
3. pincho en algunos checkboxes.
3. Ahora me apetece cargar otra ruta, pues sigo el mismo procedimiento del paso 2, pero esta vez, justo antes de cargar la nueva ruta, vacío la propiedad "valores", osea, lo dejo como estaba al princpio, con un valor de "0", elimino todas las "entradas" que hubiera en la propiedad "Valores", así ya no hay problemas con el índice ni con nada y los checkboxes se crearían y se indexarían correctamente como en el primer uso del programa, y al cerrarse se cerraría correctamente porque "valores" solo contendría los valores de esta ultima ruta cargada...

Solo es un planteamiento... ¿Está bien?, ¿Es posible hacerlo?

Un saludo

Lo he hecho rápidamente, el código es MUY mejorable :P

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();
       }
   }
}


Saludos

@Novlucker: jajaja, estás en la champions.

@EleKtro: ¿Por qué no sacas el CargarPropiedades() fuera del updatecheckboxes()? Si no entiendo mal lo que quieres hacer, sólo se debe pasar por el CargarPropiedades() al iniciar la app., ¿no? De modo que ¿para qué pasar por ese sub cada vez se llama a updatecheckboxes()?

Saludos.

me lei todo y todavia no entendi :xD, en realidad entendi, pero no cual es el problema, es simplemente guardar el estado de los checkbox y la ultima ruta que seleccionaste. pero como tenes 2 rutas se te borran las anteriores, pues simplemente guardas para cada path determinado tanta cantidad de checkboxes y de esa forma cada ves que cambias de ruta tenes lo ultimo que seleccionaste.

por ejemplo la carpeta c:\prueba genera 2 checkbox, tildas los 2 por ejemplo:

- check 1
- check 2

despues vas y seleccionas la carpeta c:\prueba2 que genera 3 checkboxes mas (aca ya tenes que guardar los checkboxes anteriores, y guardar la ruta tambien).

- check 1
- check 2
- check 3

supongamos que tildas los 3.

entonces si ahora vas y seleccionas otra ves la carpeta anterior c:\prueba debes cargar los primeros 2 check.

o sea el path es lo que importa aca, despues segun el path cargas los checkbox que se crearon.

pero antes tendrias que hacer una validacion tambien de si existe la carpeta, porque si yo voy y borro un subdirectorio y despues cargas los valores guardados ese directorio no existe mas, por lo tanto el checkbox tampoco deberia aparecer.

Cita de: Novlucker en 20 Noviembre 2012, 15:17 PMLo he hecho rápidamente, el código es MUY mejorable :P

Gracias Nov!

Pero antes de convertilo a NET... perdona la ignoracía: ¿Que co** se supone que hace ese form?  :xD ¿Es una posible solución al problema que he expuesto? ¿O es un ejemplo de otra cosa?, es que yo solo veo un form en C# a simple vista xD, explícame un poco que es, ché!

---

Cita de: HdM en 20 Noviembre 2012, 15:35 PM
@EleKtro: ¿Por qué no sacas el CargarPropiedades() fuera del updatecheckboxes()? Si no entiendo mal lo que quieres hacer, sólo se debe pasar por el CargarPropiedades() al iniciar la app., ¿no?

...
...
...
OMG

Pues sí !!, modificandolo de lugar parece que se han solucionado todos los problemas (parece) :xD

Tán fácil como eso... para tí ha sido muy obvio ver donde estaba el fallo pero yo llevo una mañana entera sin poder verlo jaja, en fin, muchas gracias Hdm,
aún tengo que testearlo un poco, que no me fío nada, me ha parecido demasiado fácil la modificación...

Pero creo que esta vez si...

---

@seba123neo

Lo mismo te digo, muchas gracias por la ayuda, pero creo que con la pequeña modificación que me dijo Hdm ya lo he dsolucionado y no me hará falta seguir los pasos que comentas.

Lo de la validacion del directorio es algo importante y buena idea, me me lo apunto en el "ToDoList" de la app :xD

Un saludo.

Lo que hace NovLucker es guardar los subdirectorios de una ruta en un archivo xml serializado en funcion del Checkbox, pues si éste está checkado guarda la ruta . Posteriormente puedes acceder a dichos datos a través de GetSavedsPaths() e ir checkando los CheckBoxes.Sería algo como "tus rutas de música favoritas". Buen aporte sin duda :)

Estoy ciego, gracias HdM por aportar la solución pues no ví que se borraban los CheckBoxes dibujados al llamar a updatecheckboxes() y me lié pensando en otra cosa xD. Debería funcionar bien, ya que cargas la última ruta, obtienes los indices checkados y dibujas los Checkboxes (Todo en el evento Load) . Al quitar el método CargarPropiedades() de updatecheckboxes() te aseguras que si cargas una nueva ruta, se dibujen nuevos CheckBoxes y no haya conflictos si la cantidad es menor a la anterior.

Disfruta de la app :D

Ese código;

• 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

carpeta1, carpeta2 son subdirectorios que cree para el ejemplo

Saludos

Ok, pues si te funca bien con el cambio, perfecto entonces. Cuando lo comercialices y te forres, acuérdate de los amigos  :silbar: XDDDD

Cita de: HdM en 20 Noviembre 2012, 18:31 PM
Ok, pues si te funca bien con el cambio, perfecto entonces. Cuando lo comercialices y te forres, acuérdate de los amigos  :silbar: XDDDD

si si que funciona con lo que me dijiste Hdm, y puedo dar el tema como solucionado ya.

Mi programa es una mi**** aunque lo he hecho en idioma inglés y pienso compartirlo, es para un uso personal, seleccionas una o varias carpetas, y le das al play para reproducirlas, fin de la historia xD,
pero todo lo que me habeis dicho me servirá a la hora de hacer otros programas mejores, como el USBMON que estoy intentando hacer en un WPF.

Un saludo!