VB实用编程两例外

添加时间: 2006-2-13 9:34:34 作者: VB教程阅读次数:76 来源: http://www.d9soft.com

　　该程序通过VB的多媒体控件MCI32.OCX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)来实现一个VCD播放器的设计

　　首先必须确保在你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows 95和Windows 98中均有此项)。

　　次在VB中建立一个新窗口,加入多媒体部件Microsoft Multimedia Control 5.0( 位于C:\Windows\System\MCI32.OCX),以及对话框部件Microsoft Common Dialog Control 5.0( 位于C:\Windows\System\COMMOND LG32.OCX),将MCI控件拖放至窗体Form上,调整其大小,并将窗体的大小也调整为与其同样大小;将其九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中的Record按钮的Visible属性设为False,其余按钮中的Visible属性和Enabled属性设为True,以上按钮的设置可通过MMControl的属性栏内"自定义"项来设置。对话框控件的DefaultExt属性设为.DAT,DialogTitle属性设为"打开多媒体文件",Filter属性设为"*.DAT,*.WAV",InitDir属性设为"G:\MPEGAV"(假设光驱盘符为G)。

　　源代码如下:

　　Option Explicit

　　Private Sub Form_Load()

　　Dim Response As Integer

　　MMControl1.DeviceType = "MPEGVideo"

　　CommonDialog1.ShowOpen '通过对话框选择不同的VCD文件

　　MMControl1.filename = CommonDialog1.filename '选定要播放的文件

　　MMControl1.Command = "Open"

　　MMControl1.Command = "Play"

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　MMControl1.Command = "close"

　　End Sub

　　Private Sub MMControl1_BackClick(Cancel As Integer) '对Back按钮的功能改进

　　Dim i As Integer

　　i = MMControl1.Position - 100 '数值100为后退量,可适当调整

　　If i < 0 Then MMControl1.From = 0

　　Else MMControl1.From = i

　　End If

　　MMControl1.Command = "Play"

　　End Sub

　　Private Sub MMControl1_StepClick(Cancel As Integer) '对Step按钮的功能改进

　　Dim j As Integer

　　j = MMControl1.Position + 100 '数值100为前进量,可适当调整

　　If j > MMControl1.Length Then MMControl1.From = MMControl1.Length

　　Else MMControl1.From = j

　　End If

　　MMControl1.Command = "Play"

　　End Sub

　　MCI控件还有很多属性,如画面播放位置hWndDisplay属性等等,大家可参阅相关资料自行摸索。

　　调整好窗体的标题、图标、颜色等,然后编译成.EXE文件,你就可以在Windows 下拥有自己的VCD播放器了。

　　有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。在Visual Basic的程序设计中，我们可以使用语句：object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码：text1.SetFocus

　　再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使用语句：Sendkeys "{TAB}"使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减少了用户出错的机会。

　　可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助API函数，API函数SetCursorPos可让我们如愿。

　　下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。下列代码请放在declarations段中：

　　Type PoinTAPI

　　x As Integer

　　y As Integer

　　End Type

　　Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)

　　Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI) Declare Function GetParent Lib "User"(Byval　hwnd　As　Integer)As Integer

　　然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码：

　　Sub MoveCursorOn(source As Control)

　　　　 Dim Pt As PoinTAPI

　　　　 Dim hparent As Integer

　　　　 p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)

　　　　 p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)

　　　　 hparent=GetParent(source.hwnd)

　　　　 ClientToScreen hparent pt

　　　　 SetCursorPos　pt.x　pt.y

　　　　 End Sub

　　使用该子程序很容易，例如我们想把鼠标移动到按钮Command1上，就可使用语句Move Cursor On Command1 您会看到鼠标箭头已经指着按钮Command1。

　　需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用程序的控制，这是违反我们的初衷的。在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，"咦？！我到底做了什么？”这是Windows新用户经常遇到的事情。解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码： IF KeyASCII=13 Then 　 KeyASCII=0 　 Sendkeys "{TAB}" END IF 这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时的回车键是起换行的作用。

上下文章:

上一篇文章: 怎样在VB中声明和使用API函数下一篇文章: Visual Basic编程的七个优良习惯

相关文章:

相关软件:

VB实用编程两例外

快速导航

编程技术分类导航

本类经典文章推荐

VB & VB.NET教程阅读排行

编程技术阅读总排行

广告位置