VB.NET 进度条与状态条的使用

最新推荐文章于 2021-02-10 12:42:26 发布

chinaherolts2008

最新推荐文章于 2021-02-10 12:42:26 发布

阅读量934

点赞数 1

分类专栏： vb.net教程文章标签： vb.net

原文链接：https://blog.csdn.net/xykwgjyygy/article/details/2046347?utm_medium=distribute.pc_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-1.control&depth_1-utm_source=distribute.pc_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-1.control

版权

vb.net教程专栏收录该内容

563 篇文章 114 订阅

订阅专栏

  Private strDate = New System.Windows.Forms.StatusBarPanel
  Private StrCount = New System.Windows.Forms.StatusBarPanel
  Private info = New System.Windows.Forms.StatusBarPanel
  Private progress = New System.Windows.Forms.StatusBarPanel
  Private StatusBar As New ProgressStatus ''状态条中加入进度条
  Private   Sub InitializeStatusBar()

      info.Text = "Ready"
      info.Width = 100
      StrCount.AutoSize =       System.Windows.Forms.StatusBarPanelAutoSize.Contents
      StrCount.Alignment = HorizontalAlignment.Center
      StrCount.Text = "完成 0 条记录"
      progress.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
      strDate.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
      strDate.Text = System.DateTime.Now
      strDate.Alignment = HorizontalAlignment.Right

      With StatusBar
          .Panels.Add(info)
          .Panels.Add(progress)
          .Panels.Add(StrCount)
          .Panels.Add(strDate)
          .ShowPanels = True
          .setProgressBar = 1
          .progressBar.Minimum = 0
          .progressBar.Maximum = 100
      End With

      Me.Controls.Add(StatusBar)
  End Sub

组件类:vb.net教程ProgressStatus.vb

Public Class ProgressStatus : Inherits StatusBar   Public progressBar As New progressBar Private _progressBar As Integer = -1
        Sub New()
               progressBar.Hide()

               Me.Controls.Add(progressBar)
     
       End Sub

  Public Property setProgressBar() As Integer
      Get
          Return _progressBar
      End Get
      Set(ByVal Value As Integer)
          _progressBar = Value
          Me.Panels(_progressBar).Style =       StatusBarPanelStyle.OwnerDraw
      End Set
  End Property

  Private Sub Reposition(ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) Handles MyBase.DrawItem
      progressBar.Location = New Point(sbdevent.Bounds.X, sbdevent.Bounds.Y)
      progressBar.Size = New Size(sbdevent.Bounds.Width, sbdevent.Bounds.Height)
      progressBar.Show()
  End Sub

  End Class