Visual Basic编程问答集(四)

□如何通过程序关闭正在运行中的其它软件? 可以通过调用Windows API函数FindWindow和PostMessage的办法,找出相应的软件句柄,并通知Windows 95关闭该软件。以下是一个关闭Windows 95附件中的小软件“计算器”的例子。 具体步骤如下: 1.在VB中新建一个标准EXE工程; 2.画出一个按钮Commandl; 3.在窗体Forml中定义Windows API的声明; Const WM_CLOSE=&H10 Private Declare Function FindWindow Lib"user32"Alias"FindWindowA"(ByVal lpClassName As String,ByVal lpWindowName As String)As Long Private Declare Function PostMessage Lib"user32"Alias"PostMessageA"(ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,IParam As Any)As Long 4.在Commandl的Click事件中编写以下代码:     

Visual Basic编程问答集(五)

如何用程序改变Windows95的墙纸? 在我们的程序设计中,如果想要改变Windows的墙纸,那么可以用Windows的API函数SystemParametersInfo来实现。 具体步骤如下: 1.在VB中新建一个标准EXE工程; 2.画出一个按钮Command1; 3.在窗体Form1中定义Windows API的声明; Private Declare Function SystemParametersInfo Lib”user32”Alias”SystemParametersInfoA”（ByVal uAction As Long,ByVal uParam AsLong,lpvParam As Any,ByVal fuWinIni As Long）As Long 4.在Command1的Click事件中编写以下代码: Private Sub Command1_Click() Dim t As Long Dim Wallpaper As String’墙纸的图片文件名 Wallpaper=InputBox（”请输入图片文件的路径和文件名.”）     

VB编程小技巧六则

1.弹出驱动器 ＇Private Declare Function mciSendString Lib “winmm.d11“ Alias“mciSendStringA“ (ByVal IpstrCommand As String,ByVal IpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)     

VB中利用API函数实现字型窗体

<正>1 设计思想 在窗体设计之前,我们必须了解一个重要的概念——区域。区域就是设备上的一块空间,它可以是任意形状的,例如,一个区域可以是矩形、椭圆,也可以是多边形,甚至可以是几个区域合并而成的复杂形状,每个区域都有一个句柄。利用API的SetWindowRgn函数调用这个区域,则窗体就成了这个区域的形状。 利用上述原理,在VB中实现字型窗体有两种方法,一是利用API的绘图函数绘出一个字形区域,再用SetWindowRng函数重绘这个区域,但这种方法很繁琐,不容易实现。二是先用文本绘图函数TextOut创建出文本路径,再将该路径转换为区域,然后通过SetWindowsRng函数重绘这个区域。2 创建字型窗体所用到的API函数 API函数在VB中的声明如下: ①Private Declare Function BeginPath Lib0“gdi32”(ByVal hdcAs Long)A8 Long,用于启动一个路径分支,在该命令后执行的GDI绘图命令会自动成为路径的一部分,参数hdc表示设备描述表的句柄。 ②Private Declare Function EndPath Lib“gdi32”(ByVal hdc AsLong)As Long,用于结束定义一个路径,参数意义同上。 以上两个函数如果调用成功,则从BeginPath函数到EndPath函数之间所发生的所有绘图操作都将在指定设备环境的路径中生效。     

Windows下声音文件的多种调用播放方法

计算机多媒体技术目前已在许多领域得到广泛的应用。多媒体技术的核心是使用计算机综合处理声、文、图等多媒体信息。声音信息是多媒体信息的重要组成部分。当前在Win-dows系统中的主要语音文件格式为WAVE格式,后缀名为.WAV。在Windows环境下调用播放该格式的语音文件一般常采用Windows API函数sndPlaySound,但是,对sndPlaySound的使用有一个很大的限制:它只能用于相对小的波形文件,大约100K左右,此外,sndPlaySound的结构使得它自己不能够被用于编写夏杂的使用声音的应用。因此,本文将介绍几种各具特色的波形文件播放方法,以便灵活适用于不同的多媒体应用开发要求,提高编程效率。所有的实例程序均用Microsoft C/C 7.0编写,稍加修改同样适用于Borland C 。     

