符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
1.用Win32 API PlaySound
创新互联公司秉承实现全网价值营销的理念,以专业定制企业官网,网站设计、成都网站设计,小程序制作,网页设计制作,成都做手机网站,营销型网站帮助传统企业实现“互联网+”转型升级专业定制企业官网,公司注重人才、技术和管理,汇聚了一批优秀的互联网技术人才,对客户都以感恩的心态奉献自己的专业和所长。
PlaySound位于"winmm.dll"中,可以根据输入参数的不同,播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多:
先声明:
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具体还有很多常量,不一一列举,下面是播放一个wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的,就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中,第二次点击的时候它会打断第一次的播放,重新开始。
当然我们也可以调用系统的声音:
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式调用系统启动时候的声音。
2. 调用媒体播放器控件
VB.NET中并没有提供媒体播放器的.NET组件,没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外,还可以播放视频文件。
首先把媒体播放器控件加到工具栏中,调用还是简单的写一下吧:)
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\爱不爱我.mp3"
.Play()
End With
End Sub
95%的电脑目前的声卡是版载的, 所以首先确定自己已经装了原盘中的声卡驱动.然后最简单的方法就是播放一个音频文件, 有声音自然就是驱动已经装.再来就是在"我的电脑"上右键 - 硬件 - 硬件管理器 - 看看声音一栏下有没有黄色问号, 没有的话证明一切正常
参数1描述要播放的声音文件的位置和文件名;参数2的取值能决定播放声音的模式。参数2的主要取值介绍如下:
取&H0时:为同步播放模式;
取&H1时:为异步播放模式;
取&H2时:当声音文件未找到就停止播音返回;
取&H8时:为循环播放模式。
当调用函数成功,就播放有关声音文件,并且函数的返回值为非0;函数调用失败,函数的返回值为0。
定义调用声音文件函数的具体步骤如下:
①在C盘根目录上建立一个名为Sound的文件夹,在此文件夹中放入5个你所需要的声音文件;
②在VB5.0状态进入“工程”菜单中的“添加模块”再选用“新建”中的“模块”;
③在模块的“通用”中输入下面代码,进行调用API函数的声明;
Declare Function sndPlaySound Lib "winmm.dll" Alias
“sndPlaySoundA" (ByV al lpszSoundName As String, ByVal uFlags As Long) As Long
Dim fil As String
④在模块中输入以下代码,定义调用声音文件函数。
Public Function sound(n As Integer) As Integer
Dim x As Integer
Select Case n
Case 1
fil = "c:\sound\beep3.wav"
x = sndPlaySound(0, 0)
x = sndPlaySound(fil, &H1 Or &H2)
sound = x
Case 2
fil = "c:\sound\hit8.wav"
x = sndPlaySound(0, 0)
x = sndPlaySound(fil, &H1 Or &H2)
sound = x
Case 3
fil = "c:\sound\net7.wav"
x = sndPlaySound(0, 0)
x = sndPlaySound(fil, &H1 Or &H2)
sound = x
Case 4
fil = "c:\sound\out12.wav"
x = sndPlaySound(0, 0)
x = sndPlaySound(fil, &H1 Or &H2)
sound = x
Case 5
fil = "c:\sound\spin5.wav"
x = sndPlaySound(0, 0)
x = sndPlaySound(fil, &H1 Or &H2)
sound = x
Case Else
sound = 0
End Select
End Function
新定义的调用声音函数格式为:sound(n),其中n的取值为1至5的正整数。利用此函数可调用5个不同的声音文件。下面是使用sound函数的演示程序:
①如图在form窗口设置6个命令控件;
②在这些命令控件的Click事件中入分别输入以下代码。
Private Sub Command1_Click()
l = sound(1)
End Sub
Private Sub Command2_Click()
l = sound(2)
End Sub
Private Sub Command3_Click()
l = sound(3)
End Sub
Private Sub Command4_Click()
l = sound(4)
End Sub
Private Sub Command5_Click()
l = sound(5)
End Sub
Private Sub Command6_Click()
End
End Sub
运行程序后,单击有关按钮就能调用所指定的声音文件,发出各种声音