declare function WriteIcdmData ( Beep as long,byval beeplen as long) 看看这个!
ljc_zy(彷徨): 谢谢你的回答,其实这个函数在我加入了对ocx的引用之后是可以申明对象然后直接调用的了,现在的关键问题是,函数的第一个参数是一个用户自定义的数据结构: Public Type BeepStruct nCount As Long nTimes As Long End Type我现在该怎样把这个结构传进去并保证这个函数能够无误的识别它?
用varptr试试:'调用 dim mBeep as BeepStruct call WriteIcdmData (varptr(mbeep),beeplen)
declare function WriteIcdmData lib " " ( Beep as any,byval beeplen as long) dim mBeep as BeepStruct call WriteIcdmData (mBeep,beeplen) 或者按 rainstormmaster(暴风雨 v2.0)declare function WriteIcdmData lib " " (byval Beep as long,byval beeplen as long) dim mBeep as BeepStruct call WriteIcdmData (varptr(mbeep),beeplen)
看看这个!
谢谢你的回答,其实这个函数在我加入了对ocx的引用之后是可以申明对象然后直接调用的了,现在的关键问题是,函数的第一个参数是一个用户自定义的数据结构:
Public Type BeepStruct
nCount As Long
nTimes As Long
End Type我现在该怎样把这个结构传进去并保证这个函数能够无误的识别它?
dim mBeep as BeepStruct
call WriteIcdmData (varptr(mbeep),beeplen)
dim mBeep as BeepStruct
call WriteIcdmData (mBeep,beeplen)
或者按 rainstormmaster(暴风雨 v2.0)declare function WriteIcdmData lib " " (byval Beep as long,byval beeplen as long)
dim mBeep as BeepStruct
call WriteIcdmData (varptr(mbeep),beeplen)