Discussion :

[dieuzorro]

Bonjour,

J'ai une Dll codé en vb6 et un projet exemple en vb6 pour s'en servir. Je veut m'en servier en vb net. J'ai porté le projet vb6 vers vb net mais cela ne fonctionne pas. Le prbléme est avec une fonction qui fait un callback.

Code VB6
Déclaration du prototype de la fonction de la dll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public Declare Function SetProgressProc Lib "ISMBUS32.DLL" Alias "_SCDLG_SetProgressProc" (ByVal Pnt As Long) As Long

Appel de la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call SetProgressProc(AddressOf CallbackProc_Progress)

Fonction callback

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub CallbackProc_Progress(ByVal Data As Double)
  MainScreen.Progress.Caption = CStr(CInt(Data)) + " %"
End Sub

Code En VB Dot Net
Déclaration du prototype de la fonction de la dll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Public Delegate Sub SetProgressProcDelegate(ByVal Pnt As Double)
    Public Declare Function SetProgressProc Lib "ISMBUS32.DLL" Alias "_SCDLG_SetProgressProc" (ByVal Pnt As SetProgressProcDelegate) As Integer

Appel de la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call SetProgressProc(AddressOf CallbackProc_Progress)

Fonction callback

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub CallbackProc_Progress(ByVal Data As Double)
	MainScreen.DefInstance.Progress.Text = CStr(CShort(Data)) & " %"
End Sub

Merci d'avance pour vos réponce

[dieuzorro]

Personne pour me répondre? Mon message n'est pas assé claire?

[Pol63]

que fait ta dll ?
ne serait il pas possible de la réécrire avec le framework (sinon c'est pas utile de venir sur .NET)

sinon oriente peut etre tes recherches sur les délégués (delegate)
et peut etre la gestion des threads aussi ...

[dieuzorro]

Je ne peut pas la reécrire car ces une dll de communication avec un appareil externe fornit par le fabricant. Pour les delegate c'est ce que j'ai essayé de faire mais sabs succés!