Question

VB6.0 打包时 未知错误380 已发生，无效属性值

一个控制程序，调试及全编译执行都很正常，到打包时出现 未知错误 380 无效属性值，请教高手，如何处理。谢谢！Dim s1 As StringDim s2 As StringDim s22 As StringDim s3 As StringDim s4 As StringDim str As String 'LRC算法校验的实现Public Function LRC(str As String) As Stringc = 0l = Len(str)For c = c + 1 To lc_data = Mid$(str, c, 2)d_lrc = d_lrc + Val("&H" + c_data)c = c + 1Next cIf d_lrc > &HFF Thend_lrc = d_lrc Mod &H100End Ifh_lrc = Hex(&HFF - d_lrc + 1)If Len(h_lrc) > 2 Thenh_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)End IfLRC = h_lrcEnd Function'初次运行打开串口Private Sub form_load()MSComm1.CommPort = 4MSComm1.Settings = "9600,e,7,1"MSComm1.InBufferSize = 1024MSComm1.OutBufferSize = 1024MSComm1.InputLen = 0MSComm1.InputMode = comInputModeTextMSComm1.Handshaking = comNoneTimer5 = 200MSComm1.RThreshold = 7MSComm1.PortOpen = TrueEnd Sub'用指示灯表示PLC的运行状态Private Sub Timer5_Timer()s2 = "01010C300001"s22 = LRC(s2)s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)MSComm1.Output = s1s3 = MSComm1.Inputs4 = Mid$(s3, 8, 2) If s4 = "31" Then plc = 1 'PLC为运行标志 Else: If s4 = "30" Then plc = 0 'PLC为停止标志 End If If plc = 1 Then Label1.Caption = "PLC正在运行......" Shape1.FillColor = RGB(0, 255, 0) 'green Else Label1.Caption = "PLC已经停止" Shape1.FillColor = RGB(255, 0, 0) 'red End If End Sub'起动PLCPrivate Sub start_Click()Timer5.Enabled = Falsestr = "01050C30FF00"LRCC = LRC(str)strout = ":" + str + LRCC + Chr$(13) + Chr$(10)MSComm1.Output = stroutTimer5.Enabled = TrueEnd Sub'停止PLCPrivate Sub stop_Click()Timer5.Enabled = Falsestr = "01050C300000"LRCC = LRC(str)strout = ":" + str + LRCC + Chr$(13) + Chr$(10)MSComm1.Output = stroutTimer5.Enabled = TrueEnd Sub

Answer 1

1、无效的属性值（错误 380），属于可捕获的错误。
2、大多数属性只接受一定类型和一定范围的值。
3、造成此错误的原因和解决方法：
赋给属性的值不正确，参看属性的帮助，以决定属性的类型和取值范围。

追问

感谢解惑！这里只有 S1 S2 S3 S4 S22 str 这五个参数需要定义，且都是定义的字符串，过去相同条件下在其它程序里使用字符串没有问题。菜鸟想请教的是，有没有其它什么原因。比如 VB6.0 软件本身会不会因360等造成影响？