玄関へお回り下さい。
テキストボックスの行数を取得する及び行毎に配列に確保 (3個)        (SNo.046)

1.複数行表示のテキストボックスの行数を取得する
2.テキストボックスのデータを行毎に配列に確保する
3.テキストボックスの指定行のデータを取得する
使用コントロール Button1  TextBox1
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
テキストボックスには複数行のデータを入力しておいて下さい。
1.複数行表示のテキストボックスの行数を取得する
 
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'複数行表示のテキストボックスの行数を取得する
    Debug.WriteLine(TextBox1.Lines.Length)  '結果  42
End Sub

2.テキストボックスのデータを行毎に配列に確保する
 
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'テキストボックスのデータをを行毎に配列に確保
    Dim txtLine() As String
    '配列に代入
    txtLine = TextBox1.Lines
    '配列に確保したデータを表示
    For n As Integer = 0 To txtLine.GetUpperBound(0)
        Debug.WriteLine(txtLine(n))
    Next
End Sub

3.テキストボックスの指定行のデータを取得する
 
Private Sub Button1_Click(ByVal sender As System.Object, _
             ByVal e As System.EventArgs) Handles Button1.Click
    Dim txtLine() As String
    'テキストボックスのデータをを行毎に配列に確保
    txtLine = TextBox1.Lines           
    '3行目のデータを取得
    MessageBox.Show("3 行目のデータは下記です" & ControlChars.NewLine & txtLine(2))
End Sub
 





2004/05/27
2005/09/20


VBレスキュー(花ちゃん)
VB.NET2003  VB2005