VB6.SetItemData（組合框，我，rd.Fields（ 「XXX」）。值）

Question

我使用VS2010

當我轉換的代碼轉換VB6到VB.NET，我發現的東西，我不不要理解代碼在做什麼以及如何轉換它的意義。

i = 0 

While Not rd.EOF 

     cobTmp.Items.Insert(i, rd.Fields("d").Value) 
     VB6.SetItemData(cobTmp, i, rd.Fields("r").Value) 
     If rd.Fields("r").Value = "1234" Then 
      intloc1234 = i 
     End If 
     rd.MoveNext() 
     Debug.Print(VB6.TabLayout(VB6.GetItemData(cobTmp, i), VB6.GetItemString(cobTmp, i))) 
     i = i + 1 
    End While 

我該如何處理這些代碼以及和這條線：

Debug.Print(VB6.TabLayout(VB6.GetItemData(cobTmp, i), VB6.GetItemString(cobTmp, i))) 

我可以使用cobTmp.item(i)更換VB6.GetItemData(cobTmp, i)？

VB6.TabLayout怎麼樣？

我知道這些可以被忽略，但我想要做得更好。

Answer 1

關於GetItemData，根據Microsoft Support：

在Visual Basic 6.0，對於ListBox或ComboBox控件的ItemData屬性可以在屬性窗口設計時設置爲Integer與ListBox或ComboBox關聯項目。在Visual Basic 2010中，ItemData屬性不再存在; GetItemData和SetItemData方法可以用來模擬ItemData的行爲。

關於TabLayout，根據本Microsoft Support Article：

在Visual Basic 6.0，該方法Debug.Print有這樣的指定的輸出是如何在立即窗口格式化的outputlist參數。升級工具使用此函數將outputlist參數轉換爲字符串以在即時窗口中顯示。