Ошибка соединения

Ошибка соединения, Подключаясь к Win API появляется ошибка

Пользователь

Сообщений: 14 Регистрация: 20.10.2015

05.02.2016 05:43:23

Доброго Всем время суток. Пытаюсь, подключиться к Win API на разных простеньких примерах и постоянно появляется ошибка:

Цитата
constants, fixed-length strings, arrays, user-defined types and declare statements not allowed as public members of object modules

ОС – Windows 7 (32бит), Excel 2010 (32бит), файл “kernel32” в наличии. Вот код:

Код
Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Private Sub CommandButton1_Click() Sub tt() MsgBox 1 Sleep 2000 MsgBox 2 End Sub

Спасибо.

Изменено: Алексей_S. - 05.02.2016 11:22:03

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

05.02.2016 06:30:09

одна из этих 2 строк кода, - лишняя:

Код
Private Sub CommandButton1_Click() Sub tt()

оставьте только одну
а первую строку запишите со словом PRIVATE

Код
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Алексей_S. Пользователь Сообщений: 14 Регистрация: 20.10.2015	#3 05.02.2016 06:34:45 Спасибо, Игорь. Все работает. Век живи, век учись. Тема закрыта.

Читают тему