Vb.net VB6.SetItemData（组合框，i，rd.Fields（"；XXX"；）.Value）

我正在使用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怎么样

---

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

关于

GetItemData

，根据：

在Visual Basic 6.0中，可以在设计时在“属性”窗口中设置ListBox或ComboBox控件的ItemData属性，以将整数与ListBox或ComboBox项相关联。在Visual Basic 2010中，ItemData属性不再存在；GetItemData和SetItemData方法可用于模拟ItemData的行为

关于

表格布局

，根据以下内容：

在VisualBasic6.0中，Debug.Print方法有一个outputlist参数，用于指定在即时窗口中如何格式化输出。升级工具使用此函数将outputlist参数转换为字符串，以便在即时窗口中显示

---

对不起，我真的很难理解这个问题。我正在将代码从VB6转换到VB.NET。上面的代码来自VB6，它使VS2010变得更加温暖。我想解决以VB6.xxxxx开头的代码。=]+1我们还可以在上链接到VB6文档。但是如果

ItemData

和

TabLayout

实际上只在

Debug.Print

语句中使用，只需删除代码并转到其他语句：）Debug.Print只是一个日志语句。非常感谢，我正在尝试转到其他语句=]