Mon problème c'est ce message : Can't find DLL entry pointRésolu

Question

J'ai cr&#233;&#233; et compil&#233; une DLL nomm&#233;e :
- MyCommonSubs
   Contient une classe MySubs qui elle-m&#234;me contient une M&#233;thode nomm&#233;e ADTT :


'-------------------------------------------------------------------------------------
'Teste l'augmentation du temps ADTT = Augmentation Diminution Test du Temps
'[ex: ValeurTest = 67, ValeurMax = 60, ValeurTest = 7, Renvois 1]
Public Sub ADTT(ByRef ValeurTest As Variant, _
                ByRef ValeurRetour As Variant, _
                ByVal ValeurMax As Variant)
  Dim VT, VR, VM As Integer 'D&#233;finit des variables plus courtes
  VT = ValeurTest 'Copie les variables
  VR = ValeurRetour 'Copie les variables
  VM = ValeurMax 'Copie les variables
    If VT >= VM Then
      VR = VR + Int(VT / VM)
      VT = VT - Int(VT / VM) * VM
    ElseIf VT < 0 Then
      VR = VR - 1 - Int(Abs(VT) / VM)
      VT = VM - (Abs(VT) Mod VM)
    End If
  ValeurTest = VT 'Change la valeur test
  ValeurRetour = VR 'Change la valeur retour
End Sub


(J'ai utilis&#233; une sub et pas une fonction pour une bonne raison)


Cette DLL est dans "C:\WINDOWS\system32"


Dans un projet Control ActiveX je tape le code suivant :


Private Declare Sub ADTT Lib "MyCommonSubs" (ByRef a As Variant, _
ByRef b As Variant, ByVal c As Variant)


'-------------------------------------------------------------------------------------
'Calcule l'heure et cr&#233;e une chaine la contenant selon le format ##:##:##
Private Function BuildHour() As String
  ADTT m_Sec, m_Min, m_SMax
  ADTT m_Min, m_Heu, m_MMax
  'Construit la chaine
  BuildHour = Format(m_Heu, "00") + ":" + Format(m_Min, "00") + ":" + _
    Format(m_Sec, "00")
End Function


Quand je lance le Controle ActiveX il me dit :


Run-time error '453':
Can't find DLL entry point ADTT in MyCommonSubs


Je comprends pas pourquoi et je suis au bord de la crise de nerf !
Aidez-moi svp !
(Je devellope en VB6 PAS EN .NET).


Merci d'avance...

NHenry · Accepted Answer

VB permet de cr&#233;&#233; des DLL ActiveX &#224; charger avec CreateObject, et pas des DLL &#224; d&#233;clarer avec DECLARE...

NH

Thomas Anderson · Answer

Merci beaucoup...


On m'a dit que l'on pouvair &#233;viter d'utiliser une DLL avec CreateObjet (m&#234;me si &#231;a &#224; r&#233;solu mon probl&#232;me ) est-ce vrai ?

Thomas Anderson · Answer

Au fait, comment &#231;a se fait que l'on utilise Declare pour l'API Windows alors ?

mrdep1978 · Answer

Ce sont des DLL en C++ et pas en VB.

Thomas Anderson · Answer

Ok ! Merci &#224; tous de ces explications...

Mon problème c'est ce message : Can't find DLL entry point

5 réponses

Discussions similaires