贴吧用户_00MCRXX🐾的个人资料 - RAT

贴吧用户_00MCRXX🐾 -

关注数: 0 粉丝数: 70 发帖数: 1,924 关注贴吧数: 15

调用声音文件的VB函数调用声音文件的VB函数赵　旭　　多媒体软件中，声音是重要组成部分。而VB中却没有直接调用声音文件的语句。于是笔者在VB5.0中定义了一个调用声音文件函数。调用此函数时只需带上不同的参数，就能执行不同的声音文件并发出各种声音。利用此函数在编制多媒体软件时可以带来很大方便。　　定义调用声音文件函数时用到了Windows播放声音的API函数。现先将此API函数作简单介绍：　　sndPlaySound(参数1,参数2)其中：参数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　　运行程序后，单击有关按钮就能调用所指定的声音文件，发出各种声音。　

{透明}文本框找到了! 这是个绝对的透明文本框,可以像网页一样加上背影图片!源码多一些,想要的留下邮箱好吗?效果图如下:

你想的n多控件在这里有需要的留下邮箱!

让你的XP提前走进VISTA的立体隧道！让你的XP提前走进VISTA的立体隧道！可以让你的窗体立体化，像玩游戏一样操控右键可以在三维内旋转方向!而且可以设置半透明效果......

沐蓝苛推荐的歌曲！斯卡布罗集市试听：http://file.maxduo.com/0583/0645/sdjkhfri/8f41440c-65bd-42c0-95a9-9844a8f6cf06.MP3您去过斯卡布罗集市吗?芜荽,鼠尾草,迷迭香和百里香代我向那儿的一位姑娘问好她曾经是我的爱人.叫她替我做件麻布衣衫(绿林深处山刚旁)芜荽,鼠尾草,迷迭香和百里香(在白雪封顶的褐色山上追逐雀儿)上面不用缝口,也不用针线(大山是山之子的地毯和床单)她就会是我真正的爱人.(熟睡中不觉号角声声呼唤)叫她替我找一块地(从小山旁几片小草叶上)芜荽,鼠尾草,迷迭香和百里香(滴下的银色泪珠冲刷着坟茔)就在咸水和大海之间(士兵擦拭着他的枪)她就会是我真正的爱人.叫她用一把皮镰收割(战火轰隆,猩红的枪弹在狂呼)芜荽,鼠尾草,迷迭香和百里香(将军们命令麾下的士兵杀戮)将收割的石楠扎成一束(为一个早已遗忘的理由而战)她就会是我真正的爱人.

music.3.斯卡布罗集市 music.3.斯卡布罗集市

如何为菜单选项加上图标如何为菜单选项加上图标

Word操作示例 Word操作示例Option Explicit'在窗体上放四个按钮，和一个文本框Dim wordApp As Word.ApplicationDim wordDoc As Word.DocumentPrivate Sub Command1_Click() '新建Word文档 If wordApp Is Nothing Then Set wordApp = New Word.Application wordApp.Visible = True wordApp.Activate Set wordDoc = wordApp.Documents.Add(, , , True) wordDoc.ActivateEnd SubPrivate Sub Command2_Click() '向文档中写字符串 If wordDoc Is Nothing Then Exit Sub wordDoc.Range.InsertAfter Text1.TextEnd SubPrivate Sub Command3_Click() '保存文档 Call SaveDocEnd SubPrivate Sub Command4_Click() '关闭 If Not wordDoc Is Nothing Then If Not SaveDoc() Then Exit Sub wordDoc.Close Set wordDoc = Nothing End If If wordApp Is Nothing Then Exit Sub wordApp.Quit False Set wordApp = NothingEnd Sub'保存文档Private Function SaveDoc() As Boolean SaveDoc = True If wordDoc Is Nothing Then Exit Function On Error GoTo TrackErr wordDoc.Save Exit FunctionTrackErr: Select Case Err.Number Case 4198 '取消保存 Case Else MsgBox "保存错误：" & Err.Description, vbCritical, "保存Word" End Select Err.Clear SaveDoc = FalseEnd Function来源：紫腊梅

刘叔叔，鲸无敌，我爱舞女泪，最后一杯涩咖啡，后代..... 帮我看看这个！http://post.baidu.com/f?kz=153752423

关于VB程序中如何接收系统信息的问题熟悉WINDOWS系统内核运行机制的朋友，都应该知道，每个文件的双击打开总会路经这样一个过程：首先，双击文件，系统就会接收一条信息，该信息包含此文件的后缀名及其路径等数据，系统首先会确认鼠标的动作是双击，表明要打开此文件，然后调取它的后缀名向注册表中的HKEY_CLASSES_ROOT\.后缀名\shell\command这个键项进行搜索（此项的值即该后缀名类文件的打开程序），最后系统调取文件的路径发送给这个程序，该程序接收数据并将其附于自身特定的变量，接着调用自身指定函数打开这个文件，从而完成整个打开过程！问题：如何在VB中编写代码，让自己的程序拥有可以接收系统信息的能力！

VB中很少有人光顾的问题 Active exe 文档的创建与使用，谁可以给我一些教程。最好多是关于.vbp文档如何更好在IE中运行的东西，好吗？

里面这个小东西如何写呢？图中的那个展开样式如何用源码来写成呢？请有意人帮小女解决，谢谢！

.res文件外接程序 .res文件外接程序，给我发一个过来，好吗？我的东西丢了！呵呵！

谁有托盘代码？

帮我一下！如何编写代码将一字符串放入剪切板！

关于VB制作.res文件的外接程序关于VB制作.res文件的外接程序　谁有的话，发给我好吗？我有急用！谢谢！

谁会做这个！呵呵！我想用VB做一个网易邮箱登陆程序！外形像QQ！谁可以帮一下我呀？谢谢！请把源码发到我邮箱好吗？

cbm666 给我一份这个程序的源码，好吗？

这个问题有点难？请问大家，可以生成结构体文件的程序如何来编写！就像word一样可以导出能够存储文字、图像、甚至视频的＊.doc文档一样的软件，而且可以进行修改和保存！希望有志者多思考！帮帮女孩！谢了！

cbm666老师请问如何向VB程序中加MP3文件

首页 1 2 3 下一页