Создание и подключение Библиотек

[Yurasik]

Люди добрые помогите сделать вот что:
Имеется Модуль для работы с INI файлами
Но хочется сделать из него DLL (в смысле библиотеку)
Затем подключить её в VB и как сней работать потом. А?

Знаю знаю вопрос тупой но куда ещё податься если ответа не знаешь!

[alibek]

А зачем? Используй модуль.
Если очень хочется, создай новый проект (тип -- ActiveX DLL), подключи к нему модуль и скомпилируй.

[Yurasik]

Просто нужно чтобы понять как!


Я так примерно и думал, это я про создание DLL
А как ее подключить и как с ней работать?

[alibek]

Регистрируешь и она появится в References. Потом подключаешь и работаешь.

[Yurasik]

А поподробнее для Даунов в примере (Dll имя файла modINI.dll)
с кодом если можно!

[alibek]

Причем тут код?

[Yurasik]

Ну а как библиотеку ещё можно подключить. Напиши как все это можно сделать!

[lord0n]

Ну а как библиотеку ещё можно подключить. Напиши как все это можно сделать!

декларируй и вызывай

[Yurasik]

Блин ты бы не мог написать как? Мы ведь в разделе Новичков!

[lord0n]

да ради бога
вот декларация getfilesize

Код: Выделить всё


Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long


[Yurasik]

Мда...

Я конечно извиняюсь но, куда сдесь вписывать путь и имя DLL имя у неё mobini.bas

Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

[alibek]

да ради бога
вот декларация getfilesize

Это для Native DLL, а создаваться будет ActiveX DLL.

[Yurasik]

Блин я совсем запутался.
Есть файл modINI.dll (ActiveX Dll) Откомпелированный конечно.
Его нужно поместить в c:\windows\system32 или куда?
дальше в
Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
он его сам чтоли подцепит или как?
Ты бы не мог разжевать все как для чайника, а?

---------------------------------------------
Я конечно понимаю когда все знаешь то можно и недоговаривать, так как думаешь что это все просто. Но ведь я пишу что я ни хрена не знаю как это сделать?

[Andrey Fedorov]

Я конечно извиняюсь но, куда сдесь вписывать путь и имя DLL имя у неё mobini.bas

В общем так - создаешь проект ActiveX DLL в него включаешь свой Public класс работающий с ini-файлами (должен быть именно класс!

Компилишь DLL-ку. На нее из своей программы ставишь ссылку. И можешь использовать.

В общем, почитай умных книжек на тему создания ActiveX компонентов на VB6.

[Yurasik]

А что ответить сложно?

Ты ведь только слова пишешь а действи или примеров непоказываешь.
На нее из своей проги ставишь ссылку - КАК Ешкин кот
Нельзя написать что то вроде

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA As Long = 48

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim tRCT As RECT
SystemParametersInfo SPI_GETWORKAREA, ByVal 0&, VarPtr(tRCT), ByVal 0&

'left top
Me.Top = tRCT.Top * Screen.TwipsPerPixelY
Me.Left = tRCT.Left * Screen.TwipsPerPixelX

'left bottom
Me.Top = (tRCT.Bottom - tRCT.Top) * Screen.TwipsPerPixelY - Me.Height
Me.Left = tRCT.Left * Screen.TwipsPerPixelX

'right top
Me.Top = tRCT.Top * Screen.TwipsPerPixelY
Me.Left = (tRCT.Right - tRCT.Left) * Screen.TwipsPerPixelX - Me.Width

'right bottom
Me.Top = (tRCT.Bottom - tRCT.Top) * Screen.TwipsPerPixelY - Me.Height
Me.Left = (tRCT.Right - tRCT.Left) * Screen.TwipsPerPixelX - Me.Width
End Sub

Если можно!?

[lord0n]

если хочешь чтоб тебе написали прогу - плати
бесплатно можем помочь советом, а дальше думай сам
советов тебе уже надовали выше крыши

[Yurasik]

Я неувидел совета как из своей программы сделать на неё ссылку.

Я чегото не улавливаю в форуме на вопрос как обьявить переменную отвечают:

Dim Имя Переменной As Тип переменной

а не пишут Обьявлешь пременную!!!

Если не знаешь или не можешь написать пример нужно уметь в этом сознаться, а нестроить умника.

[lord0n]

Я неувидел совета как из своей программы сделать на неё ссылку.

Я чегото не улавливаю в форуме на вопрос как обьявить переменную отвечают:

Dim Имя Переменной As Тип переменной

а не пишут Обьявлешь пременную!!!

Если не знаешь или не можешь написать пример нужно уметь в этом сознаться, а нестроить умника.

тебе это обьяснили - через ссылку

а если я чего то не знаю то не отвечаю на топик

[Yurasik]

Короче с тобой все ясно обьяснять чайникам ты не можешь, и учитель, а так же подсказчик из тебя никакой.

Я кпримеру не понимаю что даст ссылка, ну а ты в скою очередь не можешь доступно безовсякого выпендрежа обьяснить.

Подожду может кто нормально ответит.

[lord0n]

Короче с тобой все ясно обьяснять чайникам ты не можешь, и учитель, а так же подсказчик из тебя никакой.

Я кпримеру не понимаю что даст ссылка, ну а ты в скою очередь не можешь доступно безовсякого выпендрежа обьяснить.

Подожду может кто нормально ответит.

ню-ню
на примере ADO
меню проект - ссылки, выбираем Microsoft ActiveX Data Objects....

в коде

Код: Выделить всё


Dim db As Connection
Dim RS As Recordset
Set db = New ADODB.Connection
Set RS = New ADODB.Recordset

db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Appath & "Hranenie.mdb;Mode=Share Deny None;"

RS.Open "select Количество, Срок_годности, №_паллеты, Еденица_измерения from Hran where Адрес_места = '" & txtEnter(z).Text & "'", db, adOpenStatic, adLockOptimistic


а как ты будешь подключать СВОЮ библиотеку - я незнаю

[tyomitch]

Yurasik, объяснение без выпендрежа: http://vbrussian.com/Article.asp?id=109