elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  (solucionado) ¿clonar evento para varios elementos? ¿FOR?
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 [2] 3 4 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: (solucionado) ¿clonar evento para varios elementos? ¿FOR?  (Leído 28,404 veces)
kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #10 en: 19 Noviembre 2012, 17:03 pm »

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

Ya me cuentas ;)



En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #11 en: 19 Noviembre 2012, 17:11 pm »

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: VS
Error   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:

Código
  1. Public Sub AnyCB_CheckedChanged(sender As Object, e As EventArgs)
  2.  
  3.        Dim cb = DirectCast(sender, CheckBox)
  4.        If cb.Checked AndAlso Not My.Settings.MyCBs.Contains(cb.Name) Then
  5.            My.Settings.MyCBs.Add(cb.Name)
  6.        ElseIf Not cb.Checked AndAlso My.Settings.MyCBs.Contains(cb.Name) Then
  7.            My.Settings.MyCBs.Remove(cb.Name)
  8.        End If
  9.  
  10.    End Sub
  11.  
  12.    Public Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
  13.  
  14.        If My.Settings.MyCBs Is Nothing Then My.Settings.MyCBs = New Collections.Specialized.StringCollection
  15.  
  16.        For Each s In My.Settings.MyCBs
  17.            DirectCast(Me.Controls(s), CheckBox).Checked = True
  18.        Next
  19.  
  20.        For Each cb In Me.Controls.OfType(Of CheckBox)()
  21.            AddHandler cb.CheckedChanged, AddressOf AnyCB_CheckedChanged
  22.        Next
  23.  
  24.    End Sub
Cuando 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"


« Última modificación: 19 Noviembre 2012, 17:29 pm por EleKtro H@cker » En línea



kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #12 en: 19 Noviembre 2012, 18:47 pm »

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.

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

Saludos!
« Última modificación: 19 Noviembre 2012, 18:50 pm por kub0x » En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #13 en: 19 Noviembre 2012, 19:12 pm »

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...

Código
  1. Imports System.Windows.Forms
  2. Imports System.IO
  3.  
  4. Public Class Form1
  5.    Dim filesystem As Object, ThisDir As Object
  6.    Public newCheckBox As New CheckBox()
  7.    Dim mCheck(9999) As CheckBox 'matriz que contendrá los "X" CheckBox
  8.  
  9.    ' Start of Propertys
  10.    Public Property userSelectedPlayerFilePath() As String
  11.        Get
  12.            Return playertextbox.Text
  13.        End Get
  14.        Set(value As String)
  15.            playertextbox.Text = value
  16.        End Set
  17.    End Property
  18.  
  19.    Public Property userSelectedFolderPath() As String
  20.        Get
  21.            Return foldertextbox.Text
  22.        End Get
  23.        Set(value As String)
  24.            foldertextbox.Text = value
  25.        End Set
  26.    End Property
  27.  
  28.    Public Property checkedpath1() As String
  29.        Get
  30.            Return newCheckBox.Text
  31.        End Get
  32.        Set(value As String)
  33.            newCheckBox.Text = value
  34.        End Set
  35.    End Property
  36.    ' End of propertys
  37.  
  38.  
  39.    ' update checkboxes
  40.    Public Sub updatecheckboxes()
  41.        ' delete the old checkboxes
  42.        Panel1.Controls.Clear()
  43.        ' create the new checkboxes
  44.        Dim i As Int32 = 0
  45.        Dim posy As Integer = 0
  46.        Dim filesystem = CreateObject("Scripting.FileSystemObject")
  47.        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
  48.        For Each folder In ThisDir.Subfolders
  49.            i = i + 1
  50.            mCheck(i) = New CheckBox() 'creo un CheckBox en cada espacio de la matriz
  51.            With mCheck(i)
  52.                .Name = "Checkbox" & i ' Le adjunto un nombre Checkbox1 / Checkbox2 y 3
  53.                .Text = folder.name
  54.                .Location = New Point(10, i * 20)
  55.            End With
  56.            'MessageBox.Show(mCheck(i).Name)
  57.            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
  58.            Panel1.Controls.Add(mCheck(i))
  59.        Next
  60.        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
  61.    End Sub
  62.  
  63.  
  64.    Public Sub CargarPropiedad() 'método que comprobará que CheckBoxes fueron tildados la útlima vez
  65.        Dim mCuantosChecked As Char() = My.Settings.CuantosChecked.ToCharArray 'Paso el String de la propiedad a una matriz
  66.        'Simplemente hago esto para separar el String por indices (un caracter por indice)
  67.        For Each caracter As Char In mCuantosChecked 'Recorro la matriz caracteres que contendrá los checboxes tildados
  68.            For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
  69.                If CheckboxN.Name.Contains(caracter) Then
  70.                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
  71.                    'que tiene los indices de los CheckBoxes tildados
  72.                    CheckboxN.Checked = True 'Lo tildo
  73.                End If
  74.            Next
  75.        Next
  76.    End Sub
  77.  
  78.  
  79.    Private Sub GenerarPropiedades() 'metodo que generará la propiedad al producirse el cierre del formulario
  80.        Dim CheckedN As String = Nothing 'la cadena que contendrá los CheckBoxes que estén Checkados
  81.        For i As Int32 = 0 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
  82.            If mCheck(i).Checked = True Then 'Si el CheckBox actual está checkado
  83.                CheckedN &= i + 1 'Obtengo su indice y lo meto al string (si es Checkbox1 pues 1, si es chckbx2 pues 2) ...
  84.            End If
  85.            Me.Close()
  86.        Next
  87.  
  88.        My.Settings.CuantosChecked = CheckedN 'Actualizo la propiedad
  89.        My.Settings.Save() 'Guardo la propiedad
  90.  
  91.    End Sub
  92.  
  93.  
  94.    ' Form close
  95.    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  96.        'Este es el evento al que se llamará cuando se cierre la aplicación
  97.        'Como ves al cerrar la aplicación llamamos al método GenerarPropiedades() para guardar los CheckBoxes que fueron tildados
  98.        '      My.Settings.Save()
  99.        GenerarPropiedades()
  100.        Me.Close()
  101.    End Sub
  102.  
  103.  
  104.    ' Form load
  105.    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  106.        playertextbox.Text = My.Settings.playerpath
  107.        foldertextbox.Text = My.Settings.folderpath
  108.        updatecheckboxes()
  109.        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
  110.    End Sub
  111.  
  112.    ' Folder button
  113.    Private Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
  114.        Dim folderselected As New System.Windows.Forms.FolderBrowserDialog
  115.        Dim Resultado As DialogResult
  116.        folderselected.RootFolder = Environment.SpecialFolder.Desktop
  117.        Resultado = folderselected.ShowDialog
  118.        If Resultado.ToString() = "OK" Then
  119.            userSelectedFolderPath = folderselected.SelectedPath
  120.            My.Settings.folderpath = folderselected.SelectedPath
  121.            My.Settings.Save()
  122.            updatecheckboxes()
  123.        End If
  124.    End Sub
  125.  
  126.  
  127.    ' Player button
  128.    Public Sub C1Button1_Click(sender As Object, e As EventArgs) Handles playerbutton.Click
  129.        Dim playerselected As New OpenFileDialog()
  130.        playerselected.InitialDirectory = Environ("programfiles")
  131.        playerselected.Title = "Select your favorite music player"
  132.        playerselected.Filter = "Music players|mpc.exe;mpc-hc.exe;mpc-hc64.exe;umplayer.exe;vlc.exe;winamp.exe;wmp.exe"
  133.        PlayerDialog.FilterIndex = 1
  134.        Dim selection As System.Windows.Forms.DialogResult = playerselected.ShowDialog()
  135.        If selection = DialogResult.OK Then
  136.            userSelectedPlayerFilePath = playerselected.FileName
  137.            My.Settings.playerpath = playerselected.FileName
  138.            My.Settings.Save()
  139.        End If
  140.    End Sub
  141.  
  142.  
  143.    ' Play button
  144.    Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click
  145.        Process.Start(userSelectedPlayerFilePath, ControlChars.Quote & Path.Combine(ThisDir.Path, checkedpath1) & ControlChars.Quote)
  146.    End Sub
  147.  
  148.    ' función que se ejecuta cuando cualquier checkbox es clickado
  149.    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
  150.        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
  151.        MsgBox(CheckboxN.Name)
  152.  
  153.    End Sub
  154.  
  155.  
  156.  
  157. End Class
  158.  
  159.  
