Visual Basic .NET ProgressBar

[Paradigm_shift]

Hello all,

I'm developing a HMI program, using VS 2005 Professional and VB .NET programmin, that will monitore a weighing process with a Beckhoff HMI with WIN CE 5.0 running on it.
All the logics are ready and working, but the ProgressBar I have in the actual program is horizontally oriented and I was now asked to do it vertically.

What I want to do is rotate my ProgressBar to fill vertically. Can anyone help me to create a new class or modify a property to make the vertical Progressbar?


Thanks in advance.

 

[Lancie1]

Not many here are VB programmers, and I haven't used it in years. Most of us rely on the higher-level programs and do not get down to the BASIC level. But I will give you a bump up, because there are a few VB guys that come to this site.

 

[lostcontrol]

A simple google search found this:
http://social.msdn.microsoft.com/forums/en-US/winforms/thread/0c912a25-4d31-4e1f-8842-856de8e65bbe

 

[jrwb4gbm]

Here is a link that might help
http://www.plctalk.net/qanda/showthread.uphp?t=42656

 

[Paradigm_shift]

I've already saw this article, and many others. The point is: all of them work fine on Windows, but not on Windows CE.

 

[EHIRL]

I would have done a decent amount of VB Programming but never on CE, if you can post some form of current code or error log I could have a look? Or Instead of using an actual Progress Bar Object could you just fill a rectangle or stretch its width in a loop to do almost the same thing?

 

[AustralIan]

Private Sub updateProgress(ByVal value As Integer)
ProgressBar1.Value = value
Dim bittMap As Bitmap = New Bitmap(ProgressBar1.Width, ProgressBar1.Height)
ProgressBar1.DrawToBitmap(bittMap, New Rectangle(0, 0, ProgressBar1.Width, ProgressBar1.Height))
bittMap.RotateFlip(RotateFlipType.Rotate90FlipNone)
PictureBox1.Image = bittMap
End Sub

ProgressBar1.Visible should be set to False
PictureBox1.Height should equal ProgressBar1.Width and vice versa

 

[Paradigm_shift]

Private Sub updateProgress(ByVal value As Integer)
ProgressBar1.Value = value
Dim bittMap As Bitmap = New Bitmap(ProgressBar1.Width, ProgressBar1.Height)
ProgressBar1.DrawToBitmap(bittMap, New Rectangle(0, 0, ProgressBar1.Width, ProgressBar1.Height))
bittMap.RotateFlip(RotateFlipType.Rotate90FlipNone )
PictureBox1.Image = bittMap
End Sub

ProgressBar1.Visible should be set to False
PictureBox1.Height should equal ProgressBar1.Width and vice versa

AustralIan, your Sub worked fine on Windows, I did just one adjustment on "bittMap.RotateFlip(RotateFlipType.Rotate90FlipNone)" to "bittMap.RotateFlip(RotateFlipType.Rotate270FlipNone)", 'cause the 90Flip makes it increase from up to down, and I want to goes down-up.

But when I apllied it to WIN CE platform, it doesn't recognize these lines:

ProgressBar1.DrawToBitmap(bittMap, New Rectangle(0, 0, ProgressBar1.Width, _ ProgressBar1.Height))
bittMap.RotateFlip(RotateFlipType.Rotate270FlipNone)

Do you mind another way to flip the image using another class or another function?

Thanks, it's halfway I walked to finish this code.

 

[EHIRL]

Would extending the size of a rectangle not work to solve the issue as suggested?

 

[AustralIan]

But when I apllied it to WIN CE platform, it doesn't recognize these lines:

ProgressBar1.DrawToBitmap(bittMap, New Rectangle(0, 0, ProgressBar1.Width, _ ProgressBar1.Height))
bittMap.RotateFlip(RotateFlipType.Rotate270FlipNone)

Do you mind another way to flip the image using another class or another function?

Is it possible you are using .NET framework 1.1? try switching to .NET framework 2.0 [Project Properties -> References -> Change your .NET assemblies to reference v2.0 or later]

Not sure what is causing your error with rotateFlip. try System.drawing.RotateFlipType?

What specific errors are you getting?