Electricista

Ejercicio Nº 1: Validar un texto.

El control caja de Texto tiene ahora en esta versión 6 un nuevo procedimiento que nos permite controlar la información que se ingresa, y una vez validada recién pasar al campo de texto siguiente.
Prueben tratar de pasar a la caja de texto siguiente sin ingresar ningún dato con la tecla Tab y verán que no lo permite.

El código es:
Private SubText1_Validate(Cancel As Boolean
If Text1.Text <> "MIRTA" Then
MsgBox "Debes tipear MIRTA en el primer texto para pasar al segundo.", vbInformation, "Instrucciones"
Cancel = True
End If
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
If Text2.Text <> "CONSUDEC" Then
MsgBox "Debes tipear CONSUDEC en el segundo texto para pasar al tercero.", vbInformation, "Instrucciones"
Cancel =True
End If
End Sub

Ejercicio Nº 2: Crear controles.

Ahora Visual Basic nos permite, crear controles en tiempo de ejecución sin necesidad de hacerlo dentro de un array, a partir del primero creado en tiempo de diseño.

El código es:
Private WithEvents cmdmiboton As CommandButton
Private Sub cmdmiboton_Click()
cmdmiboton.Caption = "¡Me hiciste Clic!"
End Sub
Private SubLabel2_Click()
Set cmdmiboton = Controls.Add("VB.commandbutton", "Button")
With cmdmiboton
.Visible = True
.Width = 3000
.Caption = "¡¡Qué Sorpresa!!"
.Top = 3000
.Left = 1000
End With
Label2.Enabled = False
End Sub

Primero hacemos Click en la Label que crea el botón y luego con el Click del botón cambiamos su propiedad Caption.

Ejercicio Nº 3: ImageCombo.

Este nuevo control pertenece algrupo de componentes: Microsoft Windows Common Controls 6.0. Y nos permite desplegar imágenes además de texto en un Combo desplegable.

Private Sub Command1_Click()
Static i% 'un contador de numeros enteros
Static imgi% 'un indice para las imagenes del control ImageList
Dim comboimage As ComboItem 'variable de tipo objeto para 'declarar un comboItem
'Agrega una referencia al objeto comboItemusando el metodo 'Add
Set comboimage = ImageCombo1.ComboItems.Add
'agrega un texto
ImageCombo1.ComboItems.Add , , "Soy el item Nº " & CStr(i%)
ImageCombo1.Text = "Soy el Item Nº " & CStr(i%) 'agrega un 'grafico
omboimage.Image = imgi% + 1 'controlar que no se exceda de 'la cantidad de images del ImageList
If imgi% = ImageList1.ListImages.Count - 1 Then
imgi% = 0
Else imgi% =imgi% + 1
End If
'incrementa la variable
contadora i% = i% + 1
End Sub
Private Sub Form_Activate()
ImageCombo1.ImageList = ImageList1
End Sub

Ejercicio Nº 4: Coolbar.

Este control pertenece al grupo Microsoft Windows Common Controls 3 6.0, y permite desplegar una barra que contenga otros controles.
En este caso al hacer Click en el icono del Reloj despliega la hora. Estos controlesque se insertan dentro de la Coolbar pueden mantenerse flotantes o fijos.

El código es:
Private Sub Command1_Click()
Label1.Caption = Time
End Sub
Private Sub Form_Activate()
List1.AddItem "Chocolates"
List1.AddItem "Caramelos"
List1.AddItem "Chupetines"

List1.AddItem "Galletitas"
End Sub
En el caso de la Lista le agregamos distintos Items a través del Método AddItem en tiempo deejecución.

Ejercicio Nº 5: Barra de progreso.

Este ejercicio nos muestra el uso de una barra de progreso que podemos usar mientras se realiza la carga de un archivo o en otro momento de espera hasta que se complete una tarea.
El código es el siguiente:

Option Explicit
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load() 'Inicializamos el timer para que este apagadoTimer1.Enabled = False
End Sub
Private Sub cmdComenzar_Click() 'Inicializamos la barra de progreso, y comenzamos el Timer
Progreso.Value = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() 'Si el progreso todavía no termina, seguir aumentando Value hasta 100
With Progreso
If .Value < .Max Then
.Value = .Value + 1
Else 'Termino
MsgBox "Proceso Terminado", , "Barra de Progreso"...