テキストボックスを2行だけ入力できるようにするには？ (ID:147232)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 失礼しました。 .NET の方でしたね。 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim txtLine() As String txtLine = TextBox1.Lines For n As Integer = 0 To txtLine.GetUpperBound(0) If txtLine(n).Length > 10 Then MessageBox.Show("10文字以上の入力はできません。") txtLine(n) = txtLine(n).Substring(0, 10) End If If n = 1 Then TextBox1.Text = txtLine(0) & vbCrLf & txtLine(1) ElseIf n > 1 Then MessageBox.Show("2行以上の入力はできません") Exit For End If Next End Sub