Bien, se que hay muchos ejemplos en la red de cómo hacer esto, pero uno mas no viene mal. Bueno esto es un procedimiento Sub, que lo podemos poner en un modulo de nuestro proyecto y evitarnos validar todo el código en cada textbox, por supuesto que se puede mejorar mucho mas, pero de momento lo dejo así Public Sub NumConFrac( ByVal CajaTexto As Windows.Forms.TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Char .IsDigit(e.KeyChar) Then e.Handled = False ElseIf Char .IsControl(e.KeyChar) Then e.Handled = False ElseIf e.KeyChar = "." And Not CajaTexto.Text.IndexOf( "." ) Then e.Handled = True ElseIf e.KeyChar = "." Then e.Handled = False Else e.Handled = True End If End Sub Eso es todo el sub Ahora para llamarlo desde cualquier Textbox que necesitemos ingresar solo números, para
Bien, sé que el título no es el mas adecuado para este artículo, porque como todos sabemos MS Access, no soporta los Procedimientos Almacenados como SQL Server, pero podemos hacer algunas "cositas parecidas", claro que bastante limitadas, como puede ser el caso de agregar, actualizar, eliminar y consultar registros en las tablas. Sé que muchos dirán que en estos tiempos podemos usar SQL Express, pero hay quienes aún prefieren usar MS Access y sus motivos deben tener. Ahora, si estamos haciendo una aplicación en capas, pues verán que si lo hacemos como les mostraré, no encontrarán mucha diferencia ni demasiado trabajo al momento de pasarse a un motor como SQL Server, pues trataremos en lo posible que la codificación sea casi idéntica como si estuviéramos usando SQL Server, y de esta manera, al cambiar de motor, solamente cambiaríamos en nuestra capa de acceso a datos la cadena de conexión y un par de líneas mas y no soplarnos toda la codificación como normalmente sería usand
Para los que lo necesiten dejo este código que está en la documentación de MSDN (Clase CreateParams) y también encontré buscando en la red. El presente código debe ir luego de Public Class NombreFormulario: Dim _enabledCerrar As Boolean = False < System.ComponentModel.DefaultValue( False ), System.ComponentModel.Description( "Define si se habilita el botón cerrar en el formulario" )> _ Public Property EnabledCerrar() As Boolean Get Return _enabledCerrar End Get Set ( ByVal Value As Boolean ) If _enabledCerrar <> Value Then _enabledCerrar = Value End If End Set End Property Protected Overrides ReadOnly Property CreateParams() As CreateParams Get Dim cp As CreateParams = MyBase .CreateParams If _enabledCerrar = False Then Const CS_NOCLOSE As Integer = &H200
Comentarios
Publicar un comentario