《VB中的常用控件》PPT课件.ppt

第8章VB中的常用控件,开始学习,本章要点：,8.1标签(Label)控件,1.标签的属性,8.1标签(Label)控件,8.1标签(Label)控件,（1）Caption（标题）属性标签名称.Caption=欲显示的文本“（2）BorderStyle（边框）属性标签名.BorderStyle=0/1（0或1，两者取一）（3）Font（字体）属性标签名.FontName=“字体类型”（4）Alignment（对齐）属性标签名.Alignment=0/1/2（5）Visible（可见）属性标签名.Visible=True/False,8.1标签(Label)控件,2.标签的事件（1）Click事件（鼠标单击）PrivateSubLblShow_Click()LblShow.FontName=隶书EndSub（2）DbClick事件（鼠标双击）PrivateSubLblShow_DbClick()LblShow.Visible=FalseEndSub,8.2文本框(TextBox)控件,1.文本框的属性,8.2文本框(TextBox)控件,8.2文本框(TextBox)控件,（1）Text属性文本框控件名.Text=欲显示的文本内容“（2）Multiline属性（3）ScrollBars属性0-None：无滚动条1-Horizontal：加水平滚动条2-Vertical：加垂直滚动条3-Both：同时加水平和垂直滚动条（4）MaxLength属性,8.2文本框(TextBox)控件,（5）Locked属性（6）Passwordchar属性（7）SelStart、SelLength、SelText属性SelStart：选中的文本的开始位置，第一个字符的位置是0，依此类推；SelLength：选中文本的长度；SelText：选中文本的内容。,8.2文本框(TextBox)控件,2.文本框的事件（1）Change事件（2）GotFocus事件（3）LostFocus事件,PrivateSubText1_GotFocus()Text1.Text=文本框获得焦点EndSubPrivateSubText1_LostFocus()Text1.Text=EndSubPrivateSubText1_Change()Label1.Caption=文本框的内容被改变EndSub,8.2文本框(TextBox)控件,3.文本框的方法对象.SetFocus【例8-1】编写一个VB应用程序，要求输入合法的成绩值（0100）。当输入结束时（按Tab键），对于输入正确的数据，显示OK信息；对输入的非法成绩值，则显示无效成绩值信息、清除文本框中的内容，并使焦点重新回到文本框。(源文件),8.3综合示例,【例8-2】制作一个简单的文本编辑器。用户可以在程序的编辑窗口输入文本；对输入的文本可以进行复制、粘贴、清除操作；另外，还能在两个标签上分别显示选中文本的起始位置、选中文本的长度。(源文件),8.4命令按钮(CommandButton)控件,选中命令按钮的方法：用鼠标单击；按Tab键将焦点移到相应按钮上，再按回车键；用快捷键（Alt有下划线的字母）。,8.4命令按钮(CommandButton)控件,1.命令按钮的属性,8.4命令按钮(CommandButton)控件,8.4命令按钮(CommandButton)控件,（1）Caption属性（2）Style属性0-Standard：标准的（默认），按钮上只能显示文字1-Graphical：图形的，按钮上文字、图形均可显示（3）Picture属性（4）ToolTipText属性（5）Cancel（取消）属性（6）Default（默认）属性,8.4命令按钮(CommandButton)控件,2.命令按钮的事件Click事件3.命令按钮的应用【例8-3】将前面例8-2的例子完善一下，复制文本按钮只有当选中文本时为可用，而粘贴文本按钮只有当剪贴板中有复制了的内容后才为可用状态。(源文件),8.5复选(CheckBox)与单选(OptionButton)控件,8.5.1复选（CheckBox）控件1.CheckBox控件的标准用法,8.5复选(CheckBox)与单选(OptionButton)控件,Value属性是复选控件最主要的属性。选中时，Value值为1；未被选中，Value值为0；禁止对该按钮进行选择，Value值为2。运行时选定复选框按钮的方法：鼠标单击按钮；使用Tab键将焦点转移到CheckBox控件上，并按下空格键；利用标题创建的快捷键（在Caption属性的一个字母前添加连字符&）。,8.5复选(CheckBox)与单选(OptionButton)控件,2.CheckBox控件的图形化用法【例8-4】复选控件的应用示例。根据单击复选控件的状态，把相应的颜色进行复合，然后显示在上边的PictureBox中。(源文件),8.5复选(CheckBox)与单选(OptionButton)控件,8.5.2单选（OptionButton）控件在运行时选定单选按钮的方法：鼠标单击按钮；用Tab键将焦点转移到控件；用Tab键选择一组单选按钮后再用方向键从组中选定一个按钮；利用标题上创建的快捷键。,8.5复选(CheckBox)与单选(OptionButton)控件,单选（OptionButton）控件的属性：,8.5复选(CheckBox)与单选(OptionButton)控件,1.OptionButton控件的标准用法2.OptionButton控件的图形化用法【例8-5】单选控件的应用实例。根据单击单选控件的状态，把颜色显示在右边的PictureBox中。(源文件),8.6综合示例二,【例8-6】单选、复选控件应用实例。设计一个窗体实现对文本框文字的文字效果和字体设置。实现如图所示：,8.7列表框(ListBox)控件,1.列表框的属性,8.7列表框(ListBox)控件,常用属性：（1）List属性（2）ListIndex属性（3）ListCount属性（4）Selected属性（5）Sorted属性（6）Text属性（7）MultiSelect属性,8.7列表框(ListBox)控件,2.列表框的方法（1）向列表添加项目ListBox.AddItemitem,index例：PrivateSubForm_load()List1.AddItemBlueList1.AddItemGreenList1.AddItemYellowEndsub,8.7列表框(ListBox)控件,2.列表框的方法（2）从列表删除项目Listbox.RemoveItemindex（3）删除列表所有项目ListBox.Clear,8.8组合框(ComboBox)控件,ComboBox控件的属性,8.8组合框(ComboBox)控件,常用属性：（1）Style（类型）属性Style=0时是下拉式组合框Style=1时是简单组合框Style=2时是下拉式列表框（2）Text（文本）属性,8.9综合示例三,【例8-7】用组合框对学生名单进行添加、修改和删除操作。(源文件),8.10滚动条,1.滚动条的属性（1）Max（最大值）与Min（最小值）属性（2）Value属性（3）LargeChange和SmallChange属性2.滚动条的事件Scroll与Change,8.11综合示例四,【例8-8】编写一个程序，用滚动条实现图片浏览。(源文件),8.12计时器(Timer)控件,Timer控件的属性【例8-9】使用计时器控件来实现一个定时的闹钟。当定时的时间到时，屏幕上将闪烁显示“时间到！”红色字样，如图所示。(源文件),通用对话框,VB6.0为用户提供了一组基于Windows标准的对话框，称为通用对话框，即CommonDialog。包括“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将CommonDialog添加到工具箱里的步骤如下：1选择“工程”下拉菜单中的“部件”子菜单，弹出“部件”对话框。2在“部件”对话框列表中选择“MicrosoftCommonDialogControl6.0”项目，确保其前方的复选框内出现“”。3单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图12-10所示。,通用对话框,通用对话框常用的属性有名称属性和Action属性等。系统默认的通用对话框名称为CommonDialog1、CommonDialog2。Action属性决定程序打开什么类型的对话框。具体Action属性、含义及对应的方法。,通用对话框,把CommonDialog控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置Action属性或VB6.0的方法才能使之显示在屏幕上。例如要显示“打开”对话框，在程序中利用设置Action属性则对应语句如下：CommonDialog1.Action=1也可在程序中用控件的方法完成对话框的显示。CommonDialog1.ShowSave,通用对话框,1文件对话框文件对话框包括“打开”和“另存为”对话框。使用“打开”、“另存为”对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表12-5所示。,例如：CommonDialog1.Fileter=”AllFiles(*.*)|*.*|位图(*.bmp)|*.bmp|”设置对话框的过滤器CommonDialog2.DialogTitle=”选择文件”设置对话框的标题,通用对话框,例8.4将例8-1里“新建”和“打开”菜单功能补充完整。注意：先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项，完成下述代码：PrivateSubmnuFileNew_Click()新建菜单CommonDialog1.ShowSaveText1.Text=Form1.Caption=新建文件EndSub,通用对话框,PrivateSubmnuFileOpen_Click()打开菜单DimFilenameAsString,mAsStringFilename=CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txtFilename=CommonDialog1.FilenameIfFilename=ThenMsgBoxnofileopen,vbExclamation+vbOKOnly,SystemElseMsgBoxyouopen+Filename+!,vbInformation,SystemEndIfOpenCommonDialog1.FilenameForInputAs#1将文件打开Input#1,m将文件内容读入到文本框里Text1.Text=mClose#1EndSub,通用对话框,PrivateSubmnuFileSave_Click()保存菜单CommonDialog1.Action=2OpenCommonDialog1.FilenameForOutputAs#1Print#1,Text1.TextClose#1EndSub,通用对话框,某次单击“新建”菜单时弹出的对话框和Windows默认风格一致。,其他对话框,1颜色对话框使用“颜色”对话框可设置颜色属性，对应的Windows颜色对话框如图所示。其属性和含义如表所示。,其他对话框,例如：Commondialog1.ShowcolorForm1.BackColor=CommonDialog1.Color表示将用户在“颜色”对话框中设置的颜色作为窗体背景色。,其他对话框,2字体对话框使用“字体”对话框可设置字体属性。其属性和含义如表所示。,其他对话框,例如：CommonDialog1.ShowFontText1.FontName=CommonDialog1.Filename表示将用户在“字体”对话框中设置的字体作为文本框的字体。,其他对话框,例8.5利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。,其他对话框,其他对话框,PrivateSubCommand1_Click()CommonDialog1.ShowColor显示颜色对话框Text1.ForeColor=CommonDialog1.Color颜色设置EndSubPrivateSubCommand2_Click()CommonDialog1.ShowFont显示字体