带有复选框的Visual Basic If语句

时间:2016-03-13 17:18:23

标签: checkbox vb6

我正在为我的一个班级做家庭作业。基础是有3个单选按钮选项和6个复选框。可以为每个单选按钮检查任意数量的复选框,并且我会针对每种可能性进行if语句。我不确定这是否是正确的解决方法,因为它的代码远远超过我们最近所做的其他任何事情。

If ckboxPlatter.Checked = True And ckboxServing.Checked = True And ckboxSoup.Checked = True And ckboxSugar.Checked = True And ckboxCreamer.Checked = True And ckboxTeapot.Checked = True Then
                    lblOrder.Text = "Thank you for your order!" &
            ControlChars.NewLine & "You Ordered:" &
            ControlChars.NewLine & "1 place setting of Blue Willow" &
            ControlChars.NewLine & "Platter" &
            ControlChars.NewLine & "Serving Bowl" &
            ControlChars.NewLine & "8 Soup Bowls" &
            ControlChars.NewLine & "Sugar Bowl" &
            ControlChars.NewLine & "Creamer" &
            ControlChars.NewLine & "Teapot" &
            ControlChars.NewLine & "For a grand total of $" & (dblWessex + dblPlatter + dblServing + dblSoup + dblSugar + dblCreamer + dblTeapot)

我必须使用复选框为每一种可能性做到这一点,并为每个单选按钮执行此操作。最重要的是,有一个列表框与20个索引一起使用。还有其他方法可以做到这一点并不长吗?

0 个答案:

没有答案