module2.bas

来自「ecg source code in c++」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module2"
' Public modules for return functions
Option Explicit
Private cally As Long

Public Function Buffer_filled(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long)
    Dim rc As Long
    'rc = waveInStop(hwi)
    Buffer_filled = 0
End Function

Public Function Buffer_filled2()
    'rc = waveInStop(hwi)
End Function