いつもお世話になります。
os:vista 開発言語:vb6.0

コンボボックスから数字を選択して、テキストボックスに追加しながら
貼り付けたいのですが、数が膨大のためできれば＆の関数を使わずに文字を追加
したいです。ぜんぜん分かりませんので教えてくださいお願いします。

> 数が膨大のためできれば＆の関数を使わずに文字を追加したいです。

”& を一切使わない”という制限でないのであれば
For Each 〜 Next でコンボボックスコントロールのみを順に参照するとか
コンボボックスコントロールを配列化させておいて
For 〜 Next で順に参照するとか。

> 数が膨大のためできれば＆の関数を使わずに

“& の演算子を使いたくない”というのは、もしかして、
「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 プロパティを設定して、
「コントロール配列」としてループ処理すれば良いかと思います。

琴さん魔界さん、助言ありがとうございました。
textselのメソッドで問題は解決しました。
また分からないときは教えてください。

> textselのメソッドで問題は解決しました。

「textsel メソッド」というのは、もしかして、
「SelText プロパティ」の事でしょうか?

すいません書き間違えでした。
SelTextです。
コントロールに付くから正しくはプロパティなんですね。
ご指摘ありがとうございました。

>コントロールに付くから正しくはプロパティなんですね
6〜7年もやってるなら、いい加減プロパティとメソッドの区別くらい
ちゃんと理解しましょう。
http://msdn.microsoft.com/ja-jp/library/a67b72ea.aspx