hamidrezax1
دوشنبه 30 مهر 1397, 09:12 صبح
سلام دوستان وقت بخیر.
شاید برای شما هم پیش اومده باشه که بخواین یک پروسس بار رو از افقی به شکل عمودی در بیارین
ابتدا مثل شکل زیر وارد صفحه فرم دیزاین وی بی میشین و بعد یک پاپلیش کلاس تعریف میکنیم
Public Class VerticalProgressBar
Inherits ProgressBar
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = cp.Style Or &H4
Return cp
End Get
End Property
End Class
بعد تکه کد زیر را عوض میکنیم
'.................................پروسس بار رو از اين حالت.................................
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
'.................................به اين حالت در مي آريد.............................
Me.ProgressBar1 = New VerticalProgressBar
149119
شاید برای شما هم پیش اومده باشه که بخواین یک پروسس بار رو از افقی به شکل عمودی در بیارین
ابتدا مثل شکل زیر وارد صفحه فرم دیزاین وی بی میشین و بعد یک پاپلیش کلاس تعریف میکنیم
Public Class VerticalProgressBar
Inherits ProgressBar
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = cp.Style Or &H4
Return cp
End Get
End Property
End Class
بعد تکه کد زیر را عوض میکنیم
'.................................پروسس بار رو از اين حالت.................................
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
'.................................به اين حالت در مي آريد.............................
Me.ProgressBar1 = New VerticalProgressBar
149119