1.在vb中播放声音
吧，方法很多比如mci API，媒体播放器控件，MCI控件，directsound组件，都可以
比较简单的是媒体播放器控件和mci控件
提问人的追问  2009-12-11 16:10
你能不能给出代码！具体问题是点击一下窗体发出声音，里面用的soundfile！谢谢回答人的补充  2009-12-11 16:29 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Const SND_MEMORY = &H4
声明这个api
然后在点击事件中调用sndPlaySound "路径",SND_ASYNC
python和vb的代码可以通用吗2.电脑没声音解决办法大全
一、查看任务栏音量图标，是否点击成静音了，音量是否调到最小了。 二、检查发音设备，耳机、音箱，各个接线连接是否正常，插口是否插对。耳机音箱上是否正常工作。是否接通电源！ 三、查看耳机音箱上的音量调解开关 是否调到了最小，或者静音。 四、检查windows自带的播放软件 RealPlayer 和 Windows media Player 的音量，，是否都调解成最小，或者静音！ 五、检查BIOS声音设置选项。是否设置了声卡禁用！ 详情参考 www.tsyy.sina/bios/bios.htm BIOS设置图解教程 六、检查声卡驱动是否损坏！ 如果声卡驱动还在，但还是没有声音，就只有从新装声卡驱动了！ 如果有买电脑的原代的声卡驱动盘，则直接斜载掉，然后重装。 将声卡的驱动光盘放入光驱，右击“声音、视频和
游戏控制器”下的？号选项，选“更新驱动程序”，打开“硬件更新向导”，选“是，仅这一次”---“下一步”---“自动安装软件”--“下一步”，系统即自动搜索并安装光盘中的声卡驱动程序，如果该光盘没有适合你用的声卡驱动，再换一张试试，直到完成。 如果没有原带的盘，则参考以下： 展开的“声音、视频和游戏控制器”下的声卡项，查看下声卡的具体的型号，然后把型号在网上搜索一下，下载个驱动，一般去驱动之家drivers/ 。如果没有则可以用万能声卡驱动！ 下载保存后，右击“我的电脑”----“属性”---“硬件”----“设备管理器”，打开“声音、视频和游戏控制器”，右击“声音、视频和游戏控制器”下的？号声卡选项，选“更新驱动程序”，打开“硬件更新向导”，去掉“搜索可移动媒体”前的勾，勾选“从列表或指定位置安装”---“下一步”，勾选“在搜索中包括这个位置”，在下拉开列表框中填写要使用的声卡驱动文件夹的路径……---“下一步”，系统即自动搜索并安装你指定位置中的声卡驱动程序。
3添加背景音乐
添加了Mediaplayer控件了，代码是这个
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.Controls.pause
End Sub
我不知道为什么运行之后没有声音，只有定位，静音和音量调节按钮可以按，但是也是什么反应也没有，希望高手指点！
（不是非得把音乐放到VB那个文件夹里吧？我放了效果是一样的）
好评率：33%
WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.pause'暂停
你这样连续让它播放\停止\暂停,它最后就是停止了,当然没有声音啦
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
就可以了
答案补充
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
End Sub
'这样就能自动播放了
4如何在VB中插入flv视频？
答：在VB中插入flv视频，可以按照以下方法来插入视频。
在工具栏右键 部件----shockwave flash 没有的话就去网上下个adobe flash 就可以了
例子: 假设你假如的控件叫:
Shockwaveflash1
代码可以是:
Shockwaveflash1.Movie = App.path+"/1.swf"
Shockwaveflash1.play
==================================
++++++++++++++++++++++++
++++++++++属性++++++++++
++++++++++++++++++++++++
语法:AlignMode As Long
说明:对齐方式(与SAlign属性联动).当控件的长宽比例与影片不一致且WMode不为ExactFit时，影片在控件中显示的位置可用该属性调整.
属性值与相应的对齐方式:
1:左对齐
2:右对齐
4:顶对齐
8:底对齐
注意:也可以组合各种对齐方式,就是将这四个基本值组合相加.比如同时左对齐和顶对齐,属
性值则设为5.
语法:BackgroundColor As Long
说明:影片的背景.默认的影片背景为-1.如果影片设置了底或有图片当作背景,那么看不出来该属性值的改变会有什么影响 。
注意:颜值使用RGB格式的颜值
语法:Base As String
说明:指定用于解决影片中所有相对路径的声明的基地址.当影片与其需要的其他文件不在同一目录中的时候该属性特别有用.如不特别指定,Base的值默认为".",也就是当前影片所在的路径.
语法:BGColor As String
说明:影片的背景.与BackgroundColor不同的是,BGColor是一个六位的十六进制数,每两位分别代表红绿蓝颜值.如:FFEEAA表示R值为FF,G值为EE,B值为AA.
语法:DeviceFont As Boolean
说明:决定是否使用影片内嵌的字体,默认值为False.将该属性值设为True则强制播放器不使用影片中内嵌的字体而使用本地系统字体.
语法:EmbedMovie As Boolean
说明:影片是否被存贮到控件所在的容器中.当你已载入一个影片后将该属性设为True,播放影片时就不必再去读取SWF文件了.这样可以使SWF文件镶进程序中,不必再读取文件.但将该属性设为True后,控件的Movie属性就不再接受新的值了.要想播放另一个影片(给Movie属性赋新值),必须先将该属性(EmbedMovie)设为False.
语法:FrameNum As Long
说明:影片当前帧的编号(从0开始计数).设置该属性值将使影片停在由FrameNum指定的帧处.
注意:不仅可以从中获得当前帧,还可以设置当前帧,即跳转到某帧
语法:Loop As Boolean
说明:控制影片是否循环播放.设为True就是循环播放,设为False则只播放一次.
语法:Menu As Boolean
说明:是否显示菜单.设为True显示所有菜单,设为False菜单被屏蔽,但仍有一项"About Macromedia ",点击后会打开Macromedia的网站.如果你实在不喜欢这个菜单,应该在程序中通过拦截鼠标消息的方法来达到目的.
语法:Movie As String
说明:要播放的影片路径(URL).设置该属性为一个SWF文件的URL,当该属性被设置后,控件将自动载入文件并播放它.
语法:Playing As Boolean
说明:当前播放状态.如果影片正在播放,该属性值为True,否则为False.
语法:Quality As Long
说明:画面质量.
Quality的属性可以取:
0:相当于Quality2取"Low"
1:相当于Quality2取"High"
2:相当于Quality2取"AutoLow"
3:相当于Quality2取"AutoHigh"
语法:Quality2 As String
说明:画面质量
Quality的属性可以取:
Low:偏重于播放速度而不管显示效果,而且不启用消除锯齿功能.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。