CONTROL COMBOBOX Y DTPICKER DE VISUAL BASIC 6.0

CONTROL COMBOBOX

Un ComboBox es una lista desplegable muy útil para hacer una selección de varias opciones.

El control ComboBox  se utiliza para mostrar datos en un cuadro combinado desplegable. El control ComboBox aparece en dos partes: 

1.- La parte superior es un cuadro de texto que permite al usuario escribir un elemento de la lista.

2.- La segunda parte es un cuadro de lista que muestra una lista de elementos, de los cuales el usuario puede seleccionar uno.

 

Para llenar un comboBox lo hacemos en su propiedad List

Para leer el contenido del ComboBOx lo hacemos con su propiedad text

 CONTROL DTPICKER

El control DTPicker en Visual Basic está diseñado para permitir a un programador para proporcionar una interfaz sencilla para permitir al usuario elegir una fecha de un calendario y para procesar la selección de la forma adecuada. 

Para agregar el DtPicker al cuadro de herramienta de visual basic siga los siguientes pasos:

1.    Seleccione Proyecto en la barra de menú, a continuación, seleccione componentes en el menú desplegable.

2.    Desplazarse por la lista en el cuadro de lista hasta Microsoft Windows Common Controls 2- 6.0 (SP6)

3.    Haga clic en la casilla de selección y para seleccionar el componente continuación, haga clic en Aceptar.

4.    Elija el control DTPicker de la lista de los controles en la caja de herramientas. Coloque el control en el formulario en Visual Basic.

Para que por defecto aparezca la fecha actual, en la propiedad value escríbala (15/04/2024)

El control por defecto muestra fechas desde 1/01/1601 hasta 31/12/9999.  Para modificar esos valores cámbielos en las propiedades MinDate y MaxDAte respectivamente

ACTIVIDAD

1.  Cree el siguiente formulario

2. Cree la base de datos Prueba

3. Cree la tabla ejemplo con los siguiente campos

            TIPODOCUMENTO  Texto de tamaño 2

            NRODOC  Texto de tamaño 10

           GENERO   Texto de tamaño 10

            FECHANAC   Fecha/Hora

4.  Cierre la tabla.  Guarde los cambios

5. Ingrese 3 registros a la tabla

6.  Regrese a Visual Basic y pegue el siguiente código para los botones en la ventana de código

Private Sub command1_Click()

habilitarcajas

habilitarcombos

inhabilitarbotones

Command2.Enabled = True

Combo1.SetFocus

Adodc1.Recordset.AddNew

End Sub

Private Sub command2_Click()

 Adodc1.Recordset.Update

habilitarbotones

Command2.Enabled = False

inhabilitarcajas

inhabilitarcombos

End Sub

Private Sub inhabilitarcajas()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is TextBox Then

      Controls(n).Enabled = False

   End If

   Next n

End Sub

Private Sub habilitarcajas()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is TextBox Then

      Controls(n).Enabled = True

   End If

   Next n

End Sub

Private Sub inhabilitarbotones()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is CommandButton Then

      Controls(n).Enabled = False

   End If

   Next n

End Sub

Private Sub habilitarbotones()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is CommandButton Then

      Controls(n).Enabled = True

   End If

   Next n

End Sub

Private Sub habilitarcombos()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is ComboBox Then

      Controls(n).Enabled = True

   End If

   Next n

End Sub

Private Sub inhabilitarcombos()

   Dim n As Integer

   For n = 0 To Controls.Count - 1

   If TypeOf Controls(n) Is ComboBox Then

      Controls(n).Enabled = False

   End If

   Next n

End Sub

Private Sub Combo2_gotfocus()

If Text1.Text = Empty Then

    MsgBox "No has digitado Número del Documento."

    Text1.SetFocus

End If

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub DTPicker1_GotFocus()

If Combo2.Text = Empty Then

    MsgBox "No has seleccionado el Genero"

    Combo2.SetFocus

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = SoloNumeros(KeyAscii, Len(Text1.Text), 10, Text1.SelLength)

End Sub

Private Sub Text1_gotFocus()

If Combo1.Text = Empty Then

    MsgBox "No has seleccionado Tipo de Documento."

    Combo1.SetFocus

End If

End Sub

Function SoloNumeros(ByVal KeyAscii As Integer, ByVal Largo As Integer, ByVal LargoPermitido As Integer, ByVal SelStr As Integer) As Integer

' Intercepta un codigo ASCII recibido admitiendo solamente

' caracteres numéricos, además:

' deja pasar sin afectar si recibe tecla de borrado o return

If InStr("0123456789", Chr(KeyAscii)) = 0 Then

SoloNumeros = 0

Else

SoloNumeros = KeyAscii

End If

' teclas especiales permitidas

If SoloNumeros <> 0 Then

If (Largo + 1) > LargoPermitido And SelStr = 0 Then

SoloNumeros = 0

End If

End If

If KeyAscii = 8 Then SoloNumeros = KeyAscii ' borrado atras

If KeyAscii = 13 Then SoloNumeros = KeyAscii ' return

End Function