《VB初学者》为程序添加背景音乐的方法

《VB初学者》为程序添加背景音乐的方法（windowsmediaplayer控件）部件控件设计器可插犬对象■■■fe.UiCheck1.1）察型库—BUiM：=iTL：=Lger1.0TypeLibraryVB6ApplicationWizardO-BSVB6DataFormWizard.■■■fe.O-BSVB6MSChartWizardVisModelBrowserWebActivaterActiveXControlmodillew涕vw1.0TypeLibrary5WirLilciwsMediaFlayerXButtorisActiveXControlmodille谶®…F只显示选定项匿）JXT^eCtrls1.0TypeLibraryJXuriLeiBHO1.0TypeLibraryn回IN~ActiveSetupCoritKulLibrary谶®…F只显示选定项匿）定位：C:VWHIIlOWS\syetem32\asc+rls.ocx确定|取消||方法一：运用windowsmediaplayer控件添加程序背景音乐具体步骤如下1＞为VB添加windowsmediaplayer部件ctrl+T激活添加部件对话框（如右图），勾选如图所示的windowsmediaplayer选项，单击应用、确定3工具栏里面出现按钮，双击添加控件2＞更改windowsmediaplayer控件的属性在窗体（下图）上出现windowsmediaplayer控件选中它，更改它的属性其中的visible属性设置为false（如下图），这样的话，程序在运行的时候,windowsmediaplayer控件是不可见的，其所播放的音乐就可以作为程序的背景音乐了iToolTipText1■top1680uiModefullUKLt>/flashsite/mp3/08.mp3|l|visibleF：=lLesWhatsThisHelpID0|width16953＞关于windowsmediaplayer如何播放音乐文件的问题第一种：如上图所示，解决办法有两种:第一种：如上图所示，，在百度音乐里搜索到自己希望的背景音乐，复制链接地址粘贴到这里（缺点是程序运行的时候，电脑没有联网或者网络资源不可用时就听不到背景音乐，网速查的时候，音乐会卡；优点是可以缩小程序文件体积）

第二种：把背景音乐整合到工程资源中（缺点是过程麻烦，程序文件体积大；优点是电脑程序启动后，电脑不需联网就可以听到背景音乐，缓冲过程几乎不存在，不受网速影响）方法如下：如下图所示，菜单栏选择外接程序——外界程序管理器——选中VB6资源编辑器，在右下角加载行为中勾选如右图两项后点击确定，在工具栏里会增加在“VB资源编辑器”里单击“添加自定义资源”按钮打开对话框：“打开一个自定义资源”，选择你需要的音频文件即可这样之后，调用资源需要用到LoadResDeta语句代码参考PrivateSubForm_Load()DimTempData()AsByteTempDataPath="f:\1.mp3"'引号里你可以自定义盘符和路径作为资源加载的临时存储地址(临时文件)TempData=LoadResData(101,"CUSTOM")'这是那个文件编号，具体可以自己在整合资源的时候更改，默认是101OpenTempDataPathForBinaryAccessWriteAs#1Put#1,,TempDataClose#1WindowsMediaPlayer1.URL=TempDataPathEndSub运用如下语句可以在程序运行完后删除刚刚提到的临时文件PrivateSubForm_Unload(CancelAsInteger)Kill"f:\1.mp3"'刚刚你自己定义的路径(必须相同，否则程序报错)EndSub方法二运用API函数中的mciSendString函数完成多媒体播放XP下的关机代码'把下边的代码放在一个模块中，调用ShutDownPC函数OptionExplicit'ExitWindowsEx的参数uflags，有四个对应值，分别是：PublicConstEWX_LOGOFF=0'退出(注销)PublicConstEWX_SHUTDOWN=1'关机PublicConstEWX_REBOOT=2重启动PublicConstEWX_FORCE=4'强制关机，即不通知现在活动应用程序让其先自我关闭如执行多个操作，可以用OR连接PublicConstTOKEN_ADJUST_PRIVILEGES=&H20PublicConstTOKEN_QUERY=&H8PublicConstSE_PRIVILEGE_ENABLED=&H2PublicConstANYSIZE_ARRAY=1TypeLUIDlowpartAsLonghighpartAsLongEndTypeTypeLUID_AND_ATTRIBUTESpLuidAsLUIDAttributesAsLongEndTypeTypeTOKEN_PRIVILEGESPrivilegeCountAsLongPrivileges(ANYSIZE_ARRAY)AsLUID_AND_ATTRIBUTESEndTypeDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLongDeclareFunctionGetCurrentProcessLib"kernel32"()AsLongDeclareFunctionLookupPrivilegeValueLib"advapi32.dll"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLongDeclareFunctionAdjustTokenPrivilegesLib"advapi32.dll"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLongDeclareFunctionOpenProcessTokenLib"advapi32.dll"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLong'这个函数就是用于NT关机中使用的SubAdjustTokenPrivilegesForNT()DimhdlProcessHandleAsLongDimhdlTokenHandleAsLongDimtmpLuidAsLUIDDimtkpAsTOKEN_PRIVILEGESDimtkpNewButIgnoredAsTOKEN_PRIVILEGESDimlBufferNeededAsLonghdlProcessHandle=GetCurrentProcess()OpenProcessTokenhdlProcessHandle,(TOKEN_ADJUST_PRIVILEGESOr_TOKEN_QUERY),hdlTokenHandleLookupPrivilegeValue"","SeShutdownPrivilege",tmpLuidWithtkp.PrivilegeCount=1.Privileges(0).pLuid=tmpLuid.Privileges(0).Attributes=SE_PRIVILEGE_ENABLEDEndWithAdjustTokenPrivilegeshdlTokenHandle,False,tkp,_Len(tkpNewButIgnored),tkpNewButIgnored,_lBufferNeededEndSubPublicSubShutDownPC(ByValsCodeAsLong,OptionalByValIsNtAsBoolean=True)IfIsNt=TrueThenCallAdjustTokenPrivilegesForNT如果是NT以上系统就要先调用这个ExitWindowsExsCode,0注销EndSub在VB程序中实现关闭计算机的功能？我给你贴出来：VB6.0开发应用程序时，用户要求在程序内部加入直接关机功能，使操作全部集中于应用程序的内部进行。为此，笔者编制程序，进行WindowsAPI函数调用，成功地实现了Windows9x"关闭系统”仿真功能，满足了用户要求，现将设计过程列举如下：一、设计关机系统界面新建工程文件及窗体Form1，Form1中加入选项控件Option1、Option2、Option3，将它们Caption属性依次设为“关闭计算机(S)”、“重新启动计算机(R)”、“关闭所有程序并以其他用户身份登录”；再加入命令按钮Command1和Command2、Command3且Caption属性分别设为“是”、“否”、“帮助”。即设计一个Windows98“关闭系统”的仿真界面。二、通用事件代码中对API函数ExitWindowsEx()进行声明VB6.0应用程序设计时，调用丰富WindowsAPI函数能完成VB本身没有提供或无法实现的功能，这些函数都属于“操作系统”级别，能使应用程序增添不少色彩。其中ExitWindowsEx()函数具备关闭Windows系统的功能，调用前必须进行声明:DeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong参数说明：此函数有两个参数vFlags、dwReserved，其中vFlags参数决定用户需要做的关机操作，dwReserved参数是作为保留而没有使用。vFlags参数可以取以下几种常量（或相应值）：EWX_ShutDown1关闭计算机EWX_ReBoot2重新启动计算机EWX_LogOff0关闭所有程序并以其他用户身份登录三、关机功能所有程序代码清单如下：'通用代码中对ExitWinwodsEx()函数声明PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLongConstShutDown=1ConstReBoot=2ConstLogOff=0DimShAsLongIfOption1.Value=TrueThen'关闭计算机选项Sh=ExitWindowsEx(ShutDown,dwReserved)EndIfIfOption2.Value=TrueThen'重新启动计算机选项Sh=ExitWindowsEx(ReBoot,dwReserved)EndIfIfOption3.Value=TrueThen关闭所有程序并以其他用户身份登录选项Sh=ExitWindowsEx(LogOff,dwReserved)EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubF5运行程序，即进行关机操作!该功能加入用户开发的应用程序，相当实用。如何用vb实现点击按钮执行下载动作PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong'API声明PrivateSubCommand1_Click()'下载按钮DimDownIt()AsByteDimSoftUrlasString'存放下载网址DimtPahtasString'下载之后存放在本地的位置及文件名softurl="/xbk3.rar"'举例修改后面的网址即可tpath="C:\xbk3.rar"'举例修改""之间的本地地址即可DownIt()=Inet1.OpenURL(SoftUrl,icByteArray)OpentPat