Fund a wave recorder and made a project?

visualbasic700e
01-21-2001, 12:31 PM
Can you test this see why it wont work i found these
codes at
http://www.vb2themax.com/Item.asp?PageID=TipBank&ID=145

and made the controls and put the
recordwave
recordstop
recordresume
recordsave
recordclose
recordpause
but it did not work or i click stop button , can anyone help.
Thanks all lot

' Global Module1.bas code

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


Option Explicit

Private Sub Command1_Click()
Dim CommandString, RetVal

CommandString = "Open new type waveaudio alias RecWavFile"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
CommandString = "Record RecWavFile"

CommandString = "Set RecWavFile time format milliseconds"

End Sub

Private Sub Command2_Click()
Dim CommandString
CommandString = "Pause RecWavFile "


End Sub

Private Sub Command3_Click()
Dim CommandString

CommandString = "Resume RecWavFile "

End Sub

Private Sub Command4_Click()
Dim CommandString
CommandString = "Stop RecWavFile"

End Sub

Private Sub Command5_Click()
Dim CommandString
CommandString = "Save RecWavFile " & "c:\test677.wav"

End Sub

Private Sub Command6_Click()
Dim CommandString

CommandString = "Close RecWavFile"


End Sub


Thank you from Ben

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum