13518219792
可以的。
我们提供的服务有：成都网站建设、成都做网站、微信公众号开发、网站优化、网站认证、崂山ssl等。为上千多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的崂山网站制作公司
VB6所产生的DLL全都都是标准COM组件，只需要注册一下就可以引用了。
VB6和vb.net的数据库操作有很大不同，不能简单的语句对语句转换，建议你深入了解vb.net的数据库操作，再做移植
能不能转换 主要取决于vb6的源程序是不是使用了第三方控件 如果用了 那这些全部都不能转！~
如果vb6里面有控件数组vb.net会自动生成出一套东西（vb.net里面已经没有控件数组）模拟控件数组
如果vb6的程序很简单的话，转成.net之后应该改的地方不大！~
绝对你应该先弄清楚以前vb6的程序具体用了什么 然后去微软查一下vb6升级到vb.net最大的区别！~
我们做过好几个升级的程序 有的不用改 有的简单修改 有的基本重写！~
Dim i As Integer,wd As Integer,hd As Integer
Dim Obj As HtmlDocument=WebBrowser1.Document.GetElementsByTagName("iframe")(2).Document
For i=0 To Obj.Images.Count-1
wd=Obj.Images(i).OffsetRectangle.Width
hd=Obj.Images(i).OffsetRectangle.Height
If wd=800 Or wd=790 Then
Call tupxiazai(Obj.Images(i).GetAttribute("SRC"),Application.StartupPath "\image\" i "pic.jpg")
End If
Next
vb.net里好像提供了自动转换vb6程序的，直接点 文件-打开 选择vbp文件，然后下一步下一步就行了，好像是的
Private Sub Command1_Click()
Dim Str As String
Str = Clipboard.GetText '获取剪切板数据
ListView1.View = lvwReport
ListView1.HideColumnHeaders = False
ListView1.GridLines = True
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Dim Tit As Boolean
Tit = True
Dim Index As Integer ' = 0 '标题行的列数。
Dim i
Dim k
Dim lv As ListItem
On Error GoTo Catch
For Each i In Split(Replace(Str, vbLf, ""), vbCr)
Dim Str2() As String
Str2 = Split(i, vbTab)
If Tit Then '标题行
Tit = False
For Each k In Str2
ListView1.ColumnHeaders.Add , , k
Next
Else '非标题行。
Set lv = ListView1.ListItems.Add(, , Str2(0))
Index = UBound(Str2)
For k = 1 To Index
lv.SubItems(k) = Str2(k)
Next
End If
Next
Catch:
End Sub
