Ejemplos usando el Api de windows para Visual basic

92 - Incrustar un Control ProgressBar en un control StatusBar

Volver al Listado Api - Anterior - Siguiente

Este código muestra como por usar el Api SetParent para incrustar o meter una barra de progreso en un Panel de un control Status Bar

El Api SetParent requiere de 2 parámetros, el HWND de cada control, es decir en este caso el HWND del StatusBar y el HWND del ProgressBar

Luego una ves ejecutada la función, hay que posicionar y ubicar el panel, es decir la posición izquierda, el top, establecerle el Ancho y Alto del Progressbar para que sea igual al del Panel.

vista previa del formulario con los controles

Vista del ejemplo en visual basic para posicionar un ´progressbar en la barra de estado dentro de un panel

Código en un formulario un Command , un Progressbar y un StatusBar

Option Explicit 'Declaración Api SetParent para incrustar el Progressbar en la barra de estado Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Command1_Click() 'Le pasamos a SetParent el HWND de la barra de progreso y el Statusbar SetParent ProgressBar1.hWnd, StatusBar1.hWnd ProgressBar1.Top = 55 ' Posición izquierda del Progressbar ProgressBar1.Left = StatusBar1.Panels(5).Left 'Ancho y alto del ProgressBar igual al panel del Status B ProgressBar1.Width = StatusBar1.Panels(5).Width ProgressBar1.Height = StatusBar1.Height - 90 'Esta Línea es para que se vea llena la barra ( Opcional ) ProgressBar1.Value = ProgressBar1.Max End Sub Private Sub Form_Load() 'Agregamos algunos paneles al control Statusbar con un texto StatusBar1.Panels.Add 1, , " Panel 1 " StatusBar1.Panels.Add 2, , " Panel 2 " StatusBar1.Panels.Add 3, , " Panel 3 " StatusBar1.Panels.Add 4, , " Panel 4 " Command1.Caption = " Incrustar Progressbar en la barra " End Sub

Ejemplo pero sin usar el Api SetParent

El código fuente, crea tres paneles, y luego se posiciona el progress dentro del panel número 1. Todo esto en el evento resize del formulario.

Nota: a la función , indicarle el índice o index del panel en donde se incrustará la barra

Código fuente en el form1

Option Explicit 'Controles : 1 Progressbar1 y un statusbar '''''''''''''''''''''''''''''''''''''''''''''''' Sub Posicionar(ProgressBar As ProgressBar, _ StausBar As StatusBar, _ IndicePanel As Integer) Dim Marg As Single Dim Panel As Panel Dim PosY As Single Marg = ProgressBar.Parent.ScaleY(2, vbPixels, vbTwips) ' referencia al panel indicado en el parámetro Set Panel = StausBar.Panels(IndicePanel) ' estilo Panel.Bevel = sbrNoBevel ' posición top PosY = ProgressBar.Parent.ScaleHeight - StausBar.Height ' posiciona la barra ProgressBar.Move Panel.Left, _ (PosY + Marg), _ Panel.Width, _ (StausBar.Height - Marg) ' trae la barra al frente ProgressBar.ZOrder End Sub Private Sub Form_Load() With ProgressBar1 .Value = 50 .Max = 100 .Scrolling = ccScrollingSmooth End With With StatusBar1 ' agrega tres paneles .Panels.Clear .Panels.Add 1 .Panels.Add 2, , " Panel 2" .Panels.Add 3, , " Panel 3" .Panels(3).AutoSize = sbrSpring End With End Sub Private Sub Form_Resize() ' pone el progress en el panel número 1 Call Posicionar(ProgressBar1, StatusBar1, 1) End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb