Visual studio 2008.net codificacion de un programa sencillo

Solo disponible en BuenasTareas
  • Páginas : 3 (721 palabras )
  • Descarga(s) : 0
  • Publicado : 18 de septiembre de 2010
Leer documento completo
Vista previa del texto
Asignatura: Programación II
VISUAL STUDIO 2008.NET
1.- Codificación de una forma de visual studio, donde las casillas son nombre, apellido materno y paterno, edad, un combos de selección de sexo,botones de aceptar, limpiar, cancelar, donde las casillas son validadas a mayúsculas en enter, un combos de departamentos y una casilla que realice una clave de usuario mediante los datos aportados enlas casillas anteriores.
Imports System
Imports System.Windows.Forms
Public Class Form1

Private Sub Txt_Nom_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles Txt_Nom.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
If IsNumeric(Me.Txt_Nom.Text) Then
MsgBox(" Captura Invalida!!!",MsgBoxStyle.Critical + MsgBoxStyle.Information, "Error en Captura")
Me.Txt_Nom.Clear()
ConvierteMayusculas()
Else
Me.Txt_Nom.Text =UCase(Me.Txt_Nom.Text)
Me.Txt_AP.Focus()
End If
End If
End Sub

Private Sub Txt_AP_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles Txt_AP.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
If IsNumeric(Me.Txt_AP.Text) Then
MsgBox(" Captura Invalida!!!",MsgBoxStyle.Critical + MsgBoxStyle.Information, "Error en Captura")
Me.Txt_Nom.Clear()
ConvierteMayusculas()
Else
Me.Txt_AP.Text =UCase(Me.Txt_AP.Text)
Me.Txt_AM.Focus()
End If
End If
End Sub

Private Sub Txt_AM_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles Txt_AM.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
If IsNumeric(Me.Txt_AM.Text) Then
MsgBox(" Captura Invalida!!!",...
tracking img