移植一个VB6可以正常 *** 作的CH341DLL，移植到VB2010出现的数据读写错误的问题

试验1

修改函数 

 Public Declare Function CH341StreamI2C Lib "CH341DLLDLL" (ByVal iIndex As Integer, ByVal iWriteLength As Integer, ByRef iWriteBuffer() As Byte, ByVal iReadLength As Integer, ByRef oReadBuffe() As Byte) As Boolean

 

 只接用数组试下看可以行的通不

试验2

 Structure arrRBuffer

        Public buf() As Byte

        Sub New(ByVal blen As Integer)

            ReDim buf(blen)

        End Sub

    End Structure

    

    可以 直接 dim a as new arrRBuffer(4095)

如果这样不行

那你就可以 调试一下 看一下返回的数据是不是一样 看是不是其它代码的问题

不知道你是指EXCEL还是WORD，下面是EXCEL

首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel 110 Object Library

其中110是不一定的，要看你计算机安装的OFFICE版本而定

110是2003，

这样就可以在VB里使用对象了：

Dim xlsApp As ExcelApplication '声明Excel对象变量

Dim xlsBook As ExcelWorkbook '声明工作簿对象变量

Dim xlsSheet As ExcelWorksheet '声明工作表对象变量

Set xlsApp = CreateObject("ExcelApplication") '创建EXCEL对象实例

xlsAppVisible = False '设置EXCEL对象不可见（或True为可见）

Set xlsBook = xlsAppWorkbooksOpen("C:\实验1xls") '打开已经存在的工作簿EXCEL文件

Set xlsSheet = xlsBookWorksheets("Sheet1") '设置工作表对象为工作簿中的表“Sheet1”

'''''''''''''''''''''''''''''''''''''''''''''

这里是你的具体 *** 作，类似宏

'''''''''''''''''''''''''''''''''''''''''''''

xlsBookClose (True) '关闭工作簿并保存所做的修改 (False)则放弃修改，将会提问

xlsAppQuit '关闭EXCEL对象

Set xlsApp = Nothing '释放xlApp对象

VBA是VB的一个只集，但是运行平台不一样。所以要移植到VB中理论上只要复制一下就行。

但是里面涉及到的数据库的链接，对office的 *** 作要换成VB的函数和语法。

下面是VB用ADODBConnection链接数据库的例子，楼主可以参考一下

Private Sub Command1_Click()

    Dim cn As New ADODBConnection '定义数据库的连接

    Dim rs As New ADODBRecordset

    Dim sql As String

    sql = "select  from jishijilu" '

    cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\wdmdb;Persist Security Info=False"

    cnOpen

    rsCursorLocation = adUseClient

    rsOpen sql, cn, adOpenDynamic, adLockOptimistic

    Set DataGrid1DataSource = rs

End Sub

以上就是关于移植一个VB6可以正常 *** 作的CH341DLL，移植到VB2010出现的数据读写错误的问题全部的内容，包括:移植一个VB6可以正常 *** 作的CH341DLL，移植到VB2010出现的数据读写错误的问题、vba中的宏怎么移植到vb中、VBA关于access编辑的宏，如何移植到VB当中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！