none
Problema con Formulario RRS feed

  • Pregunta

  • tengo una duda, bueno en si lo que tengo es un formulario 1 y un formulario 2
     cuando creo un control en el formulario , me muestra el formulario 2
    y en este le paso un parametros a un procedimiento
    ejemplo
    sub visibiblidad ( byval cantidad as integer)
    // aqui pongo visibles los radios y la cantidad pasada por parametro
    end sub

     y tengo delcaradas e intanciadas a los dos dormularios
    for1 as new formulario 1
    for2 as new formulario 2
     en un archivo module,
    pasa que cuando presiono el boton generar en el formulario dos y le paso la funcion
    for1.visibilidad(cantidad)

    no me muestra en el formulrio los radios que active, pero el parametro lo pasa y hasta ejecuta la funcion pero por que no los activa-.-.

    alguine puede ayudarme ?
    • Cambiado Enrique M. Montejo domingo, 26 de junio de 2011 16:29 Windows Forms (De:Lenguaje VB.NET)
    jueves, 15 de octubre de 2009 18:02

Todas las respuestas

  • puedes mostrar el codigo???
    jueves, 15 de octubre de 2009 18:07
  • en un archivo Module tengo
        Public FunDatos As New EjecutaComandos
        Public Dis As New Diseñador  / formulario 1
        Public Dis_Pre As New Diseñador_Pregunta  Formulario 2
     Lo cual aqui solo declaro
     Esto tengo en el formulario, aqui uso un Treeview donde creo un nodoy al crearse, me aparece el Formulario dos donde realizo algunas configuraciones.

     Private Sub ToolPantalla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolPantalla.Click
            If g_Nivel_Nodo = 0 Then
                Dim IdNodoPadre As Integer
                IdNodoPadre = Me.Obtener_IdNodoPadre()
                NodoTree = New TreeNode("Pantalla_" & IdNodoPadre)
                If Me.Grabar_Nodo_Padre(IdNodoPadre, NodoTree.Text) = True Then
                    Me.TreeNodos.Nodes.Add(NodoTree.Tag, NodoTree.Text)
                    MessageBox.Show("NUEVO ELEMENTO CREADO ")
                    Me.LblPrincipal.Text = NodoTree.Text
                    Dis_Pre.Obtener_IdPadre(IdNodoPadre, CStr(Me.LblPrincipal.Text))
                    Me.Hide()
                    Dis_Pre.Show()   / aqui veo el otro form
                Else
                    MessageBox.Show("NOMBRE YA EXISTENTE, ELIGA OTRO", "VERIFICACION", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Me.ToolTxtBox.Text = ""
                End If
            Else
                MessageBox.Show("NO PUEDE CREAR ESTE ELEMENTO Y/O REVISE NOMBRE DEL ELEMENTO", "REVISE DATOS", MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning)
                Me.ToolTxtBox.Text = ""
            End If
        End Sub

    Un Bton del Formulario 2
     Private Sub BtnFinalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFinalizar.Click

            If Me.ComboCant.Text.ToString <> "" And Me.ComboCant.Text.ToString <> "-----" Then
                Dis = New Diseñador
                IdPregunta = Dis.Obtener_IdPregunta()
                If Dis.Grabar_O_Actualizar_Encuesta("INSERT INTO pregunta(IdHijo,IdPregunta,PrincipalPregunta,SubPregunta,Opcion,Num_Opcion,IdTipoPregunta,IdNodo) VALUES ('0','" & IdPregunta & "','0','0','0','" & CInt(Me.ComboCant.Text) & "','" & IdTipoPregunta & "','" & g_Padre & "')") = True Then
                    'FunDatos.ExecuteNonQuery_CE("UPDATE pregunta SET IdTipoPregunta='" & CInt(Me.ComboCant.Tag) & "'  ")
                    MessageBox.Show(" Pregunta Configurada Correcatamente", " VERFICACION ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Me.BtnFinalizar.Enabled = False
                    Me.BtnFinalizar.Enabled = True
                    Dis.Show()
                    Dis.Visibilidad(CInt(Me.ComboCant.Text))

                Else
                    MessageBox.Show(" CONFIGURE DE MANERA CORRECTA LA PREGUNTA ", " VERIFICACION ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If
            Else
                MessageBox.Show(" CONFIGURE DE MANERA CORRECTA LA PREGUNTA ", " VERIFICACION ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End Sub

    Y este es parte del procedimiento
    Sub Visibilidad(ByVal Cantidad As Integer)
            Select Case CInt(Cantidad)
                Case 1
                    Me.Radio1.Visible = True
                    Me.Txt1.Visible = True
                    Me.Radio2.Visible = False
                    Me.Txt2.Visible = False
                    Me.Radio3.Visible = False
                    Me.Txt3.Visible = False
                    Me.Radio4.Visible = False
                    Me.Txt4.Visible = False
                    Me.Radio5.Visible = False
                    Me.Txt5.Visible = False

                Case 2
                    Me.Radio1.Visible = True
                    Me.Txt1.Visible = True
                    Me.Radio2.Visible = True
                    Me.Txt2.Visible = True
                    Me.Radio3.Visible = False
                    Me.Txt3.Visible = False
                    Me.Radio4.Visible = False
                    Me.Txt4.Visible = False
                    Me.Radio5.Visible = False
                    Me.Txt5.Visible = False
    Aqui tngo mas case pero son lo mismo solo que con mas Radios.

    Pero lo raro es que hago una prueba , dentro de un boton cuallquiera
    Evento click de Boton
     Me.Hide()
            Dis.Show()
            Dis.PnlContenido.Visible = True / esto lo hace, me oculta el control panel
            Dis.TxtSubPregunta.Visible = True
            Dis.PnlContenido.BringToFront()
            Dis.Visibilidad(3)// pero aqui cuando realiza esto, el parametro es pasado, pero no controla los radioss...
     por que debe ser ?? por que recorre el procedmiento Visibilidad


    gracias
    end sub
    jueves, 15 de octubre de 2009 20:17