2011-11-10 262 views
0

我是vb 2008的新手,我正在嘗試製作計算摩爾濃度(化學)的應用程序。如何在Visual Basic 2008中製作動態文本框

下面是方程(對於非化學)

   M1V1=M2V2 

其中M1和M2是摩爾濃度和V1,V2是體積(所有變量)。

所以我的應用程序已經提出了四項文本框和一個button.Now我所做的是我的應用程序只能找到一個變量M2時提供的其他三個值

   M2=(M1V1)/V2 

我想要知道我可以使這個應用程序更動態

可以說 我想找到

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

我認爲它可以使用的if else statment做,但我不知道如何做到這一點

提前感謝您的幫助

+1

...,並嘗試一些你得到的幫助下投票。 – LarsTech

+0

親愛的朋友,對不起,但我不知道如何接受答案,我試着投票答覆答案,但stackover不允許我(它說我的分數小於15),任何方式謝謝你的回覆 – Eka

回答

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