0

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ですか??

これらは無視できることはわかっていますが、もっとうまくやりたいと思っています。

4

1 に答える 1

1

に関しては、 MicrosoftサポートGetItemDataによると：

Visual Basic 6.0では、ListBoxまたはComboBoxコントロールのItemDataプロパティを、デザイン時に[プロパティ]ウィンドウで設定して、整数をListBoxまたはComboBoxアイテムに関連付けることができました。Visual Basic 2010では、ItemDataプロパティは存在しなくなりました。GetItemDataメソッドとSetItemDataメソッドを使用して、ItemDataの動作をエミュレートできます。

に関してTabLayoutは、このマイクロソフトサポート記事によると：

Visual Basic 6.0では、Debug.Printメソッドには、イミディエイトウィンドウでの出力のフォーマット方法を指定するoutputlistパラメーターがありました。この関数は、アップグレードツールがoutputlistパラメーターを文字列に変換してイミディエイトウィンドウに表示するために使用します。

于 2012-07-12T12:23:04.080 に答える