VPF::VB.NET и WinApi - Форум программистов

cooler1985

Дата 31.3.2007, 03:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.2.2007

Репутация: нет
Всего: нет

Я в API ну нифига не шарю, а тем более с использыванием их в VB.NET.
Гдеб найти описание отой смеси(API и VB.NET), да ещё желательно на русском, да ещё чтоб самих функций было много. Эх мечты....

Ну а если это не возможно, то предлагаю писать в эту тему всё про API и VB.NET, но желательно чтобы, так сказать, для начала было начало... и было всё по порядку.

cooler1985

Дата 1.4.2007, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.2.2007

Репутация: нет
Всего: нет

Ну?? где хоть чтонить??

Naum

Дата 2.4.2007, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 743
Регистрация: 7.9.2005
Где: Саратов, ул. Поса дского, 298

Репутация: 2
Всего: 15

Google.
А про вызов API из VB.NET:
Цитата из какой-то книжки:

Код


' (1) Import InteropServices namespace.
Imports System.Runtime.InteropServices

Public Class Win32API
Inherits System.Web.UI.Page

' (2) Use a Declare statement to identify an unmanaged procedure to call.
Declare Auto Sub GetSystemInfo Lib "kernel32.dll" (ByRef Info As SYSTEM_INFO)

' (3) Define Structs or other types for unmanaged procedure parameters.
Structure SYSTEM_INFO
    Dim ProcessorArchitecture As Int16
    Dim Reserved As Int16
    Dim PageSize As Int32
    Dim MinAppAddress As Int32
    Dim MaxAppAddress As Int32
    Dim ActiveProcMask As Int32
    Dim NumberOfProcessors As Int32
    Dim ProcessorType As Int32
    Dim AllocGranularity As Int32
    Dim ProcessorLevel As Int32
    Dim ProcessorRevision As Int32
End Structure

Private Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
    ' Declare the parameter to pass in.
    Dim CurrentSystem As SYSTEM_INFO
    ' (4) Call the unmanaged procedure.
    GetSystemInfo(CurrentSystem)
    ' Display results.
    litSystemInfo.Text = "Number of processors: " + _
        CurrentSystem.NumberOfProcessors.ToString() + "<br>"
    litSystemInfo.Text += "Type of processor: " + _
        CurrentSystem.ProcessorType.ToString() + "<br>"
    litSystemInfo.Text += "Page size: " + _
       CurrentSystem.PageSize.ToString() + "<br>"
End Sub

End Class

...
В предыдущем примере в VB.Net вместо аттрибута DllImport используется ключевое слово Declare. Ключевое слово Declare предоставляет упрощенный синтаксис для объявления процедур из неуправляемого кода и, при компиляции, конвертируется в следующий эквивалент DllImport:

Код


<DllImport("KERNEL32.DLL", EntryPoint:="GetSystemInfo", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Sub GetSystemInfo(ByRef Info As SYSTEM_INFO)
    ' Leave procedure body empty
End Sub

Конец цитаты.

--------------------

У нас всего два праздника Новый год и ТЯПница.

ivashkanet

Дата 2.4.2007, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Кодю потиху

Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149

Т.е. самое главное вот это :

Цитата(Naum @ 2.4.2007, 08:48

)

' (2) Use a Declare statement to identify an unmanaged procedure to call.
Declare Auto Sub GetSystemInfo Lib "kernel32.dll" (ByRef Info As SYSTEM_INFO)

Цитата(cooler1985 @ 1.4.2007, 14:19

)

Ну?? где хоть чтонить??

Сначала все спали, а потом долго просыпались smile

--------------------

design, simplicity, and experience with a technology focus

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »