资源描述
1,第9章,常用内部控件,本章要点:控件的公共属性鼠标和键盘事件常用内部控件动画控件和多媒体控件,2,9.1控件的公共属性,1.Name属性Name属性用于标识窗体、控件、或数据访问对象的名称。在属性窗口的属性名为“(名称)”,注意：1)Name属性运行时是只读的2)新建立的控件有其缺省名称，如Text1、Text23)以字母开始,最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)4)控件数组的名称:Name(Index)例如：Text1(0)、Text1(1)Command1(0)、Command1(1),3,2.Caption属性Caption属性用于设置或返回对象的标题或在对象上显示的文字。,注意：1)当创建一个新的对象时，其缺省Caption属性值与其缺省的Name属性值相同。2)使用运行时:List(i)表示第i项2)Style外形(常规形式、复选框形式)3)Columns列表形式0:垂直单列、1:水平单列、1:水平多列4)Text只读、运行期用，获取当前选择项目的值5)ListIndex运行期用，当前选定项目的索引(0)如果未选定项目，则ListIndex值为-16)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从列表框中移除项目.RemoveItem3)Clear清除所有列表的.Clear,30,【例9-7】设计如下图所示的界面，左列表框列出了某数据表格的各列(字段)名称。,31,1)将左列表框中选择的列移动到右列表框中PrivateSubCommand1_Click()IfList1.ListCount=0ThenMsgBox列表中已没有可选的列,注意ExitSubEndIfIfList1.ListIndex=0ThenList2.AddItemList1.TextList1.RemoveItemList1.ListIndexElseMsgBox请先在列表中选择某列,注意EndIfEndSub,32,2)将右列表框中选择的列移动到左列表框中。PrivateSubCommand2_Click()IfList2.ListCount=0ThenMsgBox列表中已没有可选的列,注意ExitSubEndIfIfList2.ListIndex=0ThenList1.AddItemList2.TextList2.RemoveItemList2.ListIndexElseMsgBox请先在列表中选择某列,注意EndIfEndSub,33,3)将左侧列表框中的所有列移动到右侧列表框中PrivateSubCommand3_Click()Fori=0ToList1.ListCount1List1.Selected(0)=TrueList2.AddItemList1.TextList1.RemoveItem0NextiEndSub4)将右侧列表框中的所有列移动到左侧列表框中PrivateSubCommand4_Click()Fori=0ToList2.ListCount-1List2.Selected(0)=TrueList1.AddItemList2.TextList2.RemoveItem0NextiEndSub,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:从组合框中移除项目.RemoveItem3)Clear:清除组合框中的所有项目.Clear,36,【例9-8】在窗体上放4个组合框，用于选择微机配置，包括选择品牌、CPU、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。,37,设置各组合框控件的属性如下表：,38,PrivateSubForm_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=Combo3.List(0)Combo4.Text=Combo4.List(0)EndSubPrivateSubCommand1_Click()Picture1.ClsPicture1.Print您选择的配置是:Picture1.Print品牌:;Combo1.TextPicture1.PrintCPU:;Combo2.TextPicture1.Print硬盘:;Combo3.TextPicture1.Print内存:;Combo4.TextEndSub,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属性:EnabledFalseInterval1000,41,DimFlagAsIntegerPrivateSubCmd1_Click()Timer1.Enabled=TrueFlag=1EndSubPrivateSubCmd2_Click()Timer1.Enabled=TrueFlag=0EndSubPrivateSubCmd3_Click()Timer1.Enabled=FalseEndSub,42,PrivateSubTimer1_Timer()IfFlag=0ThenIfShape1.Width200OrShape1.Height200ThenMsgBox不能再缩小,注意Timer1.Enabled=FalseExitSub结束本事件过程EndIfShape1.Width=Shape1.Width-200Shape1.Height=Shape1.Height-200ElseShape1.Width=Shape1.Width+200Shape1.Height=Shape1.Height+200EndIfEndSub,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,代码如下：PrivateSubCommand1_Click()Randomize:X=Int(Rnd*100+1)HScroll1.Value=XLabel3.Caption=XEndSubPrivateSubHScroll1_Change()Label3.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label3.Caption=HScroll1.ValueEndSub,46,【例9-11】在图片框Picture1上放置一个圆，在窗体上放一个水平滚动条HScroll1和一个垂直滚动条VScroll1，如下图。运行时，拖动滚动条可以使圆在图片框上随滚动条左右或上下移动。移动范围限制在图片框内部。,47,PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=Picture1.ScaleWidth_Shape1.WidthHScroll1.LargeChange=(Picture1.ScaleWidth_Shape1.Width)/20HScroll1.SmallChange=(Picture1.ScaleWidth_Shape1.Width)/40VScroll1.Min=0VScroll1.Max=Picture1.ScaleHeightShape1.HeightVScroll1.LargeChange=(Picture1.ScaleHeight_Shape1.Height)/20VScroll1.SmallChange=(Picture1.ScaleHeight_Shape1.Height)/40Shape1.Left=0Shape1.Top=0EndSub,48,PrivateSubHScroll1_Change()Shape1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Shape1.Left=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Shape1.Top=VScroll1.ValueEndSubPrivateSubVScroll1_Scroll()Shape1.Top=VScroll1.ValueEndSub,49,9.4动画控件和多媒体控件,除了工具箱中提供的常用内部控件外，还可以使用ActiveX控件来增强VisualBasic应用程序的界面效果及其功能。ActiveX控件文件的扩展名为.ocx。可以使用VisualBasic提供的ActiveX控件，也可以使用从第三方开发商获得的附加控件。使用ActiveX控件之前，需要先将其添加到工具箱中，添加步骤如下：打开“工程”菜单单击“部件”显示“部件”对话框选定控件单击“确定”按钮,50,完成添加ActiveX控件后就可以像使用内部控件一样使用添加到工具箱中的ActiveX控件了。将ActiveX添加到窗体上以后，在属性窗口的属性名称列表中有一项“自定义”属性，单击该属性旁的浏览按钮“”可以打开一个“属性页”对话框，该对话框集中了设计期可以设置的许多重要属性，可以在该对话框中方便地进行各种属性的设置。,51,9.4.1动画控件（Animation）,1.添加(1)工程部件MicrosoftWindowsCommonContrls-26.0(2)从工具箱中选择Animation2.外观,3.作用：显示无声的AVI视频文件，播放无声动画,52,4.属性AutoPlay:在将.avi文件加载到Animation控件时，该属性决定Animation控件是否开始自动播放.avi文件。True:要自动连续循环播放.avi文件。False:在加载了.avi文件后，需要使用Play方法来播放该.avi文件。5.方法1)Open：用于打开一个要播放的.avi文件，格式：.Open例如，播放当前应用程序路径之下的文件filedel.avi：Animation1.OpenApp.Path&filedel.avi,53,2)Play：用于播放已经打开的.avi文件，格式：.Play,例如：Animation1.Play5,3,15播放当前打开的.avi文件的第3帧到第15帧，共播放5遍。3)Stop：终止那些用Play方法启动的动画。格式：.Stop当设置Autoplay属性为True时不能使用Stop方法终止播放。4)Close：关闭当前打开的.avi文件。格式：.Close,54,【例9-12】在窗体上放四个命令按钮，单击各按钮时实现打开特定的.avi文件、播放动画、停止播放和关闭动画。界面如下图：,设计界面:,运行界面:,55,各命令按钮的Click事件过程如下:PrivateSubCommand1_Click()“打开”按钮Animation1.OpenApp.Path&filedel.aviEndSubPrivateSubCommand2_Click()“播放”按钮Animation1.PlayEndSubPrivateSubCommand3_Click()“停止”按钮Animation1.StopEndSubPrivateSubCommand4_Click()“关闭”按钮Animation1.CloseEndSub,56,9.4.2多媒体控件（MultimediaMCI）,1.添加1)工程部件MicrosoftMultimediaControl6.02)从工具箱中选择MMControl2.外观,3.作用：于管理媒体控制接口(MCI)设备,包括常规的多媒体音频、视频设备。也称MultimediaMCI控件。,57,4.各按钮的名称及作用,通过设置各按钮的Visible和Enabled属性可以有选择地设置可用的按钮。,58,5.属性1)DeviceType：指定要打开的MCI设备的类型。简单设备：不需要数据文件即可播放，如打开视频或音频CD播放器，即可通过“曲目”进行播放、回绕和快进。复合设备：必需通过数据文件才能播放。MultimediaMCI控件支持的部分多媒体设备：见P187表9-5例如，使用MultimediaMCI控件MMControl1播放avi文件，需要首先做以下设置：MMControl1.DeviceType=AVIVideo2)FileName：指定Open命令将要打开的或者Save命令将要保存的文件。例如：MMControl1.FileName=d:clock.avi,59,3)Command：指定将要执行的MCI命令例如，打开指定的.avi文件并开始播放：MMControl1.DeviceType=AVIVideoMMControl1.FileName=d:clock.aviMMControl1.Command=openMMControl1.Command=play4)AutoEnable：决定MultimediaMCI控件是否能够自动启动或关闭控件中的某个按钮。仅在Enabled属性被设置为True的前提下才起作用。5)ButtonEnabled：启用或禁用控件中的某个按钮。只有当Enabled属性为True、AutoEnable属性为False时起作用。具体使用时应将Button替换成相应的按钮名称。例如：MMControl1.EjectEnabled=False,60,6)ButtonVisible：决定指定的按钮是否在控件中显示。只有当Visible属性为True时起作用。例如：MMControl1.RecordVisible=False7)Frames：指定Step或Back命令步进的帧数。例如：MMControl1.Frames=108)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：对于利用窗口显示输出结果的MCIMMMovie或Overlay设备，该属性用于为其规定显示输出的窗口。,62,可以为该属性指定一个是MCI设备输出窗口的句柄。窗体和控件的句柄可以通过其hWnd属性获得。例如，指定输出窗口为图片框Picture1：MMControl1.hWndDisplay=Picture1.hWnd19)Notify：决定下一条MCI命令是否使用MCI通知服务。如果该属性被设置为True，那么在下一条MCI命令完成时产生一个回调事件(Done)。赋给该属性的值只对下一条MCI命令有效。20)Wait：决定是否要等到下一条MCI命令完成，才能将控制权返回应用程序。赋给该属性的值只对下一条MCI命令有效。21)UpdateInterval：规定两次连续的StatusUpdate事件之间的毫秒数。,63,2事件1)ButtonClick：当用户单击MCI控件上的按钮时产生该事件，其事件过程如下：PrivateSubMMControl1_ButtonClick(CancelAsInteger)EndSubButton：Prev、Next、Play、Pause、Back、Step、Stop、Record或Eject。例如，以下为Pause按钮对应的事件过程：PrivateSubMMControl1_PauseClick(CancelAsInteger)EndSub,64,2)StatusUpdate事件：按UpdateInterval属性所给定的时间间隔自动地发生。应用程序可以在该事件过程中定期检查当前MCI设备的状态。例如，从MultimediaMCI控件的Position、Length和Mode等属性中获得状态信息3)Done事件：当Notify属性为True的MCI命令结束时发生。该事件过程返回一个参数NotifyCode，用于表示MCI命令是否成功，可以是以下任意设置值：1命令执行成功。2命令被其他命令所替代。4命令被用户中断。8命令失败。,65,【例9-13】利用MultimediaMCI控件在指定的图片框中播放.avi文件。,运行界面：,66,1)在窗体的Load事件过程中编写如下代码：PrivateSubForm_Load()MMControl1.DeviceType=AVIVideoMMControl1.FileName=App.Path&_SEARCH.AVIMMControl1.RecordVisible=FalseMMControl1.EjectVisible=FalseMMControl1.Command=openMMControl1.hWndDisplay=Picture1.hWndEndSub2)在窗体的Unload事件过程中执行Stop命令：PrivateSubForm_Unload(CancelAsInteger)MMControl1.Command=stopEndSub,67,本章小结,1.控件的公共属性Name属性Caption属性Enabled属性Visible属性Left、Top、Height、Width属性BackColor、ForeColor属性FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性Font对象属性MousePointer、MouseIcon属性,68,2.鼠标和键盘事件鼠标事件MouseDown、MouseUp事件MouseMove事件键盘事件KeyPress事件KeyDown、KeyUp事件,69,3.常用内部控件框架（Frame）图片框（PictureBox）图像框（Image）选项按钮（OptionButton）复选框（CheckBox）列表框（ListBox）组合框（Combobox)定时器(Timer)滚动条(ScrollBar)4.动画控件和多媒体控件ActiveX控件的添加动画控件Animation多媒体控件MultimediaMCI,
展开阅读全文