- Сообщения
- 7,989
- Решения
- 11
- Реакции
- 6,758
Скорее всего потому что не добавлен код загрузки компонентов в процедуру инициализации формы:На XP утиль вообще не запускается.
VB.NET / VBA:
Private Type tagINITCOMMONCONTROLSEX
dwSize As Long
dwICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As tagINITCOMMONCONTROLSEX) As Boolean
Private Sub Form_Initialize()
On Error Resume Next
Dim ICC As tagINITCOMMONCONTROLSEX
' Enable visual styles
With ICC
.dwSize = Len(ICC)
.dwICC = &HFF& 'http://www.geoffchappell.com/studies/windows/shell/comctl32/api/commctrl/initcommoncontrolsex.htm
End With
InitCommonControlsEx ICC
End Sub