[求助]：这段程序怎么了？

netbee

2. 
   
3. Function GetBiosID() As String
   
4. Declare Function Getmoth Lib "hysys.dll" (ByVal Ival As Integer, ByRef StrID As String) As Integer
   
5. Dim Ierr As Integer
   
6. Dim Inum As Integer
   
7. Dim Sbiosid As String
   
8. Inum = 40
   
9. Ierr = Getmoth(Inum, Sbiosid)
   
10. GetBiosID = Sbiosid
    
11. End Function
    

<br /> Function GetBiosID() As String<br /> Declare Function Getmoth Lib "hysys.dll" (ByVal Ival As Integer, ByRef StrID As String) As Integer<br /> Dim Ierr As Integer<br /> Dim Inum As Integer<br /> Dim Sbiosid As String<br /> Inum = 40<br /> Ierr = Getmoth(Inum, Sbiosid)<br /> GetBiosID = Sbiosid<br /> End Function<br />

自由的鱼

你没有发现少个END FUNCTION吗？

netbee

没有嘛，下面是加载一个DLL中的函数的，好象不要END FUNCTION吧

Declare Function Getmoth Lib "hysys.dll" (ByVal Ival As Integer, ByRef StrID As String) As Integer

subtlation

是不是Declare Function要放在模块的最前面。不是放在过程中的？

自由的鱼

声明肯定要放在外面的！

efan2000

孙数体的内部不允许有外部DLL的声明。外部DLL的声明应该要放在模块或者窗体的所有过程或者逊数的前面。

hs-lijie

添加一模块，你把Declare Function Getmoth Lib "hysys.dll" (ByVal Ival As Integer, ByRef StrID As String) As Integer放在模块中就行了。

zhouroot

对,我认为楼上说的有道理!

dashan

我也认为Declare Function要放在模块里.

rizi8164

点确定就完了