How to make a sound recorder in VB 2. How to make a sound recorder in VB 2. NOTE(READ THIS)- if you want this to save the sound recording direcly into the c drive like in the code you MUST.. MUST.. MUST have UAC disabled or use XP- If you dont want to disable UAC then you must change the file to were it saves to your User file folder and also the Audio Play: So Button 2 would be: Button. Enabled = True Button. Enabled = False Button. Enabled = True mci. Send. String("save recsound c: \Users\Jeff\RECSOUND1. Send. String("close recsound", "", 0, 0) Msg. Box("File Created: C: \recsound. Label. 1. Text = "Stopped.." Label. Visible = False My. Computer. Audio. Stop()And Button 3 would be: Label. Text = "Playing.." Label. Visible = True My.
Hannes DuPreez demonstrates how to use Google maps in your VB desktop application. 今晩は,質問させていただきます.camputerと申します。 どうぞよろしくお願いいたします. 環境:Win7+VB.NET2008+Access2010. Computer. Audio. Play("c: \Users\Jeff\RECSOUND1. Audio. Play. Mode. Background)All the code can be downloaded from: http: //www. Or it is right Here : ) : Public Class Form. Private Declare Function mci. Send. String Lib "winmm. Alias "mci. Send. String. A" (By. Val lpstr. Command As String, By. Wondering how you can stop a process/block a program? Here's a short video on how to make that happen using Visual Basic VB 2008/2010 Express Edition. Val lpstr. Return. String As String, By. Val u. Return. Length As Integer, By. Val hwnd. Callback As Integer) As Integer Private Sub Button. Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button. Click Button. 1. Enabled = False Button. Enabled = True mci. Send. String("open new Type waveaudio Alias recsound", "", 0, 0) mci. There is no way to declare global variables as you're probably imagining them in VB.NET. What you can do (as some of the other answers have suggested) is declare. Send. String("record recsound", "", 0, 0) Label. Text = "Recording.." Label. Visible = True End Sub Private Sub Button. Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button. Click Button. 1. Enabled = True Button. Enabled = False Button. Enabled = True mci. Send. String("save recsound c: \recsound. Send. String("close recsound", "", 0, 0) Msg. Box("File Created: C: \recsound. Label. 1. Text = "Stopped.." Label. Visible = False My. Computer. Audio. Stop() End Sub Private Sub Button. Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button. Click Label. 1. Text = "Playing.." Label. Visible = True My. Computer. Audio. Play("c: \recsound. Audio. Play. Mode. Background) End Sub. End Class. Please Rate Comment and Subscribe : )Thanks For Watching : ).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2019
Categories |