阶段的进度栏

{A}
{S0}简介
这是一个自定义的控制内置使用VB.NET。这种控制的目的是允许用户执行任何一个过程的各个阶段，看到他们走多远，什么"phasequot;他们目前在，并选择性地表明，当用户准备移动到下一个"phasequot;背景
我一直对一个个人项目的需求管理，并已寻找到了很多不同的方式为用户提供友好和赏心悦目为用户的工作方式，只要这些软件的要求和项目管理的复杂的东西要求。我的屏幕之一，是一个总结的要求和当前quot; phasequot;我想有一些使用的颜色，是完全互动的。我不喜欢标准的长方形外观，大多数应用程序的感觉，因为，对我来说，它不指示方向。我也遇到类似的形状，才发现他们使用的是矩形重叠的多边形形状。这些结果中可以点击一个多边形（如尾巴），它会假设你的意思是其他的多边形。我也希望做一些研究自定义控件。有什么更好的方法来做到这一点，但通过创建一个。使用代码
代码分成三个主要方面:ddPhaseProgressBarItem - 类为每个多边形的信息。dmPhaseProgressBar - 自定义的控制，这是为收集ddPhaseProgressBarItem类的容器。它处理的组织，你看，感觉每个多边形的项目。它决定了quot收集选定的索引; phasesquot;演示的形式 - 这是用于实现自定义的控制，并添加自定义列表的quot; phasesquot;这是一个交互式设置为允许用户检查控制功能。步骤1:多边形项目
类ddPhaseProgressBarItem包含所需的所有信息，充分借鉴多边形。多边形的属性是一个用于绘制两个形状，FillPolygon和DrawPolygon点数组。你有Draw方法之前执行的填充，以确保边界将会对用户可见。
有四个，在此控制实现的基本形状。
注意:使用图形关闭标题的第四行看到所有三个形状集。形状设置1:一期项目
这种形状将只有一个进度条"选项卡时使用。这将是非常违反直觉，因为这是一个进度条。然而，有可能这是一个要求的时候。
这个多边形的形状是一个简单的矩形。形状设置2:两阶段项目
这种形状设置有两个特殊情况，都是从这里上了形状。左边的形状是一个五点多边形。正确的形状也是五点多边形。
第一个多边形，将是一个正确的来点半的方式向下和向外矩形方的简单的矩形。
第二个多边形将是一个简单的矩形左边来点半的方式和外来的矩形。形状设置3:三个或更多的阶段项目
这种形状设置将被用来当有3个或更多的标签。中间的选项卡将被重复，直到所有的定义阶段。
第一个和最后一个多边形形状设置＃2相同。
中间的多边形是一个简单的长方形，左边来点半的方式向下和向内的矩形来点半的方式向下和向外从矩形的右侧。第2步:自定义控件
自定义控件收集ddPhaseProgressBarItems举行，整体形状是确定的。现在的形状集的定义，我们可以使用这些定义，以确定其形状设置，然后按照报告的每个多边形的状态。我们也将保持额外的状态，以便为quot; blinkingquot;，通过添加一个定时器控制，使用户可以通知未来quot; phasequot;准备。例如:当从MS Excel中导入文本，你可以在这里代表有四个主要步骤。见的底栏标题图形。
正如您可能已经猜到了，因为这是一个控制，大部分的工作是在OnPaint方法。你是对的。这些步骤完成初始化控制，并重复步骤2 - 5 OnPaint事件: 每个多边形（文本，的BorderColor的BackgroundColor等）的设置值。确定控制额外的空间之间的多边形共享。 确定每个多边形的形状。在屏幕上绘制每个多边形。绘制文本的多边形。步骤2.1:设定每个多边形的值
这一步是设置所有的值，您要更改默认值，并添加要添加到控制每个多边形的文本。我预设一些值，使开发人员可以看到在行动控制在设计时，所以你必须清除那些与clearPolygons方法。在这一点上，你产生一个新的多边形项目对象，ddPhaseProgressBarItem，设置你想要的所有值，直到添加完所有项目。
此示例显示了所有的随机值的属性:

Me.SuspendLayout()

Dim PhaseProgressBarItem As New ddPhaseProgressBar.PhaseProgressBarItem

PhaseProgressBarItem.Text = "File Selection"

PhaseProgressBarItem.Font = New Font("Arial", 10, FontStyle.Regular)

PhaseProgressBarItem.Font_Selected = New Font("Arial", 12, FontStyle.Bold)

PhaseProgressBarItem.FontColor = Color.FromArgb(&HFF000000)

PhaseProgressBarItem.FontColor_Selected = Color.FromArgb(&HFF0000FF)

PhaseProgressBarItem.BackColor = Color.FromArgb(&H78FFFFCC)

PhaseProgressBarItem.BackColor_Selected = Color.FromArgb(&H78FFFF00)

PhaseProgressBarItem.BorderColor = Color.Black

PhaseProgressBarItem.BorderColor_Selected = Color.BlueViolet

PhaseProgressBar1.AddPhase(PhaseProgressBarItem)



PhaseProgressBarItem = New ddPhaseProgressBar.PhaseProgressBarItem

