Information générale
Catégorie:
Codage, syntaxe et commandes
Yes, here you go......
In the VB module I declared the functions
Declare Sub csub Lib "rlpolk.dll" (ByVal s_vinin As String, ByVal s_vinout As String, ByVal i_bypass As Integer)
Declare Function v_o_d Lib "rlpolk.dll" (ByVal s_vinout As String, ByVal s_opout As String) As Integer
Then I am making a call to the function by a button click
Private Sub Command1_Click()
Dim s_vinin As String * 25
Dim s_vinout As String * 108
Dim s_opout As String * 155
Dim i_bypass As Integer
Dim i_cnt As Integer
'-------------------------------
i_bypass = Asc("b")
s_vinin = " 2HGEJ1122RH547354"
Call csub(s_vinin, s_vinout, i_bypass)
Call v_o_d(s_vinout, s_opout)
MsgBox s_vinout
MsgBox s_opout
End Sub
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement