| 发表于:2007-07-25 14:09:1116楼 得分:0 |
根据他的描述,程序报错可能的位置是下面这个函数, 但没看出哪有问题,大家帮忙看看 public sub s_port() on error goto fileerr dim icurcom as string dim iscancom as string dim icurrate as string dim iscanrate as string if len(dir(app.path & "\port.dat ")) then open app.path & "\port.dat " for input as #1 line input #1, icurcom line input #1, icurrate line input #1, iscancom line input #1, iscanrate close #1 else open app.path & "\port.dat " for output as #1 print #1, "1 " print #1, "57600 " print #1, "0 " print #1, "9600 " close #1 icurcom = "1 " icurrate = "57600 " iscancom = "0 " iscanrate = "9600 " end if currentport = val(icurcom) currentbaudrate = val(icurrate) scannerport = val(iscancom) scannerrate = val(iscanrate) exit sub fileerr: msgbox err.number & vbcrlf & err.description, vbexclamation, "error " end sub | | |
|