vb.net custom progressbar, how to overlay an image in pbar?

How would I go about stretching an image as a progressbar?  Meaning I have an image that I want to put inside of a progressbar and have it get longer and longer until 100%
LVL 1
bluedragon99Asked:
Who is Participating?
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
For WinForms, just create a UserControl with a PictureBox inside of it.  Set the SizeMode of the PB to StretchImage and then simply adjust the size of the PB to stretch the image...

Something like:
(if you add UserControl class first and then build the project you should get your new usercontrol in the ToolBox)
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureProgressBar1.Image = New Bitmap("C:\Users\Mike\Pictures\AmericanFlag.jpg")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
 
        For i As Integer = 0 To 100
            PictureProgressBar1.Percentage = i
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        Next
 
        Button1.Enabled = True
    End Sub
 
End Class
 
Public Class PictureProgressBar
    Inherits UserControl
 
    Private P As Integer = 0
    Private PB As New PictureBox
 
    Public Property Image() As Image
        Get
            Return PB.Image
        End Get
        Set(ByVal value As Image)
            PB.Image = value
        End Set
    End Property
 
    Public Sub New()
        PB.BorderStyle = Windows.Forms.BorderStyle.None
        PB.Location = New Point(0, 0)
        PB.Size = New Size(0, Me.ClientRectangle.Height)
        PB.SizeMode = PictureBoxSizeMode.StretchImage
        PB.BackColor = Color.Red
        Me.Controls.Add(PB)
        Me.Percentage = 0
        Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
    End Sub
 
    Public Property Percentage() As Integer
        Get
            Return P
        End Get
        Set(ByVal value As Integer)
            If value >= 0 AndAlso value <= 100 Then
                P = value
                Me.Refresh()
            End If
        End Set
    End Property
 
    Private Sub PictureProgressBar_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        UpdateProgessSize()
    End Sub
 
    Private Sub PictureProgressBar_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        UpdateProgessSize()
    End Sub
 
    Private Sub UpdateProgessSize()
        PB.Size = New Size(P / 100 * Me.ClientRectangle.Width, Me.ClientRectangle.Height)
    End Sub
 
 
End Class

Open in new window

0
 
Solar_FlareCommented:
if you set the height/width properties of an image then the browser should stretch the image to fit.

<img src="1.jpg" width="10px">

<img src="1.jpg" width="100px">
0
 
Solar_FlareCommented:
whoops, i think you also need to set the height to stop the browser simply scaling the entire image


<img src="1.jpg" width="10px" height="20px">

<img src="1.jpg" width="100px" height="20px">
0
All Courses

From novice to tech pro — start learning today.