从向导dotnebar vb.net中删除WizardPage

时间:2016-05-06 07:54:40

标签: vb.net wizard dotnetbar

我正在使用dotnetbar libray,我在设计时添加了一个精灵页面,在运行时添加了一些精灵页面,然后在用户到达向导结束后添加了最后一个精灵页面,我自动使用了一个命令切换到新建(最后)创建的向导页面。我使用以下代码删除除当前所选页面之外的其他向导页面。

Dim wiz As New DevComponents.DotNetBar.WizardPage 'pages
    With wiz
        .InteriorPage = True
        .Name = "Summary"
        .PageTitle = "Summary"
        .PageDescription = "Details of the Summary."
        .Controls.Add(lbl1)
        .Controls.Add(lbl2)
        .Controls.Add(lbl3)
        .Controls.Add(lbl4)
        .Controls.Add(lbl5)
        .Controls.Add(lbl6)
        .Controls.Add(gp)
    End With
    CBTWizard.WizardPages.Add(wiz)
    CBTWizard.Refresh()

    CBTWizard.SelectedPage = wiz

    Dim c1 As Control
    Dim c2 As Control
    For Each c1 In CBTWizard.Controls
        If TypeOf c1 Is DevComponents.DotNetBar.WizardPage Then
            If c1.Name <> "Summary" Then
                CBTWizard.WizardPages.Remove(c1)
            End If
        End If
        CBTWizard.Refresh()
    Next

问题:我希望向导重新排列,以便它不再显示Back按钮,向导刷新的类型显示只剩下一个向导页面。

1 个答案:

答案 0 :(得分:0)

我有一个解决方法,而不是重新排列顺序,我只是做了后退按钮,下一个按钮无敌,我禁用了完成按钮。逻辑流程就是这样工作的。

 With wiz
        .InteriorPage = True
        .Name = "Summary"
        .PageTitle = "Summary"
        .PageDescription = "Details of Summary."
        .Controls.Add(lbl1)
        .Controls.Add(lbl2)
        .Controls.Add(lbl3)
        .Controls.Add(lbl4)
        .Controls.Add(lbl5)
        .Controls.Add(lbl6)
        .Controls.Add(gp)
        .FinishButtonEnabled = DevComponents.DotNetBar.eWizardButtonState.False
        .BackButtonVisible = DevComponents.DotNetBar.eWizardButtonState.False
        .NextButtonVisible = DevComponents.DotNetBar.eWizardButtonState.False
    End With

这些我只添加到最后创建的向导页面。