Controles para vb.net

Solo disponible en BuenasTareas
  • Páginas : 8 (1991 palabras )
  • Descarga(s) : 0
  • Publicado : 12 de diciembre de 2010
Leer documento completo
Vista previa del texto
(Ejercicios – Conociendo Controles)

1. Diseñe una interfaz similar a la mostrada usando un GroupBox, seis CheckBox (etiquetas), dos buttons. Si lo desea experimente cambiándoles algunas propiedades (negrita para fuentes, etc. ) para decorar la interfaz.

[pic]

2.- Diseñe una interfaz similar a la mostrada usando dos GroupBox, tres RadioButton y dos buttons. Si lo desea experimentecambiándoles algunas propiedades para decorar la interfaz, como por ejemplo la negrita para las fuentes.
[pic]

3.- Modifique la interfaz mostrada antes, usando nombres adecuados para los controles y añade el código de abajo.
[pic]

Añádale el código de abajo,…

[pic]

Public Class Form1
Private Sub rbnRepoAño_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles rbnRepoAño.CheckedChanged
If rbnRepoAño.Checked = True Then
gbxRango.Enabled = False
lblDesde.Enabled = False
lblHasta.Enabled = False
txtDesde.Enabled = False
txtHasta.Enabled = False
End If
End Sub

Private Sub rbnRepoHoy_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles rbnRepoHoy.CheckedChanged
If rbnRepoHoy.Checked = True Then
gbxRango.Enabled = False
lblDesde.Enabled = False
lblHasta.Enabled = False
txtDesde.Enabled = False
txtHasta.Enabled = False
End If
End Sub

Private Sub rbnRepoFecha_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles rbnRepoFecha.CheckedChanged
If rbnRepoFecha.Checked = True Then
gbxRango.Enabled = True
lblDesde.Enabled = True
lblHasta.Enabled = True
txtDesde.Enabled = True
txtHasta.Enabled = True
txtDesde.Focus()
End If
End Sub

Private Sub btnImprimir_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
End
End Sub

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
MsgBox("imprimiendo...", MsgBoxStyle.Exclamation, "AVISO")
End Sub
End Class

4.- Diseñe una interfaz similar a la mostrada para mostrar la equivalencia entre temperaturas enGrados Centígrados y temperaturas en Fahrenheit .

[pic]

Control vsbTemp

|Propiedad |Descripción |
|Maximun |100 |
|Minimun |-100 |
|SmallChange |1 |
|LargeChague |10 ||Value |0 |

Analice con otros valores las últimas tres propiedades, por ejemplo pruebe con 1, 10, 30, 70 en LargeChangue y SmallChangue. Además para los eventos relevantes codifique como se indica más abajo. Finalmente pruebe la aplicación.
public Class Form1

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnSalir.Click
Beep()
End
End Sub

Private Sub vsbTemp_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vsbTemp.Scroll
TxtCent.Text = vsbTemp.Value
TxtFahr.Text = 32 + 1.8 * vsbTemp.Value
End Sub

End Class

5.- Diseñe una interfaz similar a la mostrada para indicar un“Ingreso al sistema”.

[pic]

Public Class Form1
Private Sub rbnEng_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbnEng.CheckedChanged
rbnSpa.Checked = False
Me.Text = "Welcome to 'CIISA' System"
lblUser.Text = "Username"
lblPass.Text = "Password"
btnIngreso.Text = "Enter"
btnLimpiar.Text = "clear"...
tracking img