您的位置：程序门 -> vb -> 资源



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


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


老问题如何将vb3的程序转化成vb6[已结贴,结贴人:brown0432]
发表于：2008-01-08 14:51:28 楼主
我搜遍了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
不买不能用.....     谁还有什么好办法没有  


发表于：2008-01-08 15:00:531楼 得分:0
vb3   的代码转换成   vb6   谁有好的建议   都来说说呗.
发表于：2008-01-08 16:00:002楼 得分:0
看来问的问题     实在有难度           连看得人都没有
发表于：2008-01-08 16:13:513楼 得分:10
vb3的时代，偶还没看过电脑
^_^
发表于：2008-01-08 16:33:504楼 得分:0
vb3   哎~~~   8年前的东西了.难怪..
.欢迎讨论灌水   来者有份
发表于：2008-01-08 16:44:285楼 得分:5
我来顶一下楼主
发表于：2008-01-08 16:48:486楼 得分:0
谢谢   谢谢   ...欢迎讨论
发表于：2008-01-08 17:10:337楼 得分:5
vb3   不只8年前的东西吧?

vb6不是98~99年就有了么?   呵呵!
发表于：2008-01-08 17:17:318楼 得分:0
我说的是我现有的这个vb3程序版本        
  是99年完全封包的版本

现在     都08年了.才要改写.哎~~~~!
发表于：2008-01-08 19:07:239楼 得分:0
up        
发表于：2008-01-09 17:02:2610楼 得分:10
vb3   和   vb6   的格式差很多吗？还是程序代码的量太大了，改写有难度呢？
发表于：2008-01-09 17:27:5211楼 得分:0
最起码   form   都必须重画    
      代码可用性   暂时我还没有看明白
另外代码量不小     所以才来找工具     看大家都有什么办法
发表于：2008-01-09 17:31:2812楼 得分:10
vb6的文件都是文本文件，可以把vb3的打开看看，比照一下出入的地方，然后找些不同点，看有没有转换的可能

剩下的就是，写个程序，转换了。
发表于：2008-01-09 19:59:3313楼 得分:10
我这儿有vb3.0的软件,不知对你有帮助吗?
发表于：2008-01-09 21:48:4714楼 得分:10
大概95、96年吧，我学过vb2教科书，什么软件也没做，后来直接学vb6。vb2不支持activex控件。
发表于：2008-01-10 09:49:4015楼 得分:0
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
发表于：2008-01-10 12:16:1516楼 得分:40
源代码逐句转换.引用对象也不同.明白了软件的思路,重写!!!
发表于：2008-01-10 19:19:3717楼 得分:0
。。。。。。。。。。。
谢谢   狼老大   谢谢诸位     只能重写了。。。    

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击