【发布时间】:2014-08-01 21:06:25
【问题描述】:
我正在使用 Visual Studio 2010 在 VB.net 中编写一个 Windows 窗体应用程序(仍然欢迎 C# 响应)。
我已经创建了我的应用程序的功能,现在正在处理 UI 流程。基本上,我需要让应用程序的所有功能从一开始就出现/消失,介绍形式。他们单击 Introduction.vb 表单中的选项之一,原始材料消失并被他们单击的任何内容所取代。然后,如果他们想返回上一页,下一页上有一个返回按钮。 这是Introduction.vb的原文:
Public Class Introduction
Inherits System.Windows.Forms.Form
Private Sub Introduction_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
End Sub
Private Sub AddOrRemoveButton_Click(sender As System.Object, e As System.EventArgs) Handles AddOrRemoveButton.Click
AddRemoveCompany.Show() '<-- Show the AddRemoveCompany.vb form when they click on the button.
End Sub
Private Sub InvoiceDocumentButton_Click(sender As System.Object, e As System.EventArgs) Handles InvoiceDocumentButton.Click
InvoicePrinterAndDocCreator.Show() '<-- .vb form
End Sub
Private Sub LockOrUnlockButton_Click(sender As System.Object, e As System.EventArgs) Handles LockOrUnlockButton.Click
LockUnlockPIN.Show() '<-- .vb form
End Sub
Private Sub ToExcelButton_Click(sender As System.Object, e As System.EventArgs) Handles ToExcelButton.Click
ToExcel.Show() '<-- .vb form
End Sub
End Class
如您所见,现在我只是简单地为应用程序的每个区域创建了一个单独的表单,并在开始时将它们与主表单链接起来。每个后续表单上的后退按钮只是关闭窗口。这一切都很好,除了新页面在新窗口中打开,我想避免。相反,我希望新部件在原始窗口中打开。
根据我的研究,我发现为了实现这一点,我需要将我创建的每个表单(我愚蠢地为每个表单都制作了一个表单)更改为 UserControl 对象,然后显示或隐藏控件适当地脱离主窗体。问题是,我不确定该怎么做。我知道如何将我的 Forms 对象更改为 UserControls 对象,并修复与此相关的错误。
当我尝试开发逻辑以显示/隐藏主介绍页面的用户控件时,我的问题就出现了。我在网上找到的结果建议我创建一个包含我所有控件的字典,然后根据需要从中添加/删除。我还发现结果表明我应该能够使用主页上按钮上的逻辑来显示/隐藏表单。我无法让这些方法中的任何一种工作,经常遇到错误说明“无法将顶级控件添加到控件。”基本上,我被卡住了,困惑,我尝试的似乎总是抛出错误,我想知道实现这一点的最佳方法是什么。
让我发布(其中一个)我尝试过的真正有效的方法:
Public Class MainForm
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim x = New Introduction
Me.Controls.Add(x)
x.Show()
End Sub
End Class
这个 MainForm 当然是替换旧的 Introduction.vb 表单,而是立即显示 Introduction.vb UserControl。这是新的 Introduction.vb UserControl:
Public Class Introduction
Inherits System.Windows.Forms.UserControl
Private Sub Introduction_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
End Sub
Private Sub AddOrRemoveButton_Click(sender As System.Object, e As System.EventArgs) Handles AddOrRemoveButton.Click
' Testing logic here:
Dim y = New AddRemoveCompany '<-- One of my old forms that was converted to a UserControl.
MainForm.Controls.Clear()
MainForm.Controls.Add(y)
y.Show()
End Sub
Private Sub InvoiceDocumentButton_Click(sender As System.Object, e As System.EventArgs) Handles InvoiceDocumentButton.Click
InvoicePrinterAndDocCreator.Show() '<-- Still works, but still opens in a new window
End Sub
Private Sub LockOrUnlockButton_Click(sender As System.Object, e As System.EventArgs) Handles LockOrUnlockButton.Click
LockUnlockPIN.Show()
End Sub
Private Sub TRSToExcelButton_Click(sender As System.Object, e As System.EventArgs) Handles TRSToExcelButton.Click
TRSToExcel.Show()
End Sub
End Class
这种方法看起来很草率,虽然我至少能够让下一个表单以这种方式显示而不会引发错误。例如,下一页上的后退按钮基本上只是清除所有旧控件,然后再次添加 Introduction.vb UserControl,并再次显示。另外,现在变量冲突怎么办?我将不得不确保我所有的变量名称都是不同的(如果我错了,请纠正我),所以对于每个表单,我都必须将 BackButton 更改为 BackButton1、BackButton2 等。这个方法似乎需要花费的时间比它的价值要多得多,而且阅读起来更加混乱。
如果有人花时间解释一个更好的方法来做到这一点,我将非常感激,这不是草率且易于维护,避免变量冲突,不是硬意大利面条编码在一起等。任何在线资源链接我也将不胜感激,令人惊讶的是,我找不到很多与我所说的内容有关的东西。
【问题讨论】: