十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
My.Computer.Audio.Play("SoundFile.wav")
创新互联专注于嵩明企业网站建设,成都响应式网站建设公司,成都商城网站开发。嵩明网站建设公司,为嵩明等地区提供建站服务。全流程定制网站建设,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务
SoundFile.wav是你要播放的声音文件的路径
工具箱里没有就在"工具选项"----"COM组件"-------"添加Mediaplaye"但大多数组件都是C盘系统文件,您应该确保电脑里有这个文件的DLL格式文件,不知对不对哦,请您参考!
ctListBar 这里提供一个非常好的ListBar控件及演示
axtree 与treeview控件相比,axtree控件增添了更多的控制
exproplist VB中的属性窗口漂亮吗?再在,你也能轻松拥有
ESComboBox 功能超过大家熟知的ComboBox
SbList 能在列表项中使用颜色、字体、位图等
CheckList CheckBox和ListBox合二为一,很不错的控件
ArtButton 制作图形按扭的控件
CButtonR 一个按扭控件,简单易用,几分钟就能学会用法
CSplitBarCtrl 自由在窗口中建立分隔栏
GBarOcx 进度条,我还没搞清楚它的用法
CCRPPRG 功能强大的进度条控件
Chklsb25 检查框,列表框控件,可设置多种外观
ACD 播放CD的控件,并能实现CD转AVI
BeMidi 播放MIDI音乐的控件
Ccrpani 播放AVI文件的控件
dynacd 播放CD的控件
DyanRecord 录音控件
MidiaMp3 几乎可以播放任何声音格式文件的控件
mp3enc MP3播放控件
record32 录音控件
JoyOcx 这是个操纵游戏杆的控件,你对写游戏软件有兴趣吗
DigradMp3Tag 能主你得到mp3文件的附属信息
CdBaseOcx 一个能访问CD数据库的控件
Mp3ocx MP3播放控件
Mp3Play MP3播放控件
ActiveBar 制作非常漂亮的工具栏,功能强大,附演示程序!
ActiveBar20 制作非常漂亮的工具栏,功能强大
平面工具栏 自动制作平面工具栏,“即插即用”
HTMLLabel 点击就可进入超链接的Label
多媒体标签MultiLabel 形似标签,但点击就可打开相应文件、超链接、电子邮件等。简单易用,附演示程序
Cdrom 一个简单易用的控件,用软件方法打开/关门光驱
Ariad 制作工具条的控件,还有源代码呢
IEtxt 在控件中显示网址说明
Vertical Menu 类似Out Look那样的垂直菜单
RandomShape 创建不规则窗体
日历控件 能转换阴阳历的控件
FTP 不用解释,一看名称您就知道它是干什么用的
BubbleWin MS Office 97助手那样的窗口
GBtoBig5 GB与Big5转换
KeyPress 定义热键的控件
A simple Sound Recorder~
1. Add Three buttons (button1, button2, button3) and a label (label1) to the form.
2. Set the Text of Button1 to Start, Button2 to Stop, and Button3 to Play.
3. Add this code:
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Button2.Enabled = True
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
Label1.Text = "Recording..."
Label1.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button1.Enabled = True
Button2.Enabled = False
Button3.Enabled = True
mciSendString("save recsound c:\recsound.wav", "", 0, 0)
mciSendString("close recsound", "", 0, 0)
MsgBox("File Created: C:\recsound.wav")
Label1.Text = "Stopped..."
Label1.Visible = False
My.Computer.Audio.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "Playing..."
Label1.Visible = True
My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)
End Sub
End Class