﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Программирование / Visual Basic  / Как написать DLL на VB? / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://www.relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Sat, 10 Jan 2009 07:12:37 GMT</lastBuildDate><ttl>20</ttl><item><title>RE: Как написать DLL на VB?</title><link>http://www.relib.com/forums/Topic188-1-1.aspx</link><description>Рад за тебя :-)</description><pubDate>Mon, 03 Apr 2000 12:41:00 GMT</pubDate><dc:creator>lexa</dc:creator></item><item><title>RE: Как написать DLL на VB?</title><link>http://www.relib.com/forums/Topic188-1-1.aspx</link><description>Hi, all Дас, объяснили мне, что DLL в классическом смысле этого слова ("С"шного аналога) сделать не удастся.  Необходимо создать класс и функции писать внутри него. А после: - создаем DLL, - получаем к ней доступ, - определяем переменную класса ... - и наконец используем ее функции. Ну Пока.</description><pubDate>Mon, 03 Apr 2000 10:09:00 GMT</pubDate><dc:creator>white-wolf</dc:creator></item><item><title>Как написать DLL на VB?</title><link>http://www.relib.com/forums/Topic188-1-1.aspx</link><description> Описываю функцию/процедуру в ActiveX DLL, компилирую в NewDll.Dll, но потом не могу получить доступ к этой функции из другой программы. Может кто знает, в чем проблема? Сорсы прилагаю.-------------- Dll Src: ---------------------Option ExplicitFriend Sub Copier(FromPath As String, ToPath As String)Dim File1 As FileListBoxDim i As IntegerFile1.Path = FromPath    If File1.ListCount &amp;lt;&amp;gt; 0 Then        For i = 0 To File1.ListCount - 1        File1.ListIndex = i            FileCopy FromPath &amp; "\" &amp; File1.filename, ToPath &amp; "\" &amp; File1.filename        Next i    Else    End IfEnd Sub-------------- App Src: ---------------Module:Declare Sub Copier Lib "NewDll" (ByVal FromPath As String, ByVal ToPath As String)-.-.-.-.-.-.-.-Form:Private Sub Command1_Click()    Call Copier("c:\from\", "c:\into\")End Sub-----------------------------------Выдает ошибку:Can't find DLL entry point Copier in NewDll.</description><pubDate>Sat, 25 Mar 2000 03:09:00 GMT</pubDate><dc:creator>white-wolf</dc:creator></item></channel></rss>