Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) declare function Float_hex(byval fFloat as single) as longdim lpBuf as long dim s as string * 8 lpBuf=Float_hex(123.32423) copymemory byval s,byval lpBuf,8 debug.print s
Public Declare Function strdata Lib "ICRW.dll" (ByVal instr As String, Byval outstr As String ) As LongMe.Text1.Text = strdata("000001","2000") 我不知道参数,我估了两个参数!
declare function Float_hex(byval fFloat as single) as longdim lpBuf as long
dim s as string * 8
lpBuf=Float_hex(123.32423)
copymemory byval s,byval lpBuf,8
debug.print s
Public Declare Function strdata Lib "ICRW.dll" (ByVal instr As String, Byval outstr As String ) As LongMe.Text1.Text = strdata("000001","2000")
我不知道参数,我估了两个参数!