|
发表于 2011-3-7 17:31:38
|
显示全部楼层
Public Function InitCommonControlsVB() As Boolean 'XP 样式
On Error Resume Next
Dim iccex As INITCOMMONCONTROLSEX ' tagINITCOMMONCONTROLSEX
With iccex
.dwSize = LenB(iccex)
.dwICC = ICC_USEREX_CLASSES
'.lngSize = LenB(iccex)
'.lngICC = ICC_USEREX_CLASSES
End With
INITCOMMONCONTROLSEX iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
提示错误 什么意思 |
|