Flash控件秘密档案（二）

9.SetZoomRect 语法:SetZoomRect(left As Long,top As Long,rightAs Long,bottom As Long) 说明:将影片中指定的矩形区域放大到控件的大小。left(左)、top(顶)、right(右)、bottom(底)的坐标值是相对于控件中的影片有效位置计算的。注意哟,这个函数是从影片的有效区域的左上角开始计算,而不是控件的左上     

VB3.0应用技巧三则

下面给出VB3.0的三个小技巧。 1.建立最上层窗口 最上层窗口是一种在不激活的情况下总在其他所有窗口之上的窗口。为了实现这一目的要调用函数SetWindowPos规定一个非最上层窗口,并用HWND_TOPMOST作为第二个参数hwndInsertAfter的值,有关的说明及常量: Declare Function SetWindowPos Lib"user"(ByVal h%,ByVal hb％,ByVal x％.ByVal y％.ByVal cx％,ByVal cy％,ByVal f％)As Integer以上语句必须写在一行内 Global Const SWP_NoMOVE=2 Global Const SWP_NOSIZE-1 Global Const FLAGS=SWP NOMOVE Or SWP     

在VC＋＋中播放大型WAV文件

Windows支持两种RIFF(Resource Interchange File Format,即“资源互换文件格式”)的音频文件:MIDI的RMID文件和波形音频格式WAV文件。 在VC 中,一般都用sndPlaySound函数播放WAV文件,因为用这个函数只需要一条语句。比如说要同步地播放一个WAV文件,即一直播放声音文件到播放完为止,     

在VB中用API实现多媒体

