CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Controles En .net

<< < (2/2)

lencho:
ahora si, me salio.

ahi ta el codigo.


--- Código: Text ---         Dim ctrl, ctrl2 As Control        For Each ctrl In Me.Controls            If (TypeOf (ctrl) Is GroupBox) Then                Dim miGroup As GroupBox                miGroup = DirectCast(ctrl, GroupBox)                For Each ctrl2 In miGroup.Controls                    If (TypeOf (ctrl2) Is TextBox) Then                        Dim miTextBox As TextBox                        miTextBox = DirectCast(ctrl2, TextBox)                        MsgBox(miTextBox.Name)                    End If                Next            End If             If (TypeOf (ctrl) Is TextBox) Then                Dim miTextBox As TextBox                miTextBox = DirectCast(ctrl, TextBox)                MsgBox(miTextBox.Name)            End If        Next  
pero esto es solo para los textbox que estan en el formulario y sobre un groupbox, tendre que hacerlo tambien para los que estan dentro de un panel !!!.

Gracias por la ayuda Cajami.

BYTE.

Soultaker:

--- Código: Text ---        Dim obj As Object        For Each obj In Me.Controls            If TypeOf obj Is TextBox Then obj.text = &#34;ya ta&#34;        Next        For Each obj In Me.GroupBox1.Controls            If TypeOf obj Is TextBox Then obj.text = &#34;ya ta&#34;        Next 

lencho:
tambien me funciono muy bien tu codigo Soultaker.
Gracias.

Ahora que si estuviera hablando de un textbox que esta dentro de un GroupBox que esta dentro de otro GroupBox, tendria que hacerlo de forma recursiva !!!.

BYTE.

Navegación

[0] Índice de Mensajes

[*] Página Anterior