Как в vbnet вызывать API функции

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

kimpit
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 28.11.2003 (Пт) 14:08

Как в vbnet вызывать API функции

Сообщение kimpit » 10.04.2004 (Сб) 8:19

Объясните плз или пошлите по ссылке :oops:

areh
Постоялец
Постоялец
 
Сообщения: 530
Зарегистрирован: 02.12.2002 (Пн) 12:28
Откуда: РОССИЯ, Салехард

Сообщение areh » 10.04.2004 (Сб) 11:36

Да вроде бы точно так же, только надо учитывать, что изменились типы данных, т.е. вместо long надо integer в обявлениях функций использовать...

А вообще не рекомендуеться использовать win api, т.к. тепреь "всё" умеют делать классы Framework'а

"всё" - это на сколько я знаю, но конечно возможно, что чего-то там нету...

kimpit
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 28.11.2003 (Пт) 14:08

Сообщение kimpit » 10.04.2004 (Сб) 12:37

А конкретней нельзя?
Например если хочу использовать EnumWindows()
то в VB6 декларирую:
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
и могу с ней работать.
ну а vbnet как? :oops:

areh
Постоялец
Постоялец
 
Сообщения: 530
Зарегистрирован: 02.12.2002 (Пн) 12:28
Откуда: РОССИЯ, Салехард

Сообщение areh » 10.04.2004 (Сб) 13:04

решил я тебя всётаки послать вот сюда

там вроде бы как раз об этом и рассказано....

Грандж
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 150
Зарегистрирован: 29.10.2002 (Вт) 14:10
Откуда: Москва

Сообщение Грандж » 11.04.2004 (Вс) 23:16

Код: Выделить всё
Public Delegate Function EnumWindowsCallback(ByVal hWnd As Integer,                                                 ByVal lParam As Integer) As Boolean

    Public Declare Function EnumWindows Lib "user32.dll" _
        Alias "EnumWindows" (ByVal callback As EnumWindowsCallback, _
                             ByVal lParam As Integer) As Integer

    <DllImport("user32.dll", EntryPoint:="EnumWindows", SetLastError:=True, _
    CharSet:=CharSet.Ansi, ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function EnumWindowsDllImport(ByVal callback As EnumWindowsCallback, _
                                                ByVal lParam As Integer) As Integer
    End Function



(c) 101 VB .net samples - How-to Win32 API
и между ног затеплилась надежда
(%

http://grunger.net.ru

kimpit
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 28.11.2003 (Пт) 14:08

Сообщение kimpit » 12.04.2004 (Пн) 7:33

Спасибо всем
Буду разбираться :lol:


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 60

    TopList