Ошибка вызова MenuItemFromPoint - VB
Формулировка задачи:
При вызове функции ошибка:
Было так:ByVal ptScreen As POINTAPI, а переделал на: ptScreen As POINTAPI
Вот мой пример:
1. Создайте на форме меню.
2. Код
Код формы:
Код модуля:
Что делать? Функции объявлял из API Viewer. Изменил только последний параметр в функции MenuItemFromPoint.
Было так:ByVal ptScreen As POINTAPI, а переделал на: ptScreen As POINTAPI
Вот мой пример:
1. Создайте на форме меню.
2. Код
Код формы:
Код модуля:
Решение задачи: «Ошибка вызова MenuItemFromPoint»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Declare</font> <font color="blue">Function</font> MenuItemFromPoint Lib <font color="teal">"user32.dll"</font> (<font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> hMenu <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> X <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> Y <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д