主题：关于CVR-100U

这个，不想要项目一打开就自动读取，想把它改成完全手动读取，哪位大神有经验的请教一下

afterLoad事件，写代码

 

Try
    Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
    Dim iRetUSB As Integer
    For iPort As Integer = 1001 To 1016 '遍历端口号
        iRetUSB = CVR_InitComm(iPort)
        If iRetUSB = 1 Then
            Exit For
        End If
    Next
    If iRetUSB = 1 Then
        lb1.Text = "设备连接成功"
        'e.Form.TimerEnabled = True

        e.Form.Controls("CheckBox1").Checked = False

        e.Form.TimerEnabled = False '停止计时器,使得自动读取功能失效
    Else
        lb1.Text = "设备连接失败"
        e.Form.TimerEnabled = False '停止计时器,使得自动读取功能失效
        e.Form.Controls("Button1").Enabled = False '禁用读卡按钮
        e.Form.Controls("CheckBox1").Enabled = False '禁用自动读取复选框
    End If
Catch ex As Exception
    MessageBox.Show(ex.ToString)
End Try

我们增加一个自定义函数，用于解析"wz.txt"文件的内容，并写入FoxTable，函数名为“Parse”，代码为：

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

老是提示这个，哪个地方的原因？？？
此主题相关图片如下：qq图片20181126170830.png

全局代码，加入

 

http://www.foxtable.com/webhelp/scr/1842.htm

 

Public Declare Function CVR_InitComm Lib "termb.dll" Alias "CVR_InitComm" (ByVal Port As Integer) As Integer '连接设备
Public Declare Function CVR_Authenticate Lib "termb.dll" Alias "CVR_Authenticate" () As Integer '验证身份证
Public Declare Function CVR_Read_Content Lib "termb.dll" Alias "CVR_Read_Content" (ByVal Active As Integer) As Integer '读取身份证信息
Public Declare Function CVR_CloseComm Lib "termb.dll" Alias "CVR_CloseComm" () As Integer '关闭设备

 

http://www.foxtable.com/webhelp/scr/2417.htm

 

我知道是怎么一回事了，就是全局事件必须要删除，然后重启项目，再重做