タイトル : Re: テキストボックス文字追加 投稿日 : 2008/12/26(Fri) 18:31 投稿者 : 魔界の仮面弁士
> 数が膨大のためできれば&の関数を使わずに “& の演算子を使いたくない”というのは、もしかして、 「Text1.Text = Text1.Text & strNewText」の方法だと、 データ量が多いと処理時間がかかってしまうから、でしょうか? もしそうならば、Text プロパティの代わりに、SelText プロパティを 使ってみては如何でしょう。 Public Sub AppendText(ByVal target As TextBox, ByVal newText As String, _ Optional addNewLine As Boolean = False) target.SelStart = Len(target.Text) If addNewLine Then target.SelText = vbNewLine & newText Else target.SelText = newText End If End Sub あるいは、“数が膨大”というのは、コントロールの数が多いということを 指しているのでしょうか? であれば、コントロールの Index プロパティを設定して、 「コントロール配列」としてループ処理すれば良いかと思います。 |