Visual studio 2008.net codificacion de un programa sencillo
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!!!",...
Regístrate para leer el documento completo.