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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

En el Explorador de soluciones, seleccione Form1 y <strong>en</strong> el m<strong>en</strong>ú Ver,<br />

seleccione Diseñador.<br />

En el Cuadro de herrami<strong>en</strong>tas, arrastre cuatro controles TextBox, un control<br />

CheckBox y dos controles Button al formulario.<br />

Seleccione el primer control Button y <strong>en</strong> la v<strong>en</strong>tana Propiedades establezca su<br />

propiedad Text <strong>en</strong> Update .<br />

Seleccione el segundo control Button y <strong>en</strong> la v<strong>en</strong>tana Propiedades establezca su<br />

propiedad Text <strong>en</strong> Full Name .<br />

Haga doble clic <strong>en</strong> el primer botón (Update) para abrir el Editor de código y <strong>en</strong><br />

el controlador de ev<strong>en</strong>tos Button1_Click, agregue el sigui<strong>en</strong>te código.<br />

<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />

With person1<br />

.FirstName = Textbox1.Text<br />

.MiddleName = Textbox2.Text<br />

.LastName = Textbox3.Text<br />

.BirthYear = Textbox4.Text<br />

.Alive = CheckBox1.Checked<br />

End With<br />

Observe que cuando escribe, se muestra una lista que conti<strong>en</strong>e todos los<br />

miembros de la clase Persons. Puesto que se agregó como una refer<strong>en</strong>cia,<br />

IntelliS<strong>en</strong>se muestra la información sobre la clase tal como lo haría para<br />

cualquier otra clase.<br />

En el controlador de ev<strong>en</strong>tos Button2_Click, agregue el sigui<strong>en</strong>te código.<br />

<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />

' Test the FullName method.<br />

MsgBox(person1.FullName)<br />

' test the Age property and CalcAge method.<br />

MsgBox(CStr(person1.Age) & " years old")<br />

' Test the Alive property.<br />

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

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

Saved successfully!

Ooh no, something went wrong!