以下提示供参考:
错误提示:
这种错误通常是由于集合、对象或用户定义类型中,并没有引用的成员、方法、属性、数据等。造成的原因可能有:
方法/属性等名称拼写错误。
某些非 VB 内置的函数等,没有正确引入
从代码看,由于订阅了 Form_Load 事件,因此,当代码运行时通常会先执行此事件中的代码,推测可能的错误在于:
建议:
通过调试工具,在上面代码行下断点跟踪调试,找出实际错误代码。
由于 GetVersionEx 并不属于 VB 内部函数,需要 Declare 引入(包括函数及结构体),示例代码如:
Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type