VB中的常用控件.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 事件（鼠标单击）Private Sub LblShow_Click()LblShow.FontName=隶书End Sub（2）DbClick 事件（鼠标双击）Private Sub LblShow_DbClick()LblShow.Visible=FalseEnd Sub,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事件,Private Sub Text1_GotFocus()Text1.Text=文本框获得焦点End SubPrivate Sub Text1_LostFocus()Text1.Text=End SubPrivate Sub Text1_Change()Label1.Caption=文本框的内容被改变End Sub,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)控件,单选（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.AddItem item,index例：Private Sub Form_load()List1.AddItem BlueList1.AddItem GreenList1.AddItem YellowEnd sub,8.7 列表框(ListBox)控件,2.列表框的方法（2）从列表删除项目Listbox.RemoveItem index（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在“部件”对话框列表中选择“Microsoft Common Dialog Control6.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=”All Files(*.*)|*.*|位图(*.bmp)|*.bmp|”设置对话框的过滤器CommonDialog2.DialogTitle=”选择文件”设置对话框的标题,通用对话框,例8.4 将例8-1 里“新建”和“打开”菜单功能补充完整。注意：先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项，完成下述代码：Private Sub mnuFileNew_Click()新建菜单CommonDialog1.ShowSaveText1.Text=Form1.Caption=新建文件End Sub,通用对话框,Private Sub mnuFileOpen_Click()打开菜单Dim Filename As String,m As StringFilename=CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txt Filename=CommonDialog1.FilenameIf Filename=Then MsgBox no file open,vbExclamation+vbOKOnly,SystemElse MsgBox you open+Filename+!,vbInformation,SystemEnd IfOpen CommonDialog1.Filename For Input As#1 将文件打开Input#1,m 将文件内容读入到文本框里Text1.Text=mClose#1End Sub,通用对话框,Private Sub mnuFileSave_Click()保存菜单CommonDialog1.Action=2Open CommonDialog1.Filename For Output As#1 Print#1,Text1.Text Close#1End Sub,通用对话框,某次单击“新建”菜单时弹出的对话框和Windows默认风格一致。,其他对话框,1颜色对话框 使用“颜色”对话框可设置颜色属性，对应的Windows颜色对话框如图所示。其属性和含义如表所示。,其他对话框,例如：Commondialog1.ShowcolorForm1.BackColor=CommonDialog1.Color 表示将用户在“颜色”对话框中设置的颜色作为窗体背景色。,其他对话框,2字体对话框 使用“字体”对话框可设置字体属性。其属性和含义如表所示。,其他对话框,例如：CommonDialog1.ShowFontText1.FontName=CommonDialog1.Filename 表示将用户在“字体”对话框中设置的字体作为文本框的字体。,其他对话框,例8.5 利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。,其他对话框,其他对话框,Private Sub Command1_Click()CommonDialog1.ShowColor 显示颜色对话框Text1.ForeColor=CommonDialog1.Color 颜色设置End SubPrivate Sub Command2_Click()CommonDialog1.ShowFont 显示字体对话框。Text1.FontName=CommonDialog1.FileName 设置字体Text1.FontSize=CommonDialog1.FontSize 设置字体大小Text1.FontBold=CommonDialog1.FontBold 设置是否粗体Text1.FontItalic=CommonDialog1.FontItalic 是否斜体Text1.FontUnderline=CommonDialog1.FontUnderline 是否有下划线End Sub,其他对话框,3打印对话框 使用“打印”对话框可设置打印属性。,本章内容结束，谢谢观看,