18.01.2013 Views

Programación en Visual Basic 2008

Programación en Visual Basic 2008

Programación en Visual Basic 2008

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

En el Editor de código, agregue código para dos propiedades relacionadas con<br />

la validación, una para especificar si el segundo nombre es necesario y otra<br />

para especificar el m<strong>en</strong>saje que se mostrará si no se supera la validación.<br />

Copiar código<br />

Private required As Boolean = True<br />

Property MiddleNameRequired() As Boolean<br />

Get<br />

Return required<br />

End Get<br />

Set(ByVal value As Boolean)<br />

required = value<br />

End Set<br />

End Property<br />

Private errormessage As String = "Please <strong>en</strong>ter your name."<br />

Property ValidationErrorMessage() As String<br />

Get<br />

Return errormessage<br />

End Get<br />

Set(ByVal value As String)<br />

errormessage = value<br />

End Set<br />

End Property<br />

En el Editor de código, seleccione (NamesControl Ev<strong>en</strong>ts) del cuadro de lista<br />

desplegable izquierdo y, a continuación, seleccione el ev<strong>en</strong>to Validating del<br />

cuadro de lista desplegable derecho.<br />

Agregue el código sigui<strong>en</strong>te al controlador de ev<strong>en</strong>tos<br />

NamesControl_Validating.<br />

Copiar código<br />

If MiddleNameRequired = True Th<strong>en</strong><br />

If FirstName.Text = "" Or MiddleName.Text = "" Or _<br />

LastName.Text = "" Th<strong>en</strong><br />

Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 151

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!