我已经尝试将我的输入控件放在组框和面板框中,并将用户选择的组/面板框的 .Visible 属性更改为 True,并将所有其他属性更改为 false。
我是不是在找错树并认为这个 UI 设计是错误的?这是我到目前为止编写的代码:
Public Class frmMainMenu
Dim blnIncident As Boolean = False
Dim blnPatient As Boolean = False
Dim blnAssessments As Boolean = False
Dim blnInterventions As Boolean = False
Dim blnNarrative As Boolean = False
Private Sub PanelFocus()
If blnIncident = True Then
pnlIncidentInfo.Visible = True
pnlPatientInformation.Visible = False
pnlAssessments.Visible = False
pnlInterventions.Visible = False
pnlNarrative.Visible = False
ElseIf blnPatient = True Then
pnlPatientInformation.Visible = True
pnlIncidentInfo.Visible = False
pnlAssessments.Visible = False
pnlInterventions.Visible = False
pnlNarrative.Visible = False
ElseIf blnAssessments = True Then
pnlAssessments.Visible = True
pnlIncidentInfo.Visible = False
pnlPatientInformation.Visible = False
pnlInterventions.Visible = False
pnlNarrative.Visible = False
ElseIf blnInterventions = True Then
pnlInterventions.Visible = True
pnlIncidentInfo.Visible = False
pnlAssessments.Visible = False
pnlPatientInformation.Visible = False
pnlNarrative.Visible = False
ElseIf blnNarrative = True Then
pnlNarrative.Visible = True
pnlIncidentInfo.Visible = False
pnlPatientInformation.Visible = False
pnlAssessments.Visible = False
pnlInterventions.Visible = False
End If
End Sub
Private Sub btnIncident_Click(sender As System.Object, e As System.EventArgs) Handles btnIncident.Click
blnIncident = True
PanelFocus()
End Sub
Private Sub btnPatientInfo_Click(sender As System.Object, e As System.EventArgs) Handles btnPatientInfo.Click
blnPatient = True
PanelFocus()
End Sub
Private Sub btnVitals_Click(sender As System.Object, e As System.EventArgs) Handles btnVitals.Click
blnAssessments = True
PanelFocus()
End Sub
Private Sub btnInterventions_Click(sender As System.Object, e As System.EventArgs) Handles btnInterventions.Click
blnInterventions = True
PanelFocus()
End Sub
Private Sub btnNarrative_Click(sender As System.Object, e As System.EventArgs) Handles btnNarrative.Click
blnNarrative = True
PanelFocus()
End Sub
End Class
谢谢,
斯科特
[编辑]
我想我找到了问题所在。我无意中将一些面板框控件放在一起,从而与父面板建立了子关系。它们不会显示,因为...父控件的可见属性设置为 false。在 sub 调用之后,我还忘记将用户选择的布尔变量设置回 false。
感谢那些花时间阅读我的问题的人。如果您有更好的方法来完成我想做的事情,请随时分享或联系我。
斯科特