« Última modificación: 19 Noviembre 2012, 19:18 pm por EleKtro H@cker » En línea



kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #14 en: 19 Noviembre 2012, 19:26 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.

Código
  1. Dim mCheck(0) as CheckBox() 'un indice
  2.  
  3. Private Sub BuscarCarpetas()
  4. Dim i as integer = 0
  5. for directorio in subdirectorios
  6. i+=1 'se encontró una carpeta, sumo un indice
  7. Array.Resize(mCheck,i) 'meto un indice mas a la matriz de CheckBoxes
  8. for i as int32 = 0 to mCheck.length - 1
  9. mCheck(i) = New CheckBox()
  10. 'y aqui sigues como esta
  11. Next
  12.  

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!
En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #15 en: 19 Noviembre 2012, 19:56 pm »

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?
Código
  1.       Dim filesystem = CreateObject("Scripting.FileSystemObject")
  2.        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
  3.        Dim folderindex As Integer = 0
  4.  
  5.        For Each folder In ThisDir.Subfolders
  6.            folderindex += 1
  7.            Array.Resize(mCheck, folderindex)
  8.        Next
  9.  
  10.        For i As Int32 = 0 To mCheck.Length - 1
  11.            mCheck(i) = New CheckBox()
  12.            With mCheck(i)
  13.                .Name = "Checkbox" & i
  14.                .Text = folder.Name
  15.                .Location = New Point(10, i * 20)
  16.            End With
  17.        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:

Código
  1. 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)

Código
  1. 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.
« Última modificación: 19 Noviembre 2012, 20:40 pm por EleKtro H@cker » En línea



kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #16 en: 19 Noviembre 2012, 21:03 pm »

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
En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #17 en: 19 Noviembre 2012, 21:20 pm »

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

Código
  1.    ' update checkboxes
  2.    Public Sub updatecheckboxes()
  3.        ' delete the old checkboxes
  4.        Panel1.Controls.Clear()
  5.        ' create the new checkboxes
  6.        Dim filesystem = CreateObject("Scripting.FileSystemObject")
  7.        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
  8.        Dim i As Int32 = 0
  9.        For Each folder In ThisDir.Subfolders
  10.            i += 1
  11.            Array.Resize(mCheck, i)
  12.            MessageBox.Show("test")
  13.            mCheck(i) = New CheckBox()
  14.            With mCheck(i)
  15.                .Name = "Checkbox" & i
  16.                .Text = folder.Name
  17.                .Location = New Point(10, i * 20)
  18.            End With
  19.            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
  20.            Panel1.Controls.Add(mCheck(i))
  21.        Next
  22.        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
  23.    End Sub

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

PD: El messagebox solo se muesta UNA vez :S
Muchas gracias por tu tiempo
« Última modificación: 19 Noviembre 2012, 21:22 pm por EleKtro H@cker » En línea



HdM


Desconectado Desconectado

Mensajes: 1.674



Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #18 en: 19 Noviembre 2012, 22:25 pm »

Hola EleKtro.

El problema lo tienes aquí:

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

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

Saludos.
En línea

- Nice to see you again -
kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.486


S3C M4NI4C


Ver Perfil
Re: [VS] ¿clonar evento para varios elementos? ¿FOR?
« Respuesta #19 en: 19 Noviembre 2012, 22:33 pm »

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!
En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Páginas: 1 [2] 3 4 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines