vb.net转为vb vb6转vbnet

vbNet转vb6

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

相关问答

Q1: vb.net怎样转成vb

vb.net里好像提供了自动转换vb6程序的，直接点 文件-打开 选择vbp文件，然后下一步下一步就行了，好像是的

Q2: 求帮忙把vb.net代码转成vb能用的代码，这段代码是用来做翻译的

引用MicrosoftDAO3.6ObjectLibraryPublicFunctionDaoOpenDB(ByValpDbTypeAsString,ByValpDbNameAsString,ByValpMdbCnctAsString)AsIntegerOnErrorGoToErr_HandlerDimm_DbDataBaseAsDAO.DatabaseDimgwsMainworkSpaceAsDAO.WorkspaceDimDAODBEngineAsNewDAO.DBEngine()Dimm_DbWkSpace=DAODBEngine.CreateWorkspace("","Admin","")IfpDbType="c_ACCESS"Then'Accessm_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName)Else'Oraclem_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName,True,False,pMdbCnct)EndIfDaoOpenDB=c_OK'你在全局中已定义ExitFunctionErr_Handler:DaoOpenDB=c_NG'你在全局中已定义MsgBox(Err.Description,MsgBoxStyle.OkOnly+MsgBoxStyle.Critical,"Err")EndFunction

Q3: 高人 将vb.net的代码转换为vb6 特别是CType(sender, Form).Close()这一句

sender就是引发事件的对象，因为不知道具体类型所以用object类型，在vb.net就是把sender转成窗体类型 意思就是关闭当前窗体。如果转成VB6的话就是Unload me

vb.net转为vb的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb6转vbnet、vb.net转为vb的信息别忘了在本站进行查找喔。