在VB.NET中怎样将进度条容入状态栏中?

2004-08-29 07:53:41 234 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SolidWorks API IDrawingDoc接口实战：工程图自动化处理核心指南在计算机辅助设计（CAD）和产品生命周期管理（PLM）领域，自动化是提升工程效率、确保数据一致性的关键技术。其核心原理在于通过应用程序编程接口（API）对软件进行程序化控制，从而将重复性手动操作转化为可重复执行的脚本或程序。这项技术的价值在于能够显著减少人为错误、释放工程师的创造力，并实现大规模文档的批量处理。典型的应用场景包括工程图标题栏信息批量更新、视图样式统一标准化、以及设计数据与外部系统（如ERP、PDM）的自动同步。本文聚焦于**SolidWorks API**中的**IDrawingDoc接口* 阅读详情

在VB.NET中怎样将进度条容入状态栏中?我的意思不是将进度条放到状态栏上,而是进度条作为状态栏的一个Panel。

...全文

Colab虚拟环境配置全攻略：从安装到实战应用本文详细介绍了在Google Colab中配置Python虚拟环境的完整流程与实战技巧。通过安装Anaconda、创建独立环境、解决常见错误及结合深度学习项目应用，帮助用户有效管理依赖、避免冲突，并利用环境持久化策略提升在Colab中的开发效率与项目可复现性。阅读详情

ccg68

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

NoReady 2004-08-30

打赏
举报

我这里有一个外国网友写的，没仔细看过，分2个文件　：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
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

使用它的form1.vb的代码如下：
-------------------------
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Form1"

End Sub

#End Region

Public StatusBar As New ProgressStatus

Private Sub InitializeStatusBar()
Dim info = New System.Windows.Forms.StatusBarPanel
Dim progress = New System.Windows.Forms.StatusBarPanel

info.Text = "Ready"
info.Width = 100

progress.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring

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

Me.Controls.Add(StatusBar)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeStatusBar()
StatusBar.progressBar.Value = 50
End Sub
End Class

dofly 2004-08-29

打赏
举报

别人写的，好像是水如烟吧.
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Form1"

End Sub

#End Region

Public StatusBar As New ProgressStatus

Private Sub InitializeStatusBar()
Dim info = New System.Windows.Forms.StatusBarPanel
Dim progress = New System.Windows.Forms.StatusBarPanel

info.Text = "Ready"
info.Width = 100

progress.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring

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

Me.Controls.Add(StatusBar)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeStatusBar()
StatusBar.progressBar.Value = 50
End Sub
End Class

在VB.NET中怎样将进度条容入状态栏中?

相关推荐