选择ComboBox值时，输出特定文本(Visual Basic)

Question

我正在为临床支持创建一个决策界面，其中包含大量布尔值为‘yes | no’的组合框。然而，我想要的是，如果用户选择是或否，则可以单击底部的一个按钮，然后出现另一个窗口窗体，显示他们是否患有癌症。

例如，如果用户在comboBox中单击“是”，然后单击“提交”按钮，将出现另一个表单，文本框将显示他们是否患有癌症。有没有人能举个例子说明这是如何工作的？我有一个带有组合框的表单，一个链接到另一个表单的按钮，以及第二个form....but中的一个文本框我无法获取这两个表单之间的信息。

我现在拥有的代码是

Private Sub submit_Click(sender As Object, e As EventArgs) Handles submit.Click 
    If (RectalBleeding.SelectedItem = "Yes") Then Outcome.OutcomeBox.Text = "you have cancer" End If Outcome.Show()
End Sub

我尝试链接的特殊组合框被称为“RectalBleeding”。决策界面表单上的按钮被称为“提交”，第二个表单被称为“结果”。结果中的框名为'outcomeBox‘我想要它，因此如果在comboBox中选择了’是‘，用户单击’提交‘第二个表单出现，并在文本框中显示“您得了癌症”。

谢谢!

Answer 1

可以使用公共属性和构造函数在两个窗体之间传递值。下面是一些使用这些工具的代码。

下面是主窗体的代码：

Public Class Form1
    Private frm As Outcome
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddDecision()
    End Sub
    Private Sub AddDecision()
        RectalBleeding.Items.Add("Yes")
        RectalBleeding.Items.Add("No")
    End Sub

    Private Sub Submit_Click(sender As Object, e As EventArgs) Handles Submit.Click
        If RectalBleeding.Text = "Yes" Then
            frm = New Outcome("You have cancer")
        Else
            frm = New Outcome("You don't have cancer")
        End If
        frm.Show()
    End Sub
End Class

这里是结果表

Public Class Outcome
    Private _Decision As String
    Public Property Decision() As String
        Get
            Return _Decision
        End Get
        Set(ByVal value As String)
            _Decision = value
        End Set
    End Property
    Private Sub Outcome_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillTextBox()
    End Sub

    Public Sub New(ByVal results As String)

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Me.Decision = results
    End Sub
    Private Sub FillTextBox()
        outcomeBox.Text = Me.Decision
    End Sub
End Class