Archivo

Archive for the ‘VB.NET’ Category

Solo aceptar números o solo letras en un TextBox – VB.Net 2005

septiembre 22, 2009 79 comentarios

Hola nuevamente, si quieres hacer que el TextBox de un formulario solo acepte letras o solo acepte números, deberias usar el evento KeyPress del TexBox en mencion, de la siguiente manera:

1.- Ir a la parte del código de tu formulario. (Solo dar click derecho a cualquier parte del formulario y elegir View Code)

ViewCode

2.- Elige el nombre de tu TexBox y luego elige el evento KeyPress.

UsodeEventos

3.- Dentro de la función creada automaticamente por Visual Basic inserta el siguiente codigo según tus requerimientos.

Aceptar Solo Números

SoloNumeros

Aceptar Solo Letras

SoloLetras

Y listo, aquí en modo texto para copiarlo:

If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

Quitar los botones de un form (Cerrar X, Minimizar y Maximizar) – VB.net 2005

septiembre 21, 2009 192 comentarios

Esto es algo bien sencillo y practico para las personas como yo, que recien comienzan a conocer el VB.net 2005.  Simplemente usando la propiedad ControlBox y puedes usarla asi:

ControlBox = True

habilitaX

ControlBox = False

deshabilitaX

También lo puedes encontrár en el menu de propiedades de tu formulario.

Reloj digital en VB.NET (función TIMER)

agosto 25, 2009 23 comentarios

Sumante fácil. Creamos un form y en el colocamos un label (Label1).

reloj1

Ahora arrastramos el componente Timer a nuestro form, y veremos que se coloca un simbolo abajo de nuestro ambiente de diseño.

reloj3

Ahora le damos dos click al simbolo del Timer arrastrado en el paso anterior y dentro de el escribimos el siguiente codigo.

reloj2

Label1.Text = Date.Now.ToLongTimeString

Ahora en las propiedades del Timer, colocamos el valor TRUE a la propiedad Enabled, y listo a correrlo.

reloj4

Insertar data desde VB.NET a Access

agosto 20, 2009 52 comentarios

Con este tutorial podrás (como el título dice) insertar registros por medio de un formulario desarrollado en VB.NET, a un archivo de MS Access (*.mdb). Para este tutorial es necesario contar con un archivo *.mdb llamado RegistroHoras2.mdb el cual posee una tabla llamada Registro, a su vez esta tabla tiene los siguientes campos Id (Autonumérico), Nombre (Texto), DNI (Número), Fecha (Texto) y HoraRegistro (Fecha/Hora).

Nuestro proyecto consiste en crear un sistema el cual espera un número de identificación (DNI) para que luego de presiona el botón Registrar, los datos del DNI sean grados en nuestra base de datos (Access) junto con la hora y fecha actual.

Nuestro formulario tiene el siguiente diseño, consistente en 2 TextBox (txtcodigo y txthora), 1 botón (btnregistrar) y 1 DateTimePicker (CmbFecha), además a nuestro proyecto se le insertó el módulo Timer (Timer1)  (arrástralo al formulario desde el Toolbox del Visual Sudio).

formularioControldeAsistencia
Bueno manos a la obra:

1.- Importar las siguientes librerias:

1

2.- Creamos dos variales en el formulario:

2

3.- En el evento Load del formulario insertar el siguiente código:

Dim con As String = “Provider=Microsoft.JET.oledb.4.0;Data Source=C:\RegistroHoras2.mdb”
conn = New OleDb.OleDbConnection(con)

‘Activar control Timer
Timer1.Enabled = True
Timer1.Interval = 1
Timer1.Start()

4.- Finalmente, en el evento Click del botón Registrar, copiar el siguiente código.

Dim Fecha As String
Dim Hora As String
txthora.Text = Date.Now().ToLongTimeString
Fecha = Date.Now().ToLongDateString
Hora = txthora.Text

Try
conn.Open()
cmd = New OleDb.OleDbCommand(“insert into Registro (DNI,Fecha,HoraRegistro) values(‘ ” + txtcodigo.Text + ” ‘,'” + Fecha + “‘,'” + Hora + “‘)”, conn)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show(“Hora de Ingreso ” + Hora, Fecha, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(“Error de Conexión”)
End Try

txtcodigo.Text = “”
txtcodigo.Focus()

5.- Y eso es todo, para ver como debería funcionarte colocaré algunos pantallazos del sistema:

4

5

6

Webgrafía: http://www.dotnetspider.com/resources/30381-really-best-code.aspx