大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
有一个方法可以,就是麻烦些:
为台安等地区用户提供了全套网页设计制作服务,及台安网站建设行业解决方案。主营业务为网站制作、成都网站建设、台安网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
1.把你的C#项目编译为dll或exe
2.使用reflector再反编译你在1中生成的dll或exe
3.在reflector中再将反编译的结果输出为VB.NET项目.
这样做,肯定是可以的,只是麻烦.
需要用到FileGenerator插件.
reflector的下载和使用,参考:
如果还有问题,hi我.
=============
补充,实在不行就加我啊,帮你远程做一遍,你就会了啊.
能不能转换 主要取决于vb6的源程序是不是使用了第三方控件 如果用了 那这些全部都不能转!~
如果vb6里面有控件数组vb.net会自动生成出一套东西(vb.net里面已经没有控件数组)模拟控件数组
如果vb6的程序很简单的话,转成.net之后应该改的地方不大!~
绝对你应该先弄清楚以前vb6的程序具体用了什么 然后去微软查一下vb6升级到vb.net最大的区别!~
我们做过好几个升级的程序 有的不用改 有的简单修改 有的基本重写!~
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 输入数据时一行一个
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y
200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As I
Public Delegate Sub ProgressEventHandler(ByVal sender As Download)
Private _progress As ProgressEventHandler
Public Custom Event Progress As ProgressEventHandler
AddHandler(ByVal value As ProgressEventHandler)
_progress = _progress + value
End AddHandler
RemoveHandler(ByVal value As ProgressEventHandler)
_progress = _progress - value
End RemoveHandler
End Event
几个问题:
1、ByVal sender As Download,VB.net中 Download 这个类型是在哪个命名空间下的我真不知道,也没查到,可能是你这个程序自定义的类。
2、 _progress = _progress + value ,你给的代码里加法减法未声明,应该有相对应的RaiseEvent才对。
你可以直接打开 VB6 的程序,VB.net 会自动启动升级向导将你的 VB6 代码升级为 VB.net。