Cristian,

 

            Creo que con un solo ErrorProvider te alcanza. Podrías hacer algo 
así:

 

Public Class Form1

 

   Private _ep As New ErrorProvider

 

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles Me.Load

 

      CrearControles()

 

   End Sub

 

   Private Sub CrearControles()

 

      Dim txt As TextBox

 

      For index As Integer = 1 To 5

 

         txt = New TextBox()

         txt.Name = "txt" & index.ToString()

         txt.Location = New Point(100, index * 25)

         Me.Controls.Add(txt)

 

         AddHandler txt.Validating, AddressOf Textboxes_Validating

      Next

 

   End Sub

 

   Private Sub Textboxes_Validating(ByVal sender As Object, ByVal e As 
CancelEventArgs)

 

      Dim txt As TextBox = TryCast(sender, TextBox)   'En este caso podrías 
castear a Control igualmente

 

      If txt IsNot Nothing Then

         If String.IsNullOrEmpty(txt.Text) Then

            _ep.SetError(txt, String.Format("Debe ingresar algo en este control 
({0})", txt.Name))

         Else

            _ep.SetError(txt, Nothing)

         End If

      End If

 

   End Sub

 

End Class

 

Un saludo.

 

  _____  

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Cristian C. 
Bittel
Enviado el: Miércoles, 30 de Enero de 2008 03:26 p.m.
Para: [email protected]
CC: [email protected]
Asunto: [puntonet] Crear y enlazar controles dinamicamente

 

Estimados,

 

Estoy creando controles TextBox dinámicamente en un Windows.Form. Y quiero 
también crear junto a cada uno de ellos un "control" ErrorProvider para mostrar 
un mensaje del tipo "Debe ingresar algo".

 

Por ahora logré crear los TextBox por un lado y los ErrorProvider por otro, 
pero cuando en el evento Validating intento mostrar el error no sé cómo acceder 
a los ErrorProvider. Parece que estos complementos no se agregan a la colección 
Forms.Controls.

 

¿Alguien ha usado estos controles creándolos de esta manera? ¿Pueden darme un 
ejemplo?

 

 Cristian C. Bittel


No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.19.16 - Release Date: 29/01/2008 00:00



No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.19.16 - Release Date: 29/01/2008 00:00


<<image001.gif>>

Responder a