'模块中定义的临界区,不使用临界区不出问题,使用后编译的exe就出现内存不能读的错误 Global gCS As CRITICAL_SECTION '临界区 Public gblnLocID As Boolean Public Type CRITICAL_SECTION dummy As Long End Type Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Sub InitializeCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) Public Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) Public Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) Public Declare Sub DeleteCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Global gCS As CRITICAL_SECTION '临界区
Public gblnLocID As Boolean
Public Type CRITICAL_SECTION
dummy As Long
End Type
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Sub InitializeCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Public Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Public Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Public Declare Sub DeleteCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
在VB环境下运行可以,但编译成EXE就没有了反应,但将程序拿到XP下运行又
可以,这说明应该是操作系统的原因吧?同意者举手!