VB程序设计第2版第9章.ppt

1,第9章,常用内部控件,本章要点: 控件的公共属性 鼠标和键盘事件 常用内部控件 动画控件和多媒体控件,2,9.1 控件的公共属性,1. Name属性 Name属性用于标识窗体、控件、或数据访问对象的名称。在属性窗口的属性名为“(名称)”,注意： 1) Name属性运行时是只读的 2) 新建立的控件有其缺省名称，如Text1、Text2 3) 以字母开始, 最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字) 4) 控件数组的名称: Name(Index) 例如：Text1(0)、Text1(1) Command1(0)、Command1(1),3,2. Caption属性 Caption属性用于设置或返回对象的标题或在对象上显示的文字。,注意： 1) 当创建一个新的对象时，其缺省Caption属性值与其缺省的Name属性值相同。 2) 使用&符号可以为某些控件创建访问键，如果需要在标题中加入一个“&”符号而不是创建访问键，需在标题中加入连续的两个“&”符号。 3) Label控件标题大小没有限制。其他有标题的控件，标题大小限制为255个字符。 3) 注意与Name属性、Text属性的区别。,4,3. Enabled属性 决定控件是否能够对用户产生的事件作出响应。 4. Visible属性 用来确定一个窗体或控件是否可见。 注意: 如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。 5. Left、Top、Height、Width属性,对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统。,5,6. BackColor、ForeColor属性 BackColor属性用来设置或返回控件的背景颜色。ForeColor属性用来设置或返回在控件里显示的图形或文本的颜色（前景颜色）。,注意： 1) 在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。 2) 如果在Form对象或PictureBox控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。 3) 设置ForeColor属性值不会影响已经打印的文本或绘制的图形。,6,7. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性 分别对应于： 字体、字号、粗体、斜体、删除线、下划线 8. Font对象属性 在设计时在属性窗口需要进一步打开对话框进行设置。 在代码中的使用格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough 例: Form1.Font.Size = 14 Command1.Font.Italic = True 【例9-1】自学 P170 例9-1,7,9MousePointer、MouseIcon属性 MousePointer属性：返回或设置一个值，指示在运行时当鼠标移动到对象上时要显示的鼠标指针的类型。 015：使用系统定义的鼠标指针类型 99 :使用自定义的鼠标指针类型，鼠标指针为通过MouseIcon属性所指定的图标。 MouseIcon属性：设置在运行时当鼠标移动到对象上时要显示的图标，在MousePointer属性设置为99时使用。,8,9.2 鼠标和键盘事件,Visual Basic应用程序可以响应多种鼠标与键盘事件。例如，鼠标事件有单击、双击、按下、抬起、移动、拖动等，键盘事件有按键的按下、抬起等。利用这些事件可以编写响应各种事件的应用程序。,9,9.2.1 鼠标事件,1. MouseDown、MouseUp事件 MouseDown事件：在按下鼠标按钮时发生； MouseUp事件：在释放鼠标按钮时发生。 例如，某按钮的MouseDown事件过程如下： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Button ：根据所按下或抬起的是鼠标的左按钮、右按钮还是中间按钮返回一个整数。见P171 Shift： 根据在按下或释放鼠标按钮时是否同时按下Shift、Ctrl或Alt键返回一个整数。见P172 X、Y：返回鼠标指针在对象上的当前位置。默认单位为缇。,10,2MouseMove事件 当鼠标指针在对象上移动时发生该事件。 例如，窗体的MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub （Button 、Shift、X和Y参数的作用同前）,注意：当鼠标指针在对象上移动时，并不是经过每个像素都会产生MouseMove事件，而是按每秒一定的次数生成MouseMove事件。由于应用程序能在短时间内识别大量的MouseMove事件，因此，不应在MouseMove事件过程中编写需要大量计算时间的程序。,11,【例9-2】在窗体上移动鼠标时，将当前的鼠标位置显示在文本框中。如下图：,窗体的MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X : Text2.Text = Y End Sub,12,9.2.2 键盘事件,1KeyPress事件 当用户按下并释放键盘上一个会产生ASCII码的按键时产生KeyPress事件。如按下数字键、字母键、Tab、Enter、BackSpace、Esc等都会产生KeyPress事件。 例如，某文本框Text1的KeyPress事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub,KeyAscii参数：与按键对应的ASCII码值。,13,注意： 对于同一个字母的按键，其大、小写形式返回不同的KeyAscii值。 只有当对象具有焦点时才可以接收KeyPress事件。 一个窗体仅在它没有可视和有效的控件或KeyPreview属性被设置为True时才能接收该事件。 使用文本框的KeyPress事件可以及时对输入的内容进行检查，以保证输入内容的有效性。,14,【例9-3】对从文本框Text1输入的成绩进行有效性验证，如果输入的字符不是阿拉伯数字，则响铃，并消除该字符。 分析：可以在Text1的KeyPress事件过程中对参数KeyAscii的值进行判断。已知09的ASCII码为4857，所以当KeyAscii的值不在4857的范围内时，需要响铃（用Beep语句），并消除该字符（将KeyAscii设置为0）。 代码如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then Beep 响铃 KeyAscii = 0 消除该字符 End If End Sub,15,2KeyDown、KeyUp事件,KeyDown事件: 在对象有焦点时按下按键时发生； KeyUp事件: 在对象具有焦点时松开按键时发生。 例如，某文本框Text1的KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub,KeyCode: 返回所操作键的代码。在键盘上只要按的是同一个键，则返回的KeyCode值相同。例如，对于同一个字母按键，不管是大写还是小写形式，所返回的KeyCode值是相同的。VB为KeyCode值定义了符号常量，如vbKeyF1(F1键) 或 vbKeyHome(Home键)。 Shift: 根据在按键时是否按下Shift、Ctrl或Alt键返回一个整数。见P171表9-2。,16,【例9-3】在窗体上用Shape控件画一个圆形，用键盘上的“”、“”、“”、“”方向键移动该图形。,分析：键盘上的方向键“”、“”、“”、“”的KeyCode值分别为37、38、39、40，也可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常量来代替。在窗体的KeyDown事件过程中根据所返回的KeyCode值实现对图形的移动。,17,代码如下： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Shape1.Top = Shape1.Top - 100 Case vbKeyDown Shape1.Top = Shape1.Top + 100 Case vbKeyLeft Shape1.Left = Shape1.Left - 100 Case vbKeyRight Shape1.Left = Shape1.Left + 100 End Select End Sub,18,9.3 常用内部控件,框架（Frame） 图片框（PictureBox） 图像框（Image） 选项按钮（OptionButton） 复选框（CheckBox） 列表框（ListBox） 组合框（Combobox) 定时器(Timer) 滚动条(ScrollBar),19,9.3.1 框架(Frame),1. 作用: 作为容器，对控件进行分组；修饰界面。 2. 如何将控件放在容器中 选中容器，在容器中直接画 选中容器，粘贴控件 3. 如何检查控件是否在容器中 拖动容器，控件随容器移动； 拖动控件只能在容器中移动 4. 选中框架中的多个控件: Ctrl+拖动；Shift+单击 5. 删除容器时，其中的控件随之被删除 6. 框架的常用属性 Caption: Font: Enabled:设置为False时框架中的控件无效。,20,9.3.2 图片框(PictureBox),1.作用 作为控件的容器；显示文字或图形。 显示图像 2.如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(“图形文件名“) 3.如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() (也清除文字) 4.打印与清除文字 打印:对象名.Print 清除:对象名.Cls 5.特点：自动调整控件大小以适应图像: AutoSize=True 不能延伸图形以适应控件的大小。,21,9.3.3 图像框(Image),1. 作用:显示图像 2. 如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(“图形文件名“) 3. 如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() 4. 特点 可以自动调整控件大小以适应图像: 设 Stretch=False 可以延伸图形以适应控件的大小: 设 Stretch=True,22,9.3.4 选项按钮(OptionButton),1. 作用: 多选一(放在窗体上、或放在其他容器中) 2. 属性 1) Value True选中 False未选中 2) Alignment属性: 决定文本的对齐方式 0:文本左对齐 1:文本右对齐 3) Style控制外观 0: 呈现为旁边带有文本的圆形按钮。 1:显示为方形按钮，有按下和抬起两种状态。 3. 事件 Click事件使选项按钮从未选择变成选择状态时 (单击鼠标改变、代码改变 ),23,【例9-5】设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。,24,Private Sub Option1_Click() Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click() Text1.ForeColor = vbYellow End Sub Private Sub Option3_Click() Text1.ForeColor = vbRed End Sub Private Sub Option4_Click() Text1.BackColor = vbWhite End Sub Private Sub Option5_Click() Text1.BackColor = vbGreen End Sub Private Sub Option6_Click() Text1.BackColor = vbBlue End Sub,25,9.3.5 复选框(CheckBox),1. 作用 多选一或多选多(放在窗体上或其他容器中) 2. 属性 1) Value 0未选中 1选中 2灰度状态(常用于表示不确定或部分选中) 2) Alignment属性: 决定文本的对齐方式 3) Style: 控制外观 0: 呈现为旁边带有小方框的默认状态。 1:显示为方形按钮，有按下和抬起两种状态。 3. 事件 Click事件,26,【例9-6】设计界面如下图所示，用复选框设置文本框的文字样式与效果。,27,Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Text1.FontStrikethru = Check3.Value End Sub Private Sub Check4_Click() Text1.FontUnderline = Check4.Value End Sub,28,9.3.6 列表框(ListBox),1. 作用:提供选项列表、内容多时自动出现滚动条 2. 属性 1) List列表内容。 设计时: 用Ctrl+换行; 运行时: List(i)表示第i项 2) Style外形(常规形式、复选框形式) 3) Columns列表形式 0:垂直单列、1:水平单列、1:水平多列 4) Text只读、运行期用，获取当前选择项目的值 5) ListIndex运行期用，当前选定项目的索引(0) 如果未选定项目，则 ListIndex 值为 -1 6) ListCount列表部分项目的总个数 7) Sorted元素是否自动按字母顺序排序 8) Selected运行期用，用于选择某项 如List1.Selected(3)=True 选择第4项,29,8) MultiSelect: 0缺省值，不允许复选。 1鼠标单击、按空格键在列表中选择或取消选择 2 按下 Shift并单击鼠标或按下 Shift 以及一个箭头键将在以前选中项的基础上扩展选择到当前选中项。按下 Ctrl 并单击鼠标在列表中选中或取消选中项。 3. 方法 1) AddItem向列表框中添加新的项目 .AddItem , 2) RemoveItem从列表框中移除项目 .RemoveItem 3) Clear清除所有列表的 .Clear,30,【例9-7】设计如下图所示的界面，左列表框列出了某数据表格的各列(字段)名称。,31,1) 将左列表框中选择的列移动到右列表框中 Private Sub Command1_Click() If List1.ListCount = 0 Then MsgBox “列表中已没有可选的列“, , “注意“ Exit Sub End If If List1.ListIndex = 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox “请先在列表中选择某列“, , “注意“ End If End Sub,32,2) 将右列表框中选择的列移动到左列表框中。 Private Sub Command2_Click() If List2.ListCount = 0 Then MsgBox “列表中已没有可选的列“, , “注意“ Exit Sub End If If List2.ListIndex = 0 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox “请先在列表中选择某列“, , “注意“ End If End Sub,33,3) 将左侧列表框中的所有列移动到右侧列表框中 Private Sub Command3_Click() For i = 0 To List1.ListCount 1 List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0 Next i End Sub 4) 将右侧列表框中的所有列移动到左侧列表框中 Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub,34,9.3.7 组合框(ComboBox),1. 作用: 提供列表(可折叠)、文本输入 2. 属性 1) List列表内容(Ctrl+Enter换行) 2) Style外形 0下拉组合框(折叠) 1简单组合框(不折叠) 2下拉列表框(不能修改Text属性) 3) Text文本框内容 4) ListIndex运行期用，当前选定项目的索引 索引从0开始 5) ListCount列表部分项目的总个数 6) Sorted元素是否自动按顺序排序,35,3. 事件 组合框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown事件 Style为1时: 响应Click、DblClick、Change事件 Style为2时: 响应Click、DropDown事件 4. 方法 1) AddItem: 向组合框中添加新的项目 .AddItem , 2) RemoveItem: 从组合框中移除项目 .RemoveItem 3) Clear: 清除组合框中的所有项目 .Clear,36,【例9-8】在窗体上放4个组合框，用于选择微机配置，包括选择品牌、CPU、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。,37,设置各组合框控件的属性如下表：,38,Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0) End Sub Private Sub Command1_Click() Picture1.Cls Picture1.Print “您选择的配置是:“ Picture1.Print “品牌:“; Combo1.Text Picture1.Print “CPU:“; Combo2.Text Picture1.Print “硬盘:“; Combo3.Text Picture1.Print “内存:“; Combo4.Text End Sub,39,9.3.8 定时器(Timer),1. 作用:周期性地执行某功能、运行时不可见。 2. 属性 1) Enabled: 将Enabled设置为False时将停止定时器的计时操作。 2) Interval: 计时事件执行的时间间隔(毫秒)。 3. 事件 Timer事件: 每当计时时间到时产生Timer事件,注: 一个计时器的最大计时时间为65535毫秒 , 等于 1 分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。,40,【例9-9】在窗体上放置一个红色圆。 单击“增大”按钮每隔1秒直径自动增大200Twips； 单击“缩小”按钮每隔1秒直径自动缩小200Twips； 单击“停止”按钮停止增大或缩小。,Timer1属性: EnabledFalse Interval1000,41,Dim Flag As Integer Private Sub Cmd1_Click() Timer1.Enabled = True Flag = 1 End Sub Private Sub Cmd2_Click() Timer1.Enabled = True Flag = 0 End Sub Private Sub Cmd3_Click() Timer1.Enabled = False End Sub,42,Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox “不能再缩小“, , “注意“ Timer1.Enabled = False Exit Sub 结束本事件过程 End If Shape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Height = Shape1.Height + 200 End If End Sub,43,9.3.9 滚动条(HScrollBar、VScrollBar),1. 作用 2. 滚动条结构,3. 属性 1) Value: 滚动条当前位置值,介于Min,Max之间 2) Max:滚动条的 Value 属性最大值 3) Min:滚动条的 Value 属性最小值 4) LargeChange:单击滚动块和滚动箭头之间的区域时，滚动条 Value 值的改变量。 5) SmallChange:单击滚动箭头时，滚动条的Value 值的改变量。 4. 事件 Change(单击时、Value改变时); Scroll (拖动时),44,【例9-10】设计一水平滚动条，表示范围为1100，要求: 1) 单击某按钮生成1，100之间的随机整数，在滚动条上反映此随机数，同时在标签上显示该值。 2) 滚动条滚动时，标签内容能够及时反映滚动条的当前值。,设计界面：,45,代码如下： Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 + 1) HScroll1.Value = X Label3.Caption = X End Sub Private Sub HScroll1_Change() Label3.Caption = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Label3.Caption = HScroll1.Value End Sub,46,【例9-11】在图片框Picture1上放置一个圆，在窗体上放一个水平滚动条HScroll1和一个垂直滚动条VScroll1，如下图。运行时，拖动滚动条可以使圆在图片框上随滚动条左右或上下移动。移动范围限制在图片框内部。,47,Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth _ Shape1.Width HScroll1.LargeChange = (Picture1.ScaleWidth _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight Shape1.Height VScroll1.LargeChange = (Picture1.ScaleHeight _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0 End Sub,48,Private Sub HScroll1_Change() Shape1.Left = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Shape1.Left = HScroll1.Value End Sub Private Sub VScroll1_Change() Shape1.Top = VScroll1.Value End Sub Private Sub VScroll1_Scroll() Shape1.Top = VScroll1.Value End Sub,49,9.4 动画控件和多媒体控件,除了工具箱中提供的常用内部控件外，还可以使用ActiveX控件来增强Visual Basic应用程序的界面效果及其功能。ActiveX控件文件的扩展名为.ocx。 可以使用Visual Basic提供的ActiveX控件，也可以使用从第三方开发商获得的附加控件。 使用ActiveX控件之前，需要先将其添加到工具箱中，添加步骤如下： 打开“工程”菜单单击“部件” 显示“部件”对话框选定控件单击“确定”按钮,50,完成添加ActiveX控件后就可以像使用内部控件一样使用添加到工具箱中的ActiveX控件了。 将ActiveX添加到窗体上以后，在属性窗口的属性名称列表中有一项“自定义”属性，单击该属性旁的浏览按钮“”可以打开一个“属性页”对话框，该对话框集中了设计期可以设置的许多重要属性，可以在该对话框中方便地进行各种属性的设置。,51,9.4.1 动画控件（Animation）,1. 添加 (1) 工程部件Microsoft Windows Common Contrls -2 6.0 (2) 从工具箱中选择Animation 2. 外观,3. 作用：显示无声的AVI视频文件，播放无声动画,52,4. 属性 AutoPlay: 在将.avi文件加载到Animation控件时，该属性决定Animation控件是否开始自动播放.avi文件。 True: 要自动连续循环播放.avi文件。 False : 在加载了.avi文件后，需要使用Play方法来播放该.avi文件。 5.方法 1) Open：用于打开一个要播放的.avi文件，格式： .Open 例如，播放当前应用程序路径之下的文件filedel.avi： Animation1.Open App.Path & “filedel.avi“,53,2) Play：用于播放已经打开的.avi文件，格式： .Play , 例如：Animation1.Play 5, 3, 15 播放当前打开的.avi文件的第3帧到第15帧，共播放5遍。 3) Stop：终止那些用Play方法启动的动画。格式： .Stop 当设置Autoplay属性为True时不能使用Stop方法终止播放。 4) Close：关闭当前打开的.avi文件。格式： .Close,54,【例9-12】在窗体上放四个命令按钮，单击各按钮时实现打开特定的.avi文件、播放动画、停止播放和关闭动画。界面如下图：,设计界面:,运行界面:,55,各命令按钮的Click事件过程如下: Private Sub Command1_Click() “打开”按钮 Animation1.Open App.Path & “filedel.avi“ End Sub Private Sub Command2_Click() “播放”按钮 Animation1.Play End Sub Private Sub Command3_Click() “停止”按钮 Animation1.Stop End Sub Private Sub Command4_Click() “关闭”按钮 Animation1.Close End Sub,56,9.4.2 多媒体控件（Multimedia MCI）,1. 添加 1) 工程部件Microsoft Multimedia Control 6.0 2) 从工具箱中选择MMControl 2. 外观,3. 作用：于管理媒体控制接口(MCI)设备,包括常规的多媒体音频、视频设备。 也称Multimedia MCI控件。,57,4. 各按钮的名称及作用,通过设置各按钮的Visible和Enabled属性可以有选择地设置可用的按钮。,58,5. 属性 1) DeviceType：指定要打开的MCI设备的类型。 简单设备：不需要数据文件即可播放，如打开视频或音频CD播放器，即可通过“曲目”进行播放、回绕和快进。 复合设备：必需通过数据文件才能播放。 Multimedia MCI控件支持的部分多媒体设备：见P187表9-5 例如，使用Multimedia MCI控件MMControl1播放avi文件，需要首先做以下设置： MMControl1.DeviceType = “AVIVideo“ 2) FileName：指定Open命令将要打开的或者Save命令将要保存的文件。例如： MMControl1.FileName = “d:clock.avi“,59,3) Command：指定将要执行的MCI命令 例如，打开指定的.avi文件并开始播放： MMControl1.DeviceType = “AVIVideo“ MMControl1.FileName = “d:clock.avi“ MMControl1.Command = “open“ MMControl1.Command = “play“ 4) AutoEnable：决定Multimedia MCI控件是否能够自动启动或关闭控件中的某个按钮。仅在Enabled属性被设置为True的前提下才起作用。 5) ButtonEnabled：启用或禁用控件中的某个按钮。只有当Enabled属性为True、AutoEnable属性为False时起作用。具体使用时应将Button替换成相应的按钮名称。 例如：MMControl1.EjectEnabled = False,60,6) ButtonVisible：决定指定的按钮是否在控件中显示。只有当Visible属性为True时起作用。 例如：MMControl1.RecordVisible = False 7) Frames：指定Step或Back命令步进的帧数。 例如：MMControl1.Frames = 10 8) TimeFormat：规定与位置信息相关的属性所采用的时间格式（如“毫秒”），这些属性包括：From、Length、Position、Start、To、TrackLength、TrackPosition。 9) From：规定Play或Record命令的起始点。 10) To：规定Play或Record命令的结束点。 11) Length：返回打开的MCI设备上的媒体长度。 12) Position：返回打开的MCI设备的当前位置。,61,13) Start：返回当前媒体的起始位置。 14) Tracks：返回当前所使用的设备的音轨数。对于CD唱片，Tracks属性指的是一张盘中共有多少个曲目。 15) Track：用于指定音轨。 16) TrackPosition：返回Track属性给出的音轨的起始位置。 17) TrackLength：返回Track属性给出的音轨的长度。 18) hWndDisplay：对于利用窗口显示输出结果的MCI MMMovie或Overlay设备，该属性用于为其规定显示输出的窗口。,62,可以为该属性指定一个是MCI设备输出窗口的句柄。窗体和控件的句柄可以通过其hWnd属性获得。例如，指定输出窗口为图片框Picture1： MMControl1.hWndDisplay = Picture1.hWnd 19) Notify：决定下一条MCI命令是否使用MCI通知服务。如果该属性被设置为True，那么在下一条MCI命令完成时产生一个回调事件(Done)。赋给该属性的值只对下一条MCI命令有效。 20) Wai