Ayuda para Crear Barra Progreso con una Imagen

[el_trocha]

Hola amigos.

Os pido ayuda a ver si alguien sabe como podria hacer una Barra de Progreso con una imagen.

Es decir:

minimo---------------------------------------------------maximo
............................50% imagen......................................
...........................................................................100%imagen
No se si me he explicado.

Muchas Gracias.

Un saludo

[LeandroA]

hola un ejemplo muy sensillo con un minimo de 0 y un maximo de 100, despues si queres utilizar otros valores es pura matematicas

Código: (vb) [Seleccionar]

Option Explicit
Dim oPicProg As StdPicture

Private Sub Form_Load()
    Set oPicProg = LoadPicture("C:\barra.gif")
   
    DrawProgress Picture1, 50
End Sub


Private Sub DrawProgress(PicBox As PictureBox, ByVal Percent As Long)
    PicBox.AutoRedraw = True
    PicBox.ScaleMode = vbPixels
    PicBox.Cls
   
    If Percent > PicBox.ScaleWidth Then Percent = PicBox.ScaleWidth
    If Percent > 0 Then
        Percent = Percent * PicBox.ScaleWidth / 100
        PicBox.PaintPicture oPicProg, 0, 0, Percent, PicBox.ScaleHeight
    End If
   
    PicBox.Refresh
   
End Sub


[el_trocha]

Ole Leandro eres un maquina....

Muchas gracias.....

La verdad es que nunca se me hubiera ocurrido hacerlo asi.

Un saludo

[erbuson]

Una pequeña variación al código del maestro:

PicBox.PaintPicture oPicProg, 0, 0, , PicBox.ScaleHeight, , , Percent

Es sólo una idea.

Saludos