VisualBasic6.0录音机源代码-2024-7-21QZQ

Option Explicit

'Download by http://www.codefans.net
Private Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib “winmm.dll” Alias “mciGetErrorStringA” (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Dim ReturnString As String * 256
Dim RetValue As Long
Dim errorstring As String * 1024

Private Sub cmdPlay_Click()
Dim CommandString As String
If Dir(App.Path & “\Test.Wav”) <> “” Then
RetValue = mciSendString(“open Test.Wav alias sounds1”, ReturnString, 256, 0)
mciSendString “play sounds1”, ReturnString, 256, 0
Else
MsgBox “没有声音文件 Test.Wav”, vbOKOnly, “提示”
End If
End Sub

Private Sub cmdRecord_Click()
Dim uniqueFilename As String
uniqueFilename = “Record” & Format(Now, “yyyymmddhhnnss”) & “.wav” '生成唯一的文件名，包含当前时间
RetValue = mciSendString(“open new type waveaudio alias sounds1”, ReturnString, 256, 0)
If RetValue = 0 Then
'开始录音…
RetValue = mciSendString(“record sounds1”, ReturnString, 256, 0)
cmdStop.Enabled = True
Else
mciGetErrorString RetValue, errorstring, 1024
MsgBox errorstring
End If
End Sub

Private Sub cmdStop_Click()
RetValue = mciSendString(“stop sounds1”, ReturnString, 256, 0)
Dim uniqueFilename As String
uniqueFilename = “Record” & Format(Now, “yyyymmddhhnnss”) & “.wav” '生成唯一的文件名，包含当前时间
RetValue = mciSendString("save sounds1 " & uniqueFilename, ReturnString, 256, 0)
If RetValue = 0 Then
Else
mciGetErrorString RetValue, errorstring, 1024
MsgBox errorstring
End If
RetValue = mciSendString(“close sounds1”, ReturnString, 256, 0)
cmdStop.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
mciSendString “close all”, ReturnString, 256, 0
End Sub

…
…
…

🎉精彩不容错过！新文章震撼登场，却因代码不全让人意犹未尽？别担心！我们为你准备了软件截图，让你先睹为快，感受其强大魅力。

✨如果你渴望解锁全部精彩内容，那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门，让你深入探索其中的奥秘，挖掘无限潜力。

🔗源代码下载网址：[https://download.csdn.net/download/qq_32257509/89562942]。赶紧行动起来，下载完整源代码，开启你的编程之旅吧！