我在AfterOpenProject事件中写了如下代码:
Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
StatusBar.DefaultMessage ="机具进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称")
StatusBar.Message3 = "服务支持:技术有限公司 服务热线:1300000000"
OK = True
End If
为什么不显示StatusBar.Message3 = "服务支持:技术有限公司 服务热线:1300000000"呢?