Private Declare Function C++函数名称 Lib "F:\\my\\C++写的.dll" (ByVal str1 As String, ByVal str2 As String) As Boolean
Public Function SafeControl(ByVal str1 As String, ByVal str2 As String) As String
Dim design As Boolean
design = C++函数名称(str1, str2) ''OpenEncrypt是C++里的函数,参数根据实际情况而定
SafeControl = str2
End Function
Public Function SafeControl(ByVal str1 As String, ByVal str2 As String) As String
Dim design As Boolean
design = C++函数名称(str1, str2) ''OpenEncrypt是C++里的函数,参数根据实际情况而定
SafeControl = str2
End Function
文章来源:桂林唯创网络