VBの.Netで4つのテキストボックスを確認する方法

Question

これらのテキストボックスにあるテキストをメモ帳に書きたいだけです。

Iは4テキストボックス

1）Textbox1.Text

2）Textbox2.Text

3）Textbox3.Text

4）Textbox4.Text

を有します

私はTextbox1.TextとTextbox4.Textすべてのthで強制的なデータを持っていますe時刻

そして私には4つのオプションがあります。等

オプション1：TextBox2をとTextbox3は、両方が空でないである場合

オプション2：TextBox2をが空が、Textbox3が空でない場合

オプション3：もしテキストボックス2はで、空ではないですが、テキストボックス3 は空です

オプション4：私は別のオプションを選択したときに、私のコードTags = String.Format()でいくつかの違いがあります見ることができるようには両方 TextBox2をとTextbox3 は空

マイコードされている場合は、

Dim Tags As String 
    If (Not String.IsNullOrWhiteSpace(Textbox2.Text)) Then 
     If (Not String.IsNullOrWhiteSpace(Textbox3.Text)) Then 
      Tags = String.Format("{0}: {1}, {2}, {3}{4}{4}", Textbox1.Text, Textbox2.Text, Textbox4.Text, Textbox3.Text, Environment.NewLine) 
      objWriter2.WriteLine(Tags) 
     ElseIf (String.IsNullOrWhiteSpace(Textbox2.Text)) Then 
      If (Not String.IsNullOrWhiteSpace(Textbox3.Text)) Then 
       Tags = String.Format("{0}, {2}, {3}{4}{4}", Textbox1.Text, Textbox2.Text, Textbox4.Text, Textbox3.Text, Environment.NewLine) 
       objWriter2.WriteLine(Tags) 
      End If 
     ElseIf (Not String.IsNullOrWhiteSpace(Textbox2.Text)) Then 
      If (String.IsNullOrWhiteSpace(Textbox3.Text)) Then 
       Tags = String.Format("{0}: {1}, {2}{4}{4}", Textbox1, Textbox2.Text, Textbox4.Text, Textbox3.Text, Environment.NewLine) 
       objWriter2.WriteLine(Tags) 
      End If 
     Else 
      objWriter2.WriteLine(Textbox1.Text + ", " + Textbox4.Text) 
     End If 
    End If 

です。

Answer 1

アイデアは、あなたのロジックでこれらを使用し、各テキストボックスに値を持っているかどうかに応じて、真/偽でブール配列をロードすることである：配列がゼロので基づいていること

Dim boxData As Boolean() = {TextBox1.Text.Length > 0, TextBox2.Text.Length > 0, TextBox3.Text.Length > 0, TextBox4.Text.Length > 0} 

    If Not boxData(0) OrElse Not boxData(3) Then 
     Throw new Exception("Textbox1 and Textbox4 must contain some data") 
    ElseIf boxData(1) AndAlso boxData(2) Then 
     'option 1 
    ElseIf boxData(2) Then 
     'option 2 
    ElseIf boxData(1) Then 
     'option 3 
    Else 
     'option 4 
    End If 

注意TextBox1は

Answer 2

私はこのような何かしようとするだろうなど、boxData(0)です：そこのデータだかどう...

'set variables equal to textbox values 
Dim strText1 As String = TextBox1.Text 
Dim strText2 As String = TextBox2.Text 
Dim strText3 As String = TextBox3.Text 
Dim strText4 As String = TextBox4.Text 

'better option than If...Then because it doesn't go through all possibilities, 
'only goes until it finds one that is valid for use 
Select Case strText2 
    Case Is <> Nothing And strText3 <> Nothing 
     'option 1 
    Case is = Nothing And strText3 <> Nothing 
     'option 2 
    Case Is <> Nothing And strText3 = Nothing 
     'option 3 
    Case Else 
     'option 4 
End Select