Question

我的任务是将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中的转换工具会处理这个吗？或者我需要改变这个吗？如果我这样做，还有更好的选择吗？原谅我的无知。

提前谢谢你。

Answer 1

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

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

Answer 2

事先做出所有更改会很有帮助，但如果有问题，您可以节省一些时间等到转换后。

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

例如，您可以在.net转换之前将变量转换为字符串，仅查找.net列表视图DragEventArgs.data是不同的。（我不确定它是什么，但在转换后更容易找到。）

VB6转换为VB.net Variant问题

2 个答案: