LECCION 21

Visual Basic 2015 Lección 21: Trabajar con casillas de verificación

En esta lección, vamos a aprender un control muy útil en Visual Basic 2015, la casilla de verificación. La casilla de verificación permite al usuario seleccionar uno o más elementos marcando la casilla o casillas de verificación de que se trate. Por ejemplo, en el cuadro de diálogo Fuente de cualquier editor de texto de Microsoft como FrontPage, hay muchas casillas de verificación en virtud de la sección de efectos. El usuario puede elegir subrayado, subíndice, versales, superíndice, y abrir y cerrar etc. En Visual Basic 2015, puede crear un carrito de la compra en el que el usuario puede hacer clic en las casillas de verificación que corresponden a los artículos que tengan la intención de comprar, y el pago total puede ser computado al mismo tiempo.

Ejemplo 21.1: Compras

En este ejemplo, añadimos unos etiquetas, dos botones y seis casillas de verificación. Declaramos el precio de cada artículo usando la palabra clave Const. Si una casilla de verificación está marcada, su estado es True bien su estado es falso. Para calcular el importe total de la compra, se utiliza el operador matemático + =. Por ejemplo, suma + = BN es en realidad la suma = suma + BN. Por último, utilizamos el método ToString para visualizar el importe en moneda.

El código

Public Class Form1

Private Sub BtnCal_Click (remitente como objeto, e como EventArgs) Maneja BtnCal.Click
Const LX As Integer = 100
Const BN As Integer = 500
SD const As Integer = 200
Const HD As Integer = 80
Const HM As Integer = 300
Const AM As Integer = 150
dim sum como número entero
Si CheckBox1.Checked = true A continuación,
suma + = LX
Terminara si

Si CheckBox2.Checked = true A continuación,
suma + = BN
Terminara si

Si CheckBox3.Checked = true A continuación,
suma + = SD
Terminara si
Si CheckBox4.Checked = true A continuación,
suma + = HD
Terminara si

Si CheckBox5.Checked = true A continuación,
Resumiendo + = HM
Terminara si

Si CheckBox6.Checked = true A continuación,
suma + = AM
Terminara si
LblTotal.Text = sum.ToString ( "c")
End Sub

Private Sub BtnReset_Click (remitente como objeto, e como EventArgs) Maneja BtnReset.Click
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False

End Sub
End Class

La interfaz de tiempo de ejecución
vb2013_figure20.1

 Figura 21.1: Compras



Este es otro ejemplo

ejemplo 21.2

Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click

Const grande como número entero = 10,0
medio const As Integer = 8
Const pequeña As Integer = 5
dim sum como número entero

Si CheckBox1.Checked = true A continuación,
+ = suma grande
Terminara si

Si CheckBox2.Checked = true A continuación,
suma + = media
Terminara si

Si CheckBox3.Checked = true A continuación,
+ = suma pequeña
Terminara si
Label5.Text = sum.ToString ( "c")

End Sub

ejemplo 21.3

En este ejemplo, el texto de la etiqueta puede ser el formato mediante las tres casillas que representan en negrita, cursiva y subrayado.

El código

Public Class Form1

Private Sub ChkBold_CheckedChanged (remitente como objeto, e como EventArgs) Maneja ChkBold.CheckedChanged
Si ChkBold.Checked Entonces
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style O FontStyle.Bold)
Más
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style Y No FontStyle.Bold)

Terminara si
End Sub

Private Sub ChkItalic_CheckedChanged (remitente como objeto, e como EventArgs) Maneja ChkItalic.CheckedChanged
Si ChkItalic.Checked Entonces
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style O FontStyle.Italic)
Más
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style Y No FontStyle.Italic)

Terminara si
End Sub

Private Sub ChkUnder_CheckedChanged (remitente como objeto, e como EventArgs) Maneja ChkUnder.CheckedChanged
Si ChkUnder.Checked Entonces
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style O FontStyle.Underline)
Más
LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style Y No FontStyle.Underline)

Terminara si
End Sub
End Class

* El programa anterior utiliza el evento CheckedChanged para responder a la selección del usuario al marcar la casilla de verificación particular, es similar al evento clic. La declaración

LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style O FontStyle.Italic)

retendrá el tipo de fuente original, sino cambiarlo a estilo de fuente cursiva.

LblDisplay.Font = Nueva Fuente (LblDisplay.Font, LblDisplay.Font.Style Y No FontStyle.Italic)

También mantendrá el tipo de fuente original, sino cambiarlo a caracteres normales. (Los otros estados emplean la misma lógica)

La salida

vb2013_figure20.2

Figura 21.2