Vb.net 需要基本的VisualStudio2010帮助吗

所以我有一个代码atm，有两个组合框，一个选择make，然后它将启用模型，我有3个模型选择，下面是代码：

Public Class Form2

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    End Sub

    Private Sub cmb_make_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmb_make.Items.Add("Toyota")
        cmb_make.Items.Add("Nissan")
        cmb_make.Items.Add("Hyundai")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_finish.Click
        If cmb_make.Text = "" Then
            MsgBox("Please select your make")
        End If

        If cmb_model.Text = "" Then
            MsgBox("Please select your model")
        End If

        If cmb_model.Text = ("Supra") Then
            Form3.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("MR2") Then
            Form4.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("Hilux") Then
            Form5.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("R34") Then
            Form6.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("R33") Then
            Form7.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("R32") Then
            Form8.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("Genesis Coupe") Then
            Form9.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("RD1 Coupe") Then
            Form10.Show()
            Me.Close()
        End If

        If cmb_model.Text = ("Excel") Then
            Form11.Show()
            Me.Close()
        End If
    End Sub
    Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click

    End Sub

    Private Sub cmb_make_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_make.SelectedIndexChanged
        Dim Strchoice As String

        Strchoice = cmb_make.SelectedItem
        If Strchoice = "Toyota" Then

        End If
        cmb_model.Items.Clear()
        cmb_model.Items.Add("Supra")
        cmb_model.Items.Add("MR2")
        cmb_model.Items.Add("Hilux")


        If Strchoice = "Nissan" Then
            cmb_model.Items.Clear()
            cmb_model.Items.Add("R34")
            cmb_model.Items.Add("R32")
            cmb_model.Items.Add("R33")

        ElseIf Strchoice = "Hyundai" Then
            cmb_model.Items.Clear()
            cmb_model.Items.Add("RD1 Coupe")
            cmb_model.Items.Add("Genesis Coupe")
            cmb_model.Items.Add("Excel")

---

一旦我选择了我的汽车型号，它会带我到带有该型号图片的特定表格，然后我想显示各个部件，在上面的文本框中加上各个价格，有人能帮助我并告诉我怎么做吗？求你了，明天就到期了，我吓坏了

您可以将零件放入模型表单上的图片框中，并在其下方设置复选框或单选按钮（取决于您需要执行的功能），将价格作为标签，然后使用if结构为其指定一个值，该值可以在文本框中合计

Dim total as double

If chk_part1.checked = true then
   total += partPrice

If chk_part2.checked = true then
   total += partPrice

txtTotal.text = total

---

并不是说这段代码很完美，但您可以按照这些思路实现一些东西，以获得所需的结果。

您还可以对每条语句执行一次操作。例如：

Dim Form As New Form3.ControlCollection(Me)

    For Each CheckBox As CheckBox In Form
        If CheckBox.Checked = True Then
              total  += partPrice
        End If
    Next

因此，在本质上，它应该在所有复选框中循环，如果选中，它会将零件价格添加到总价格中