Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: el_trocha en Diciembre 27, 2010, 01:17:53 pm
-
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
-
hola un ejemplo muy sensillo con un minimo de 0 y un maximo de 100, despues si queres utilizar otros valores es pura matematicas
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
-
Ole Leandro eres un maquina....
Muchas gracias.....
La verdad es que nunca se me hubiera ocurrido hacerlo asi.
Un saludo
-
Una pequeña variación al código del maestro:
PicBox.PaintPicture oPicProg, 0, 0, , PicBox.ScaleHeight, , , Percent
Es sólo una idea.
Saludos