Resumen ProgressBar dentro de una StatusBar

He estado haciendo alguna prueba y esto es lo que se me ha ocurrido (espero
que te pueda servir):
- Mete un picture invisible en el formulario (te quedará en la parte de
arriba, no te preocupes). Procura hacerlo del mismo alto que la StatusBar.
- En el picture mete la ProgressBar y los demás controles que necesites.
Necesitarás, seguramente, cambiar varias veces la posición de los controles
para que queden bien cuando estén en la StatusBar.
- Ahora declara en el formulario :
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
ByVal hWndNewParent As Long) As Long

- Y en el FormLoad() ponemos :
Dim l As Long
l = SetParent(Picture1.hWnd, StatusBar1.hWnd)

- Cuando pongas a true la propiedad visible del picture te aparecerá
"sobre" la StatusBar, ocultándola (nada es perfecto :-(( ) pero te puede
servir para mostrar la ProgressBar durante un proceso y luego volver a
ocultarla.


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com