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

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,386
Реакции
5,877
Баллы
718
На XP утиль вообще не запускается.
Скорее всего потому что не добавлен код загрузки компонентов в процедуру инициализации формы:
VB.NET:
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
 

Кирилл

Команда форума
Администратор
Сообщения
14,081
Реакции
6,133
Баллы
993
Да,именно так и есть)
Спасибо.

Замечания учел.
 

Кирилл

Команда форума
Администратор
Сообщения
14,081
Реакции
6,133
Баллы
993
Стас,у меня почему то ошибка:

Вот эта строка:
VB.NET:
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As tagINITCOMMONCONTROLSEX) As Boolean
upload_2015-8-2_14-29-41.png
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,386
Реакции
5,877
Баллы
718
Перевожу: только комментарии могут находится после End Sub, End Function или End Property.

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

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

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

Кирилл

Команда форума
Администратор
Сообщения
14,081
Реакции
6,133
Баллы
993
Все отлично,разобрался.
Пришлось ставить хр,как оказалось хрю капризная и в других вещах.
 
  • Like
Реакции: tzrb
Сверху Снизу