VB6 콤보 상자에 텍스트와 ID 값 모두 추가

Question

현재 AddItem 메서드를 사용하여 VB6 콤보 상자에 추가하려고합니다. 이 작동하지만 드롭 다운에 텍스트를 표시하고 싶지만 해당 텍스트의 ID를 전달해야합니다.

AddItem 메서드를 사용하여이 작업을 수행 할 수 있습니까?

Answer 1

ID가 있었다으로 숫자가 아님 위의 솔루션을 사용하지 않았습니다.

"desc"와 "cod"가있는 유형을 만든 다음 해당 유형의 배열을 만들어야했습니다.

그런 다음 ID가 포함 된 요소 값을 가져 오기 위해 드롭 다운의 ListIndex (배열로 채워짐)를 사용했습니다.

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) 

Answer 2

그것은 AddItem 방법으로 수행 할 수 있지만 한 ID가 숫자 값입니다 같이 NewIndex 속성을 사용하여 즉시 후에 그것을 할 매우 쉽습니다 :

With Combo1 
    For i = 16 To 34 
     .AddItem "Item " & i 
     .ItemData(.NewIndex) = i 
    Next 
End With