PhaseProgressBarItem.Text = "Import Type"

PhaseProgressBarItem.Font = New Font("Arial", 10, FontStyle.Regular)

PhaseProgressBarItem.Font_Selected = New Font("Arial", 12, FontStyle.Bold)

PhaseProgressBarItem.FontColor = Color.FromArgb(&HFF000000)

PhaseProgressBarItem.FontColor_Selected = Color.FromArgb(&HFF0000FF)

PhaseProgressBarItem.BackColor = Color.FromArgb(&H78FFFFCC)

PhaseProgressBarItem.BackColor_Selected = Color.FromArgb(&H78FFFF00)

PhaseProgressBarItem.BorderColor = Color.Black

PhaseProgressBarItem.BorderColor_Selected = Color.Blue

PhaseProgressBar1.AddPhase(PhaseProgressBarItem)



PhaseProgressBarItem = New ddPhaseProgressBar.PhaseProgressBarItem

PhaseProgressBarItem.Text = "Delimiters"

PhaseProgressBarItem.Font = New Font("Arial", 10, FontStyle.Regular)

PhaseProgressBarItem.Font_Selected = New Font("Arial", 12, FontStyle.Bold)

PhaseProgressBarItem.FontColor = Color.FromArgb(&HFF000000)

PhaseProgressBarItem.FontColor_Selected = Color.FromArgb(&HFF0000FF)

PhaseProgressBarItem.BackColor = Color.FromArgb(&H78FFFFCC)

PhaseProgressBarItem.BackColor_Selected = Color.FromArgb(&H78FFFF00)

PhaseProgressBarItem.BorderColor = Color.Black

PhaseProgressBarItem.BorderColor_Selected = Color.DodgerBlue

PhaseProgressBar1.AddPhase(PhaseProgressBarItem)



PhaseProgressBarItem = New ddPhaseProgressBar.PhaseProgressBarItem

PhaseProgressBarItem.Text = "Sample Output"

PhaseProgressBarItem.Font = New Font("Arial", 10, FontStyle.Regular)

PhaseProgressBarItem.Font_Selected = New Font("Arial", 12, FontStyle.Bold)

PhaseProgressBarItem.FontColor = Color.FromArgb(&HFF000000)

PhaseProgressBarItem.FontColor_Selected = Color.FromArgb(&HFF0000FF)

PhaseProgressBarItem.BackColor = Color.FromArgb(&H78FFFFCC)

PhaseProgressBarItem.BackColor_Selected = Color.FromArgb(&H78FFFF00)

PhaseProgressBarItem.BorderColor = Color.Black

PhaseProgressBarItem.BorderColor_Selected = Color.IndianRed

PhaseProgressBar1.AddPhase(PhaseProgressBarItem)



Me.ResumeLayout()

Dim startPoint As Single = 0

...

For i As Integer = 2 To ItemPosition

    'measure the previous poly's text width



    iPrevious = i - 1

    sF = g.MeasureString(m_Phases.Item(iPrevious).Text, _

                         m_Phases.Item(iPrevious).CurrentFont)

    If iPrevious = 1 Then 'first tab



        startPoint += sF.Width + Me.TextBuffer + _

                      Me.TextBufferForCentering + 2

    Else ' middle tabs



        startPoint += sF.Width + Me.TextBuffer + _

                      Me.TextBufferForCentering + Me.PointLength + 2

    End If

Next i

m_Phases.Item(i).PolyPoints = DeterminePhasePoly(g, i)

penColor = m_Phases.Item(i).CurrentBorderColor

pPen = New Pen(penColor, 2)

bFontBrush = New SolidBrush(m_Phases.Item(i).CurrentFontColor)

bBrush = New SolidBrush(m_Phases.Item(i).CurrentBackColor)

fFont = m_Phases.Item(i).CurrentFont

sText = m_Phases.Item(i).Text

If i = m_Phases.Count And i = 1 Then 'only one tab



    xForText = m_Phases.Item(i).polypoints(0).X + _

              (Me.TextBuffer / 2) + (Me.TextBufferForCentering / 2)

        yForText = (Me.Height - fFont.Height) / 2

ElseIf i = m_Phases.Count Then 'last tab



        xForText = m_Phases.Item(i).polypoints(0).X + _

                  (Me.TextBuffer / 2) + (Me.TextBufferForCentering / 2) + _

                   Me.PointLength

        yForText = (Me.Height - fFont.Height) / 2

ElseIf i = 1 Then 'first tab



        xForText = m_Phases.Item(i).polypoints(0).X + (Me.TextBuffer / 2) _

                   + (Me.TextBufferForCentering / 2) + (Me.PointLength / 3)

        yForText = (Me.Height - fFont.Height) / 2

Else 'all middle tabs 



        xForText = m_Phases.Item(i).polypoints(0).X + (Me.TextBuffer / 2) + _

                  (Me.TextBufferForCentering / 2) + Me.PointLength + _

                  (Me.PointLength / 3)

        yForText = (Me.Height - fFont.Height) / 2

End If

'draw the text for this polygon in its proper location

g.DrawString(sText, fFont, bFontBrush, xForText, yForText)