La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1212 - COMO USAR CONTROLES ACTIVE X
Autor:  Maximum
Hola, saludos a todos!! Quisiera saber como puedo usar algunos controles Active X en Visual Fox 5.0
Por ejemplo el de la barra que se va llenando como cuando uno usa el Scandisk.

Se como insertarla al formulario, y cualquier otro control, pero lo que no se es como activarlo, como hacer que funcione. Si alguien ha trabajado con Controles Active X en VFP por favor le agradeceria que me den respuesta, tanto mi e-mail como en este sitio.

MUY AGRADECIDO!!!!!! Maximum.

Espero poder ayudar tambien en cualquier cosa :)

  Respuesta:  Seberiano Castillo Umaña
Hola, Realmente es algo dificil pero hay va;
1- Selecciona la opcion Tools en el menu principal de VFP
2- Liego Opciones
3- Te aparecera un menu en el cual eligiras la opcion Controles
4- Daras Click en ActiveXControls
5- Eligiras el control que deseabas
6- Luego da Click en el Boton Set As Default
7- Luego da Click en Ok.
8- En la Barra Forms Controls daras Clic en el Boton View Classes
9- Luego da Click en ActiveXContorls, se aparecera la Barra de una
forma distinta
10- A la par del Boton View Classes Aparecera un nuevo boton con el
nombre de el nuevo control ActiveXContorls, da Click en el e incerta
el control como cualquer otro,

Contame Como te Fue

  Respuesta:  Luis Martínez
La mayoria de los controles Active-x tienen su propia ayuda. Una vez que lo insertes en el formulario haz click con el botón derecho del ratón sombre el control y selecciona Ayuda del menú emergente.

En el caso especifico de la barra de progreso, utiliza el control ProgressBar del grupo de controles que viene en el achivo COMCTL32.OCX.

Las propiedades Max y Min establecen los límites del intervalo. La propiedad Value especifica la posición actual dentro del intervalo.

Supongamos que quieres realizar un proceso x a un grupo de empleados cuyo tipo de nomina = 1, puedes realizar lo siguiente:

LOCAL nRegistros_A_Tratar, nPorcentaje, nProgreso

SELECT empleado
*Contamos los registro que se van a tratar
COUNT FOR tiponomina = 1 to nRegristos_A_Tratar

*Calculamos el procentaje que representa
*un registro en relación a la propiedad Max del
*control
nPorcentaje = Thisform.Progressbar1.max/nRegistros_A_Tratar

*Establecemos a 0 el contador de resgistros
*tratados
nProgreso = 0


SCAN FOR empleado.tiponomina = 1
**Aqui tu código***

*Se incrementa el progreso por cada registro
*tratado
nProgreso = nProgreso + 1

*Asignamos a la propiedad Value la posición
*actual dentro del intervalo.

ThisForm.ProgressBar1.Value = nProgreso * nPorcentaje

ENDSCAN

Observa que a medida que avanzan los registros la propieda value aumenta su valor.