[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/08/03(Fri) 09:55
投稿者名：tea
Ｅメール：
ＵＲＬ　：
タイトル："連番"と1から99までをコンボボックスに表示させるには？
またお世話になります。

コンボボックスで1から99までの数字を選択して表示させるようにしています
が、この1から99までの表示の1の前に"連番"という文字を加えたいのです。
どうしたら良いのでしょうか？
コードは下記になります。
どうか教えてください。
よろしくお願いします。

With teamControl("cboEditor", ixTeam)
　　'繰り返し処理：1から99'
    For i = 1 To 99
    　　'追加'
        .AddItem CStr(i)
    Next
End With

投稿時間：2007/08/03(Fri) 10:32
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: "連番"と1から99までをコンボボックスに表示させるには？
> この1から99までの表示の1の前に"連番"という文字を加えたいのです。
単純なところでは、

>         .AddItem CStr(i)
これを、  .AddItem "連番" & CStr(i)   にするとか。

投稿時間：2007/08/03(Fri) 11:08
投稿者名：Edward
Ｅメール：
ＵＲＬ　：
タイトル：Re: "連番"と1から99までをコンボボックスに表示させるには？
> コンボボックスで1から99までの数字を選択して表示させるようにしています
> が、この1から99までの表示の1の前に"連番"という文字を加えたいのです。

こうゆう事？

With teamControl
    .AddItem "連番"    '<--
    .ListIndex = 0     '<--
    '繰り返し処理：1から99'
    For i = 1 To 99
        '追加'
        .AddItem CStr(i)
    Next
End With

投稿時間：2007/08/03(Fri) 11:56
投稿者名：tea
Ｅメール：
ＵＲＬ　：
タイトル：出来ました。
魔界の仮面弁士さん、Edwardさん、回答本当にありがとうございます。
Edwardさんにいただいた回答を使わせていただきます。
ありがとうございました。

> With teamControl
>     .AddItem "連番"    '<--
>     .ListIndex = 0     '<--
>     '繰り返し処理：1から99'
>     For i = 1 To 99
>         '追加'
>         .AddItem CStr(i)
>     Next
> End With