テキストボックス（たぶん出来ないと思いますが） (ID:110985)

名前

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

本文 ちょっとインチキですけど。 やりたいことは実現できるかと思います。 シンプルに書く手法の1つとして書いておきます。 VBScript RegExpを参照設定 Dim tmp As String Dim sel As Integer Private Sub Text_Change() If Text.Text = tmp Then Exit Sub End If Dim reg As New RegExp ' 対象正規表現配列 (RegExpの略) reg.Pattern = "^(.{0,10}\r\n)*(.{0,10})?$" If reg.Test(Text.Text) = False Then Text.Text = tmp Text.SelStart = sel End If tmp = Text.Text sel = Text.SelStart End Sub