如何将progressbar改为垂直显示？有帮助给分

[RENWEIMIN365]

如题，在网上看到c#的一段
class ProgressBarVertical : ProgressBar
{
const int PBS_VERTICAL = 4;

protected override CreateParams CreateParams
{
get
{
CreateParams cp = base.CreateParams;
cp.Style ¦= PBS_VERTICAL;
return cp;
}
}
}
VB中不太会改，请高手指教，最好能给出代码，多谢。

[GingerPiety]

在什么情况下需要把ProgressBar改成树立的样式？

[tangweikai]

建立一个ProgressBar类

Public Class BaseProgressBar
    Inherits ProgressBar
    Const PBS_VERTICAL = 4
    Private Overloads ReadOnly Property CreateParams()
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = PBS_VERTICAL
            Return cp
        End Get
    End Property
End Class

[RENWEIMIN365]

显示的是太阳能发电的输出功率，竖立的看着比较舒服。
谢谢一楼，定义之后如何调用？在代码中新建一个progressbar吗？
没有用过自定义属性，请指教。谢谢

[skigil]

Public Class BaseProgressBar
Inherits ProgressBar
Const PBS_VERTICAL = 4
Private Overloads ReadOnly Property CreateParams()
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = PBS_VERTICAL
Return cp
End Get
End Property

End Class
Dim VerticalProgressBar As New BaseProgressBar
Private Sub InitVerticalProgressBar()
With VerticalProgressBar
.Location = New Point(100, 100)
.Size = New Size(100, 200)
.Parent = Me
.Value = 20
.Show()
End With
End Sub

[RENWEIMIN365]

to skigil:
我试了，好像不行，但还是谢谢你。

[tangweikai]

楼主的C#代码不完整,要实现横向,还必须写多一些控制代码..

[RENWEIMIN365]

楼主的C#代码不完整,要实现横向,还必须写多一些控制代码..

请问tangweikai，那应该怎么写呢？请指教。