none
Panel dinamico, recurperar cambiop RRS feed

  • Pregunta

  • Hola

    he creado un panel dinámico en el cual le añado CheckBox y un botón de enviar 

    La idea es que cuando el usuario pulse el botón me devuelva el panel con las modificaciones del usuarios, pero no se como recuperar estos valores

    Public Function listoptions() As Panel Dim MyPanel As Panel = New Panel Dim idiomaDel As language = New language(IdiomaDelegacio) For Each mynewChecbox As String In general.ListRowsList Dim myChecbox As CheckBox = New CheckBox myChecbox.ID = mynewChecbox Dim myPanelChecbox As Panel = New Panel Dim nameLabel As String = "Label" + mynewChecbox myChecbox.Text = idiomaDel.getText(nameLabel) myPanelChecbox.Controls.Add(myChecbox) MyPanel.Controls.Add(myPanelChecbox) Next Dim myButton As Button = New Button myButton.Text = idiomaDel.getText("ButtonGuardar") myButton.OnClientClick = recurperar(MyPanel) Dim myPanelButton As Panel = New Panel myPanelButton.Controls.Add(myButton) MyPanel.Controls.Add(myPanelButton) Return MyPanel End Function

                     

        Public Function recurperar (ByVal MyPanel As Panel) As String
            For Each myControls As Control In MyPanel.Controls
                'myChecbox.GetType())
                For Each myControls2 As Control In myControls.Controls
                    If TypeName(myControls2) = "CheckBox" Then
                        Dim myCheckBox As CheckBox = CType(myControls2, CheckBox)
                        If myCheckBox.Checked Then
                            MsgBox("ENTRA")

                        End If
                    End If
                Next
            Next

            Return ""

        End Function


    miércoles, 25 de enero de 2017 11:46

Respuestas

Todas las respuestas