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.

cubrir la pizza. El control CheckBox proporciona una repres<strong>en</strong>tación visual que<br />

hace que esta opción sea fácil de crear.<br />

El control CheckBox se compone de una etiqueta de texto y un cuadro que el<br />

usuario puede seleccionar. Cuando el usuario hace clic <strong>en</strong> el cuadro, aparece<br />

una marca de verificación <strong>en</strong> él. Si se vuelve a hacer clic <strong>en</strong> el cuadro, la marca<br />

de verificación desaparece. El estado de la casilla de verificación se puede<br />

recuperar utilizando la propiedad CheckBox.Checked. Si el cuadro muestra<br />

una marca de verificación, la propiedad devuelve True. Si no se muestra<br />

ninguna comprobación, la propiedad devuelve False.<br />

Inténtelo<br />

Para utilizar casillas de verificación<br />

En el m<strong>en</strong>ú Archivo, elija Nuevo proyecto.<br />

En el cuadro de diálogo Nuevo proyecto, <strong>en</strong> el panel Plantillas, haga clic <strong>en</strong><br />

Aplicación para Windows.<br />

En el cuadro Nombre, escriba UserChoices y, a continuación, haga clic <strong>en</strong><br />

Aceptar.<br />

Se abre un nuevo proyecto de formularios Windows Forms.<br />

En el Cuadro de herrami<strong>en</strong>tas, arrastre un control Button y tres controles<br />

CheckBox hasta el formulario.<br />

En la v<strong>en</strong>tana Propiedades, cambie la propiedad Text de CheckBox1,<br />

CheckBox2 y CheckBox3 para que diga Pepperoni, Sausage y<br />

Mushrooms respectivam<strong>en</strong>te.<br />

En la v<strong>en</strong>tana Propiedades, cambie la propiedad Text de Button1 para que<br />

diga Order Pizza.<br />

En el formulario, haga doble clic <strong>en</strong> el botón; se abrirá el controlador de<br />

ev<strong>en</strong>tos Button1_Click <strong>en</strong> el Editor de código.<br />

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

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

Dim toppings As String = ""<br />

If CheckBox1.Checked = True Th<strong>en</strong><br />

toppings &= "Pepperoni "<br />

End If<br />

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

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

Saved successfully!

Ooh no, something went wrong!