如何在visual basic 2008中制作动态文本框

时间:2011-11-10 10:37:14

标签: vb.net visual-studio-2008

我是vb 2008的新手,我正在尝试申请计算摩尔浓度(化学成分)。

下面是等式(非化学)

              M1V1=M2V2

其中M1和M2是Molarity和V1,V2是体积(所有变量)。

所以对于我的应用程序我已经制作了四个文本框和一个按钮。现在我所做的是我的应用程序只能在提供其他三个值时找到一个变量M2

例如

              M2=(M1V1)/V2

我想知道如何让这个应用程序更具活力

让我们说 我想找到

   M1,M2,V1 or V2 any of these,just providing the other three values

我认为可以使用if else语句完成,但我不知道该怎么做

感谢您的帮助

1 个答案:

答案 0 :(得分:0)

我会以这种方式处理这个问题。

我会命名我的四个文本框:

txtM1
txtM2
txtV1
txtV2

然后

创建:

 Private Sub textbox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtM1.TextChanged, txtM2.TextChanged, txtV1.TextChanged, txtV2.TextChanged
               Select Case True
        Case txtM1.Text <> "" AndAlso _
             txtV1.Text <> "" AndAlso _
             txtV2.Text <> ""
            txtM2.Text = CInt((txtM1.Text * txtV1.Text) / txtV2.Text)
        Case txtM2.Text <> "" AndAlso _
             txtV1.Text <> "" AndAlso _
             txtV2.Text <> ""
            txtM1.Text = "Your formula for M1"
        Case txtM1.Text <> "" AndAlso _
             txtM2.Text <> "" AndAlso _
             txtV1.Text <> ""
            txtV2.Text = "Your formula for V2"
        Case txtM1.Text <> "" AndAlso _
             txtM2.Text <> "" AndAlso _
             txtV2.Text <> ""
            txtV1.Text = "Your formula for V1"
    End Select        End Sub