VC6++で以下のような関数を作成し、DLLにしました。
VC6++
1short __declspec(dllexport) __stdcall RetOK() 2{ 3 return(1); 4}
DLL名は「RetOK.DLL」でビルドは通りました。
これをVB6で使用するため、
VB6
1Option Explicit 2Private Declare Function RetOK Lib "RetOK.dll" () As Integer 3 4Private Sub Setup() 5On Error GoTo SetupErr 6 7 Dim i As Integer 8 i = RetOK 9 Exit Sub 10 11SetupErr: 12 13 End 14End Sub
のように書いたところ、「SetupErr」が動作してしまいます。
RetOKで値の取得に失敗している気がするのですが、何が間違っているのでしょうか。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。