vb6.0 调用dll报错“找不到文件”
'Private Declare Function dll_PineTht_MhtDbh Lib "CPVOL32.DLL" Alias "THT_MHTDBH" (GenSpp As Long, MHT As Single, Dbh As Single) As Single
Private Declare Sub dll_FreeStdMem Lib "GROW06.dll" _
Alias "FREE_STD_MEM" (STD_H As Long, STD_T As Long, ecode As Integer)
'Private Declare Function dll_TIF_DEFAULT_THTS Lib "TIF_FIA.DLL" Alias "TIF_DEFAULT_THTS" (FIMSSPP As Long, Dbh As Single, MHT As Single, ecode As Integer) As Single
Private Sub Command1_Click()
Dim STD_H As Long
Dim STD_T As Long
Dim ecode As Integer
Dim result As Single
STD_H = 1&
STD_T = 1&
ecode = 1
Call dll_FreeStdMem(STD_H, STD_T, ecode)
End Sub
