VB 6 Windows Error Detect (сбор данных для анализа причин сбоев)

На 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
 
Стас,у меня почему то ошибка:

Вот эта строка:
VB.NET / VBA:
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As tagINITCOMMONCONTROLSEX) As Boolean

upload_2015-8-2_14-29-41.png
 
Перевожу: только комментарии могут находится после End Sub, End Function или End Property.

Правильный порядок следования такой:

1. Константы (которые используются в объявлениях типов (структур). Если есть.
2. Типы (структуры).
3. Объявления API-функций.
4. Объявление событий.
5. Константы
6. Переменные уровня модуля
7. Процедуры, функции, события контролов (в отличие от C++, в любой последовательности).

В модуле формы или класса область видимости может быть только Private.
Если модификатор Public|Private не указывать, по-умолчанию, считается, что он имеет область видимости Public.
 
Все отлично,разобрался.
Пришлось ставить хр,как оказалось хрю капризная и в других вещах.
 
Назад
Сверху Снизу