在 VB 中用 API 实现多媒体主要是调用 Windows 的 mmsystem.dll 库。以下为调用 API 的声明(这些代码放在程序的声明部分中):1.播放 CD 和 AVI 所需要的声明。Declare Function mciSendString Lib”MMSYSTEM”(ByVallpstrCommand asString,ByVal lpstrReturnStr as Any,ByValwRetumLen as Integer.ByVal hCallBack as     

应用程序调用WAVE和MIDI文件播放声音的方法

多媒体技术大大地改善了计算机应用系统的人机交互方式和视听感觉。利用波形文件WAVE可播放出悦耳的文字解说和各种提示；利用音频文件MID可以演奏各种背景音乐。这在WindoM环境下，利用媒体播放器（mplayer）是很容易实现的。但在应用程序中如何实现？较为直接的方法是利用MCI（媒体控制接口）来实现，既灵活又快速。1WAWE文件的调用在VB(VisualBasicforWindows)中，有一个MCI控件，利用它可以实现各种媒体的控制和播放。方法是首先定义一个窗体，然后将一个MCI控件放入其中，并命名为WAVE，这样就可以写一个通用的过程来播放…     

在VB5中播放MP3文件

MP3自问世以来,因其声音还原好,压缩比率高而深受欢迎。目前,市面上有很多种MP3播放器供用户选择使用。但是,怎样在自己的应用程序中播放MP3文件呢?最近,本人在网上下载了一个播放MP3文件的ActiveX控件——mp3play.OCX,该控件可在VB5.0、Delphi3.0及VC5.0中使用。下面将使用该控件在VB5.0中播放MP3文件的方法介绍给大家。 先启动VB5.0,添加一个新窗体到工程中。单击“工程”*“部件”菜单,将下载的mp3play.OCX控件添加到VB中。此时,在工具箱中将可以看到新增加了一个蓝色小喇叭图标,这就是mp3play.Ocx控件。     

实现实时混声

利用Visual C++的多媒体播放函数mciSendCommand()、mciSendString()或sndPlaySound()能够很容易地播放各种WAVE格式的声音文件。这些函数帮助我们减少了很多工作,用起来很方便。但是,由于这些函数以设备独占的方式工作,只要当前WAVE文件没有全部播放完毕,就不能播放另一个WAVE文件,并且播放过程不受用户的干预。而实际应用中常常要求实时播放各种声音,即当前声音还没有播放完毕,却需要播放另外一些声     

网站语音播报程序的设计与实现

本文详细介绍了两种实现网站语音播报程序的设计与实现方法.内嵌Real Player(RealOne Player)控件的方法通过自动播放ASP程序生成的一个播放语音列表文件来实现播音;内嵌Flash对象则通过其库文件的Linkage Property属性建立音频库文件与动画脚本的链接,在动画中通过脚本调用库文件中相应的声音文件实现播音.     

《最简单的MP3播放器》补丁2.0

读了湖北刘克文同志的《最简单的MP3播放器》一文,我不由得想提几点意见。 第一,mciSendString函数在VB中已经被封装到Microsoft Multimedia Control控件中了。那个控件操作简便,编程容易,总而言之,还是很好用。避开现有控件而采用API,似乎有些避简就繁。 第二,使用mciSendString函数或MCI控件播放MP3,是需要Office 2000支持的,确切地说,是需要mdm.exe文件的支持。在没有安装mdm的机器上,那     

Visual FoxPro中的多媒体编程

对VisualFoxPro多媒体编程中MultimediaMCI控件和若干API函数的使用方法进行了讨论,给出了应用示例。MultimediaMCI控件为多媒体文件的播放提供了一个标准界面。API函数中的PlaySound/sndPlaysound函数可用于小型wav文件播放。mciExecute函数、mciSengString函数可以播放多种格式音频和avi视频文件,功能更强大,可以提供程序员更多的发挥空间。     

基于VB文件控件的递归算法及其应用

为了在Windows98/95中一次性设置某文件夹下的所有文件的属性(如只读、存档、系统和隐藏属性等),文中通过VB中的文件控件(DriveLisrtBox,DirListBox和FileListBox)的协同工作,并利用递归算法来达到遍历该目录下所有文件的目的.在遍历文件的过程中,通过相应的Windows API函数将所有文件设置成所需要的属性.在VB上编程实现了该算法,程序结果显示本算法的可行性且具有极高的灵活性.     

PC复读机

VB.NET2008大量控件完成多媒体程序的开发,本文考虑控件AxMediaPlayer支持WAV、MP3、WMA、MIDI、M3U、MPG等多种格式媒体文件的播放。利用开发一个具有复读机功能的实用软件,基本功能分为语音复读、听写记录。     

Delphi编程经验集

一、实现类似于VB中的doevents功能 大家或许发现,在Delphi中没有类似于VB中的doevents函数,这样有的时候,我们将无法使Windows响应多个同时发生的事件。其实,在Delphi的application对象中包括类似的一个方法:ProcessMessage,你可以通过调用Application.ProcessMessage来完成像VB中的doevents一样的功能。 二、在Delphi中实现类似VB中的控件数组 你可以通过设置一组相应控件的TAG属性来     

VB6.0编程经验谈

1.视频、音频文件的播放在程序中适当增加一些声音和动画效果(通过音频和视频文件的播放实现),会使程序从听觉和视觉上给用户以强烈的感染力.以下是在程序中实现视频和音频播放的常用方法,现介绍给大家.音频、视频文件有多种,如:.WAV、.AVI、.FLI、.MPG等,其中尤以.WAV(WaveAudio Video)和.AVI文件(Audio Video Interlaced)应用较为普遍.Visual Basic(以下简称VB)6.0中的MCI32.OCX是通用的媒体控制器接口,可控制多种多媒体设备.以下是利用MCI32.OCX控件播放.WAV和.AVI文件的方法.首先建立一个窗体,在窗体中分别加入一个MMC控件MMControl1和一个命令按钮Command1;然后将Com-mand1控件的Caption设为“播放”;最后输入以下代码,以播放d盘avi文件夹下bk.avi文件.     

Visual FoxPro中的多媒体编程

对Visual FoxPro多媒体编程中Multimedia MCI控件和若干API函数的使用方法进行了讨论，给出了应用示例。Multimedia MCI控件为多媒体文件的播放提供了一个标准界面。API函数中的P1aySound／sndPlaysound函数可用于小型wav文件播放。mciExecute函数、mciSengString函数可以播放多种格式音频和avi视频文件，功能更强大，可以提供程序员更多的发挥空间。