Solved

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

Posted on 2009-06-30
4
905 Views
Last Modified: 2013-11-26
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%
0
Comment
Question by:bluedragon99
  • 2
4 Comments
 
LVL 15

Expert Comment

by:Solar_Flare
ID: 24750314
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
 
LVL 15

Expert Comment

by:Solar_Flare
ID: 24750319
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
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 24750376
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

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The object model of .Net can be overwhelming at times – so overwhelming that quite trivial tasks often take hours of research. In this case, the task at hand was to populate the datagrid from SQL Server database in Visual Studio 2008 Windows applica…
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question