4

現在、AddItem メソッドを使用して VB6 コンボボックスに追加しようとしています。これは機能しますが、ドロップダウンにテキストを表示したいのですが、そのテキストの ID を渡す必要があります。

AddItem メソッドを使用してこれを実現する方法はありますか?

4

2 に答える 2

8

メソッド内では実行できませんが、ID が数値である限りAddItem、プロパティを使用して直後に実行するのはかなり簡単です。NewIndex

With Combo1
    For i = 16 To 34
        .AddItem "Item " & i
        .ItemData(.NewIndex) = i
    Next
End With
于 2012-07-31T18:57:07.213 に答える
2

ID は数値ではないため、上記のソリューションは使用しませんでした。

「desc」と「cod」を持つ型を作成し、その型の配列を作成する必要がありました。

次に、ドロップダウンの ListIndex (配列によって入力) を使用して、ID を含む要素の値を取得しました。

Private Type T_arrType
    cod As String
    dsc As String
End Type


dim x as integer
x = cbo.listIndex
msgbox(strArr(x).cod)
msgbox(strArr(x).dsc)
于 2012-08-15T21:36:42.977 に答える