vb.net中如何播放声音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

创新互联专注于嵩明企业网站建设,成都响应式网站建设公司,成都商城网站开发。嵩明网站建设公司,为嵩明等地区提供建站服务。全流程定制网站建设，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

SoundFile.wav是你要播放的声音文件的路径

VB.Net中怎样添加MediaPlayer控件，在com列表中没有这个控件，请问怎么办？我的VB是安装在D盘下的

工具箱里没有就在"工具选项"----"COM组件"-------"添加Mediaplaye"但大多数组件都是C盘系统文件,您应该确保电脑里有这个文件的DLL格式文件,不知对不对哦,请您参考!

请详细介绍一下VB的各种控件

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 定义热键的控件

vb.net 录音&保存

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