老问题如何将vb3的程序转化成vb6

Question

我搜遍了google 还有论坛  找不到什么有用的 提示
"northwolves（狼行天下）回复于 2006-06-11 12:03:22 得分 0
http://www.advantageware.com/VB6_ts_VB3VB6_Convert.htm"
唯一有点用的  就这个了  
可是 去了那个网站 居然还得买      
http://www.advantageware.com/VBAD_eval_downloads.htm#Visual%20Basic%20Version%206
不买不能用.....  谁还有什么好办法没有 

Answer 1

vb3 的代码转换成 vb6 谁有好的建议 都来说说呗.

Answer 2

vb3 不只8年前的东西吧?VB6不是98~99年就有了么? 呵呵!

Answer 3

vb3 和 vb6 的格式差很多吗？还是程序代码的量太大了，改写有难度呢？

Answer 4

最起码 form 都必须重画  
   代码可用性 暂时我还没有看明白
另外代码量不小  所以才来找工具  看大家都有什么办法

Answer 5

vb6的文件都是文本文件，可以把vb3的打开看看，比照一下出入的地方，然后找些不同点，看有没有转换的可能剩下的就是，写个程序，转换了。

Answer 6

大概95、96年吧，我学过VB2教科书，什么软件也没做，后来直接学VB6。VB2不支持ActiveX控件。

Answer 7

1、
vb3的安装程序 我有  
VB Advantage Version 6  这个东西的安装我也有 （不过不知道怎么注册）
还有这个包 Freetools_VB3Conversion.EXE  （同样需要注册，我也没有）
2、
写程序转换   我也在试  这是找来的一段  可惜  保存后 还是有问题 'This is the code that is used to convert from VB3 to VB6.
Public Function ConvertVB3ToVB6(ByVal strInFilename As String, _
                      ByVal strOutFileName As String, _
                      ByVal blnSSChange As Boolean, _
                      ByVal blnOverWrite As Boolean) As Boolean
    Dim objFS           As Scripting.FileSystemObject
    Dim objTSIn         As Scripting.TextStream
    Dim objTSOut        As Scripting.TextStream
    Dim strResponse     As String
    Dim strWhile        As String
    Dim aryLine()       As String
    ReDim aryLine(200)
    Dim aryDeleted()    As Boolean
        
    Dim I               As Long
    Dim J               As Long
    mblnSSChange = blnSSChange
    mlngRecordNo = 0
    Do
        Reset
        strWhile = "Creating Scripting.FileSystemObject"
        On Error Resume Next
            Set objFS = New Scripting.FileSystemObject
            strResponse = Err.Description
        On Error GoTo 0
        If Len(strResponse) > 0 Then Exit Do
        
        '* Open Input
        strWhile = "Opening " & strInFilename
        On Error Resume Next
            Set objTSIn = objFS.OpenTextFile(strInFilename, _
                                        ForReading, False)
            strResponse = Err.Description
        On Error GoTo 0
        If Len(strResponse) > 0 Then Exit Do
        
        '* Open Output - No overWrite
        strWhile = "Opening " & strOutFileName
        On Error Resume Next
            Set objTSOut = objFS.CreateTextFile(strOutFileName, _
                                         blnOverWrite, False)
            strResponse = Err.Description
        On Error GoTo 0
        If Len(strResponse) > 0 Then Exit Do
        
        Do
            If objTSIn.AtEndOfStream Then Exit Do
            mlngRecordNo = mlngRecordNo + 1
            If mlngRecordNo > UBound(aryLine) Then ReDim Preserve aryLine(2 * mlngRecordNo)
            On Error Resume Next
                aryLine(mlngRecordNo) = objTSIn.ReadLine
                strResponse = Err.Description
            On Error GoTo 0
            If Len(strResponse) > 0 Then
                strResponse = strResponse & vbCrLf & _
                    "Reading Record #=" & CStr(mlngRecordNo) & vbCrLf & _
                    "After=" & aryLine(mlngRecordNo)
                Exit Do
            End If
        Loop
        ReDim Preserve aryLine(mlngRecordNo)
        ReDim aryDeleted(mlngRecordNo)
        If Len(strResponse) > 0 Then Exit Do
        
        '*****
        '* Process
        '*****
        strWhile = "Processing " & strInFilename
        On Error Resume Next
            ProcessRecords aryLine, aryDeleted, strInFilename
            strResponse = Err.Description
        On Error GoTo 0
        If Len(strResponse) > 0 Then Exit Do
        For I = 1 To UBound(aryLine)
            If aryDeleted(I) = False Then
                On Error Resume Next
                    objTSOut.WriteLine aryLine(I)
                    strResponse = Err.Description
                On Error GoTo 0
                If Len(strResponse) > 0 Then
                    strResponse = strResponse & vbCrLf & _
                        "Writing Record #=" & CStr(mlngRecordNo) & vbCrLf & _
                        "After=" & aryLine(mlngRecordNo)
                    Exit Do
                End If
            Else
            End If
        Next
    Exit Do: Loop
    '* close
    On Error Resume Next
        objTSIn.Close
        objTSOut.Close
    On Error GoTo 0
    
    '* Check for error
    If Len(strResponse) > 0 Then
        strResponse = strResponse & vbCrLf & _
                        "While " & strWhile
        Err.Raise vbObjectError + 513, "ConvertVB3ToVB6", strResponse
    End If
    
End Function