componentes enabled disabled winforms

[rikakashi]

Código vb:

txt_1_nom.Enabled = True
        txt_2_nom.Enabled = True
        txt_1_ap.Enabled = True
        txt_2_ap.Enabled = True
        txt_rfc.Enabled = True
        txt_calle.Enabled = True
        txt_cp.Enabled = True
        txt_monto.Enabled = True
        txt_limite.Enabled = True
        txt_tipo_tarjeta.Enabled = True
        txt_num_tarj.Enabled = True
        txt_num_locker.Enabled = True
        txt_saldo_vencer.Enabled = True
        txt_saldo_0_30.Enabled = True
        txt_saldo_31_60.Enabled = True
        txt_saldos_61_90.Enabled = True
        txt_saldos_91.Enabled = True
        txt_saldos_total.Enabled = True
        txt_fecha_alta.Enabled = True
        txt_fecha_ult_acc.Enabled = True
        txt_fecha_ult_consumo.Enabled = True
        txt_fecha_ult_pago.Enabled = True
        txt_fecha_ult_comentario.Enabled = True
        txt_fecha_aniversario.Enabled = True
        txt_fecha_cumpleanos.Enabled = True
 
        cmb_titulo.Enabled = True
        cmb_edocivil.Enabled = True
        cmb_pais.Enabled = True
        cmb_estado.Enabled = True
        cmb_ciudad.Enabled = True
        cmb_colonia.Enabled = True
        cmb_ptocardinal.Enabled = True
        cb_status.Enabled = True
        cb_substatus.Enabled = True
        cb_tipo_cuota.Enabled = True
 
        '
        'CHECKBOX
        '
        chk_inha_cred.Enabled = True
        chk_tarj_credito.Enabled = True
        chk_cargo_aut.Enabled = True
        chk_factura.Enabled = True
        chk_datos_adicionales_pv.Enabled = True
        chk_consumo_minimo_salas.Enabled = True
        chk_carga_intereses.Enabled = True
        chk_regalo.Enabled = True
 

alguien me puede ayudar a resumir esto.. y de igual manes validar si alguno de ellos = Nothing asignarles un valor... sin tanto codigo... ya que para cada control lo tengo asi

Código vb:

If txt_fecha_alta.Text = Nothing Then
 
            CL_FECHA_ALTA = 12
        Else
            CL_FECHA_ALTA = txt_fecha_alta.Text
        End If
 
        If txt_fecha_ult_acc.Text = Nothing Then
            CL_FECHA_ULT_ACC = 0
        Else
            CL_FECHA_ULT_ACC = txt_fecha_ult_acc.Text
        End If
 
        If txt_fecha_ult_consumo.Text = Nothing Then
            CL_FECHA_ULT_CON = 0
        Else
            CL_FECHA_ULT_CON = txt_fecha_ult_consumo.Text
        End If
 
        If txt_fecha_ult_pago.Text = Nothing Then
            CL_FECHA_ULT_PAG = 0
        Else
            CL_FECHA_ULT_PAG = txt_fecha_ult_pago.Text
        End If
 
        If txt_fecha_ult_comentario.Text = Nothing Then
            CL_FECHA_ULT_COM = 0
        Else
            CL_FECHA_ULT_COM = txt_fecha_ult_comentario.Text
        End If
 
        If txt_fecha_aniversario.Text = Nothing Then
            CL_FECHA_ANIVERSARIO = 0
        Else.........................................................
 

[Aquaventus]

!!!!!!!! no seria mas facil recorrer todos los controles de tu form ??
Por ejemplo aqui te dejo uno que limpia los textbox

Código vb:

'Recorro los controles
        For Each c As Control In f.Controls
            'si es de tipo textbox
            If TypeOf c Is TextBox Then
                c.Text = String.Empty ' seteo el textbox
            End If
        Next
 

Piensa un poco para que lo puedes adaptar y solucionar tu problema! .

[rikakashi]

Iniciado por Aquaventus

!!!!!!!! no seria mas facil recorrer todos los controles de tu form ??
Por ejemplo aqui te dejo uno que limpia los textbox

Código vb:

'Recorro los controles
        For Each c As Control In f.Controls
            'si es de tipo textbox
            If TypeOf c Is TextBox Then
                c.Text = String.Empty ' seteo el textbox
            End If
        Next
 

Piensa un poco para que lo puedes adaptar y solucionar tu problema! .

intentare con este codigo y lo modificare pero creo que no se me ocurre un metodo sencillo aun.

Saludos! te dire como fue

[Aquaventus]

pero como que no se te ocurre un metodo sencillo si con lo que te pasado puedes hacer todo lo que pides ??? acaso no sabes las propiedades que tienen los controles? te ayudo con 1, por ejemplo para los textbox dentro del if del codigo que te pase arriba le pones c.Enable = true y con eso habilita todos los textbox. Saludos!

[rikakashi]

Iniciado por Aquaventus

pero como que no se te ocurre un metodo sencillo si con lo que te pasado puedes hacer todo lo que pides ??? acaso no sabes las propiedades que tienen los controles? te ayudo con 1, por ejemplo para los textbox dentro del if del codigo que te pase arriba le pones c.Enable = true y con eso habilita todos los textbox. Saludos!

Si si conozco las propiedades de los controles solo que no se me habia ocurrido el for que me acabas de facilitar, me ayudo mucho y lo estare adaptando a mis controles para reducir mis lineas

Estoy aprendiendo programacion y me esta gustando

[rikakashi]

Hola! Molestando de nuevo. Porque no me funciona en un TabControl?

[Aquaventus]

mas que todo son para controles comunes =) y ese es un contenedor de controles =)

[rikakashi]

Muchas gracias!!! me resulto asi

Código vb:

Dim c As Control
        Dim g As Control
        Dim p As Control
 
        For Each p In TabPage1.Controls
            If TypeOf p Is Panel Then
                For Each g In p.Controls
                    If TypeOf g Is GroupBox Then
                        For Each c In g.Controls
                            If TypeOf c Is TextBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is ComboBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is CheckBox Then
                                c.Enabled = True
                            End If
                        Next
                    End If
                Next
            End If
        Next
 

[Aquaventus]

Excellente! ya vas agarrandole el sentido!

[rikakashi]

Iniciado por Aquaventus

Excellente! ya vas agarrandole el sentido!

si! solo hay que pensar un poco y leer y comprender