Problem Creating DLL Entry Point

[FFrozTT]

I am having a problem creating a DLL with an entry point. I've been
trying sub Main, DllMain, and I get nothing. When I run dumpbin -
exports mydll.dll I see no entry points, also the dll when executed by
rundll32 is not giving expected results. I have the project set to
Class Library with Sub Main as the startup object, which I can't
change to anything else anyway without modifying the .vbproj file
which also seems to have no effect. Also there seems to be a circular
error where
I get
Sub Main = "No accessible 'Main' method witha n appropriate signater
was found in 'MyDLL'."

Public Sub Main = "No accessible 'Main' method witha n appropriate
signater was found in 'MyDLL'."

Public Shared Sub Main = "Cannot refer to an instance member of a
class from within a shared method or shared member initializer without
an explicit instance of the class" -- Where it is referring to the
call to MyFunction which I have tryed as subs and functions and can't
seem to get out of this error without moving all my code to a module,
instead of a class. I don't really care if it is a module or a class
because I don't have to instantiate this object, just execute it but
everywhere I read people say to use Classes now, modules are just for
backward compatability with VB6.

Here is basically my code...

Option Explicit On
Imports System.Windows. Forms
Imports System.Runtime. InteropServices
Imports System.Reflecti on
Imports System.Threadin g
Imports System.IO

Public Class MyDLL
Public Const DLL_PROCESS_DET ACH = 0
Public Const DLL_PROCESS_ATT ACH = 1
Public Const DLL_THREAD_ATTA CH = 2
Public Const DLL_THREAD_DETA CH = 3

Public Function DllMain(ByVal hinstDLL As Long, ByVal fdwReason As
Long, ByVal lpwReserved As Long) As Boolean
Select Case fdwReason
Case DLL_PROCESS_DET ACH
' No per-process cleanup needed
Case DLL_PROCESS_ATT ACH
DllMain = True
Case DLL_THREAD_ATTA CH
' No per-thread initialization needed
Case DLL_THREAD_DETA CH
' No per-thread cleanup needed
End Select

Call MyFunction()
Do
Application.DoE vents()
Loop Until Not MyFunctionRunni ng()
End Function

Public Shared Sub Main()
Call MyFunction()
Do
Application.DoE vents()
Loop Until Not MyFunctionRunni ng()
End Sub

Public Sub MyFunciton()
....
End Function
Public Sub MyFunctionRunni ng()
.... Check if function still running.
End Function

Thanks in advance for any assistance with this problem.

[Mattias Sjögren]

>I am having a problem creating a DLL with an entry point.

I'm not surprised. VB doesn't support that so you can stop trying now.

>I have the project set to
Class Library with Sub Main as the startup object,

The startup object is only relevant for EXEs.
Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Patrice]

How will you consume this DLL ? You can't export DLL functions with .NET
using the old win32 style. You can consume them from other .NET or COM
applications.

If you really need to create an "old style" DLL you should likely use C++
or any other programming tool that supports that...

---
Patrice

"FFrozTT" <te**@millenniu m.ab.caa écrit dans le message de news:
11************* *********@y42g2 00...legr oups.com...

>I am having a problem creating a DLL with an entry point. I've been
trying sub Main, DllMain, and I get nothing. When I run dumpbin -
exports mydll.dll I see no entry points, also the dll when executed by
rundll32 is not giving expected results. I have the project set to
Class Library with Sub Main as the startup object, which I can't
change to anything else anyway without modifying the .vbproj file
which also seems to have no effect. Also there seems to be a circular
error where
I get
Sub Main = "No accessible 'Main' method witha n appropriate signater
was found in 'MyDLL'."

Public Sub Main = "No accessible 'Main' method witha n appropriate
signater was found in 'MyDLL'."

Public Shared Sub Main = "Cannot refer to an instance member of a
class from within a shared method or shared member initializer without
an explicit instance of the class" -- Where it is referring to the
call to MyFunction which I have tryed as subs and functions and can't
seem to get out of this error without moving all my code to a module,
instead of a class. I don't really care if it is a module or a class
because I don't have to instantiate this object, just execute it but
everywhere I read people say to use Classes now, modules are just for
backward compatability with VB6.

Here is basically my code...

Option Explicit On
Imports System.Windows. Forms
Imports System.Runtime. InteropServices
Imports System.Reflecti on
Imports System.Threadin g
Imports System.IO

Public Class MyDLL
Public Const DLL_PROCESS_DET ACH = 0
Public Const DLL_PROCESS_ATT ACH = 1
Public Const DLL_THREAD_ATTA CH = 2
Public Const DLL_THREAD_DETA CH = 3

Public Function DllMain(ByVal hinstDLL As Long, ByVal fdwReason As
Long, ByVal lpwReserved As Long) As Boolean
Select Case fdwReason
Case DLL_PROCESS_DET ACH
' No per-process cleanup needed
Case DLL_PROCESS_ATT ACH
DllMain = True
Case DLL_THREAD_ATTA CH
' No per-thread initialization needed
Case DLL_THREAD_DETA CH
' No per-thread cleanup needed
End Select

Call MyFunction()
Do
Application.DoE vents()
Loop Until Not MyFunctionRunni ng()
End Function

Public Shared Sub Main()
Call MyFunction()
Do
Application.DoE vents()
Loop Until Not MyFunctionRunni ng()
End Sub

Public Sub MyFunciton()
...
End Function
Public Sub MyFunctionRunni ng()
... Check if function still running.
End Function

Thanks in advance for any assistance with this problem.