Программирование
Веб программирование

Пример создания и чтения своей DLL

 
 
  1. Создайте форму
  2. Создайте три TextBox
  3. Создайте одну кнопку

Код формы:

Option Explicit

    Dim slojenie As Object

Private Sub cmdSum_Click()
    Set slojenie = CreateObject("TestDll.cTestDll")
    txtC.Text = slojenie.slojenie(Val(txtA.Text), Val(txtB.Text))
End Sub

Private Sub Form_Load()
    On Error GoTo registr 'В случае ошибки, переходим на указанную строку

    With Me
        .Caption = ("Test")
        .txtC.Locked = (True)
    End With

Exit Sub
registr: 'Если ошибка
    Shell "regsvr32 testDll.dll"
End Sub

Создайте ActiveX DLL

Код модуль классы:

Option Explicit

Public Function Slojenie(ByVal SumA As Long, ByVal SumB As Long)
    Dim SumC As Long
    Slojenie = (SumA + SumB) 'Сложение
End Function

Есть вопросы? Спроси на нашем форуме!!
Феликс [07.11.2011 19:56]

Мало комментариев и орисания, те кто не разбирается, влятри поймут. А так гуд!

Максим [07.11.2011 20:13]

это типо dll для сложения

Юра [07.11.2011 20:33]

Чем эта хорош код, тем что при компиляции DLL не надо компилировать постоянно EXE.

Юра [07.11.2011 20:35]

Я просто привёл пример на сложение, а так можно сделать на что фантазии хватит.

Максим [07.11.2011 21:07]

Я тут тоже решил добавить статью написал нажал добавить статью а в статьях на модерацию её нет
(она называется dll для закрашивания формы)

Padre [07.11.2011 21:16]

Вышли мне статью на почту padre03@mail.ru, я проверю.
Форма добавления статьи работает в тестовом режиме, возможно какой-то сбой. Сейчас буду проверять и тестить

Максим [07.11.2011 21:18]

Сейчас вышлю

Padre [07.11.2011 21:19]

Статья почему-то не добавилась, в базе vbbook поковырялся, не нашел.
Вышли пожалуйста мне на почту! Я на ней буду тестировать форму.

Padre [07.11.2011 21:19]

Жду!

Максим [07.11.2011 21:22]

Отправил

Padre [07.11.2011 21:24]

Слушай а можешь еще раз попробовать добавить ее на модерацию.
И главное напиши пожалуйста какие поля ты заполнял (автор, сайт и т.д.)

Padre [07.11.2011 21:24]

Очень странно что не добавилась

Padre [07.11.2011 21:25]

Возможно поле Тема была не заполнена

Padre [07.11.2011 21:26]

Получил, сейчас разместим. Но ты все равно попробуй )) Нужно выяснить в чем причина, чтобы потом не было таких проблем

Padre [07.11.2011 21:30]

Статью получил, а что писать в авторстве?

Максим [07.11.2011 21:31]

у меня ай си кью нет и сайта тоже
а поле тема я заполнил

Максим [07.11.2011 21:38]

в авторстве пиши Максим
(это я)

Padre [07.11.2011 21:39]

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

Максим [07.11.2011 21:40]

ОК

Padre [07.11.2011 21:42]

И на почту вышли пожалуйста картинку.
Завтра постараюсь сделать возможность добавления картинок к добавляемой статье.
Сейчас пока картинку добавить нельзя ((

Максим [07.11.2011 21:42]

Ты извини если я тебе надоел этим

Padre [07.11.2011 21:43]

Наоборот, ты мне очень сильно помогаешь!

Максим [07.11.2011 21:45]

Рад слышать(читать) что я кому то помогаю

Максим [07.11.2011 21:50]

картинку отправил
А ты вконтакте есть??

Padre [07.11.2011 21:53]

Нет, я только в аське (( Если появиться пиши 255-579-520

ФОтка пришла, а статью попробуешь еще разок?

Padre [07.11.2011 21:53]

разместить ))
Почти нашел глюк

Максим [07.11.2011 21:54]

Сейчас попробую

Максим [07.11.2011 22:01]

Большущие спасибо Padre

Padre [07.11.2011 22:04]

Тебе спасибо!!!!!
Если еще будут статьи присылай! Буду благодарен!

Максим [07.11.2011 22:05]

Я если что тебе на мыло напишу

Padre [07.11.2011 22:06]

Договорились!!

Саня [08.11.2011 21:47]

Да вы ребята загнолись

Гость [08.11.2011 23:40]

Shell "regsvr32 /s testDll.dll" можно сделать так, этот ключ "/s" чтобы во время регистрации небыло ни каких сообщений.

-Гепард97- [09.11.2011 16:08]

Копипаста. У меня есть такой же урок

Саня [09.11.2011 19:06]

Юра, не хорошо воровать, ссылку укажи на первоисточник http://vbbook.ru/visual-basic/pro-dll/

Юра [09.11.2011 19:26]

А ты внимательно коды посмотри, а за слова надо отвечать или думать прежде чем писать.

Что я украл?

Юра [09.11.2011 19:31]

Не хорошо меня вором называть.
Я всегда практически делаю все сам и эксперементирую.
Занимаюсь я уже бейсиком занимаюсь 8 лет.

Юра [09.11.2011 19:36]

внимательно обрати внимание на обращение к DLL
>>>Dim slojenie As Object

Private Sub cmdSum_Click()
Set slojenie = CreateObject("TestDll.cTestDll")
txtC.Text = slojenie.slojenie(Val(txtA.Text), Val(txtB.Text))
End Sub<<<

Юра [09.11.2011 19:40]

При таком обращение не надо компилировать 'EXE'
если ты что то изменишь в DLL-ке.
Согласись это намного удобнее.

Юра [09.11.2011 19:42]

Вот обращение по той статье
Dim DLL As New OurDLLClass

Dim DLL As OurDLLClass
Set DLL = New OurDLLClass

Саня [09.11.2011 19:44]

Сори, это -Гепард97- у тебя статью украл Ыыыы

Юра [09.11.2011 19:50]

Ни кто не у кого не воровал просто это два разных способа.
Это просто пример что бы было понятнее.

Юра [09.11.2011 19:53]

Это просто пример, что бы было понятнее.
Никто не воровал не он не я.

Саня [09.11.2011 20:25]

Вот и разобрались ))

Горыныч [09.11.2011 20:27]

Что-то в твоем уроке все комменты не в тему. ахахаххахаааа
Статья гуд, сейчас почитаю что Гепард97 написал ))

Карим [09.11.2011 23:46]

четко коротко ясно! +1

Баха [22.02.2012 09:15]

Да мне тоже помогли)))



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.