1

我的任务是将 VB6 程序转换为 VB.NET。在我的在线研究中，每个人似乎都说我需要检查我的代码并摆脱我拥有的任何变体。到目前为止，我的运气很好，但是我在更换这个时遇到了问题。

Private Sub lvThumbView_OLEDragDrop(Data As MSComctlLib.DataObject)
    Dim File As Variant

    For Each File In Data.Files
        Select Case UCase(right(File, 3))
            Case "JPG", "BMP"
            ..... 
        End Select
    Next File
End Sub

我对 VB（6 或 .net）仍然很陌生，我很难找到替代方案。VB.net 中的转换工具能很好地处理这个问题吗？还是我需要改变这个？如果我这样做，是否有更好的选择？原谅我的菜鸟。

先感谢您。

4

2 回答 2

2

查看代码，您可能会用 .NET 替换 VB6 Listview 控件ListView control。您列出的Sub看起来像是处理 ListView 控件的 DragDrop 事件（我不熟悉该控件，但这就是它的用途，顾名思义）。

查看 ListView 控件的DragDrop事件和DoDragDrop()方法，了解如何使用字符串集合作为与事件关联的数据。

于 2009-12-02T23:39:28.370 回答
1

事先进行所有可能的更改会很有帮助，但如果有问题，您可能会节省一些时间来等待转换之后。

之后您将进行一些更改，但您可以继续进行 .net 转换，然后清理留下的内容。

例如，您可能会在 .net 转换之前将此处的变体转换为字符串，结果却发现 .net listview DragEventArgs.data 有所不同。（我不确定它是什么，但是在您进行转换后会更容易找到。）

于 2009-12-02T23:49:43.717 回答