AB5で以下のDLLを作ってリリースビルドはOK
Function Export dlltest(txt As String) As Long
Dim Title As String
Title="TEST"
MessageBox(0 , txt , Title , MB_OK)
dlltest=1
End Function
エクセル2010VBAでDLLを呼ぶとエクセルが落ちてしまいます
Declare Function dlltest Lib "D:\ActiveBasic 5.0\MyProjects\ABmyDLL\ABmyDLL.dll" (ByVal txt As String) As Long
Sub test()
Ret = dlltest("てすと")
End Sub
どこがおかしいのでしょう?
AB5で以下のDLLを作ってリリースビルドはOK Function Export dlltest(txt As String) As Long Dim Title As String Title="TEST" MessageBox(0 , txt , Title , MB_OK) dlltest=1 End Function
エクセル2010VBAでDLLを呼ぶとエクセルが落ちてしまいます Declare Function dlltest Lib "D:\ActiveBasic 5.0\MyProjects\ABmyDLL\ABmyDLL.dll" (ByVal txt As String) As Long Sub test() Ret = dlltest("てすと") End Sub
どこがおかしいのでしょう?
|