VisualBasic6.0のコンボボックスで、下記のようにリストを設定しました。

ComboBoxでは、AddItemされた順にIndexが0から割り振られていきます。

AAAの場合0、BBBの場合1となることがわかっているならば、

Combo1_Click()イベントの中で、

If Combo1.ListIndex = 0 Then ’AAAの場合

Text1.Text = ”あいうえお”

End If

とやれば良いと思います。

TextBoxの内容を保持したいのであれば、

Text1.Text = ”かきくけこ”

とするところを、

Text1.Text = Text1.Tex & ”かきくけこ”

にする方法や、

Private変数（モジュール変数）を用意しておき、それを使う方法などがあります。

最初のは

Private Sub Combo1_Change()

if Combo1.Text =”AAA” then Text1.Text =”あいうえお”

if Combo1.Text =”BBB” then Text1.Text =”かきくけこ”

End Sub

連続して表示するには if文の箇所を

if Combo1.Text =”AAA” then Text1.Text = Text1.Text + ”あいうえお”

if Combo1.Text =”BBB” then Text1.Text = Text1.Text +”かきくけこ”

としたらいいでしょう。

>

内容保持ですが、現在text1に入力されている「あいうえお」に加えて、BBBを選んだときには

「あいうえお

かきくけこ」

としたいのですが、どうしたらよいでしょうか？

は、

soheiさんの回答

TextBoxの内容を保持したいのであれば、

Text1.Text = ”かきくけこ”

とするところを、

Text1.Text = Text1.Tex & ”かきくけこ”

で、実現できそうですが、なにか不具合でもあるのでしょうか。

この方法だと、AAAのあとBBBを選び、さらにAAAを選ぶと

「あいうえおかきくけこあいうえお」

となりますが。

「あいうえお

かきくけこ」

と改行するのであれば、

Text1.Text = Text1.Tex & Chr(13)&”かきくけこ”

とすればよいのではないでしょうか。