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.

Agregue el sigui<strong>en</strong>te código para agregar una nueva propiedad.<br />

Copiar código<br />

Private DisplayStyleList As Display<br />

Property DisplayStyle() As Display<br />

Get<br />

Return DisplayStyleList<br />

End Get<br />

Set(ByVal value As Display)<br />

DisplayStyleList = value<br />

End Set<br />

End Property<br />

Elimine el código exist<strong>en</strong>te <strong>en</strong> el controlador de ev<strong>en</strong>tos<br />

FirstName_TextChanged y reemplácelo con el código sigui<strong>en</strong>te.<br />

Copiar código<br />

Select Case DisplayStyleList<br />

Case Display.FirstLast<br />

FullName.Text = FirstName.Text & " " & LastName.Text<br />

Case Display.FirstMiddleLast<br />

FullName.Text = FirstName.Text & " " & MiddleName.Text & " " & LastName.Text<br />

Case Display.LastFirst<br />

FullName.Text = LastName.Text & ", " & FirstName.Text<br />

Case Display.LastFirstMiddle<br />

End Select<br />

FullName.Text = LastName.Text & ", " & FirstName.Text & " " & MiddleName.Text<br />

Presione F5 para ejecutar el programa. Escriba el nombre, el apellido y la<br />

inicial <strong>en</strong> los tres cuadros de texto.<br />

En UserControl TestContainer, desplácese a la parte inferior de la cuadrícula<br />

Propiedades y seleccione la propiedad DisplayStyle. Seleccione un valor<br />

difer<strong>en</strong>te y, a continuación, cambie el texto de uno de los cuadros de texto para<br />

ver cómo afecta a la etiqueta.<br />

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

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

Saved successfully!

Ooh no, something went wrong!