第五章常用控件.ppt

1、一、标签(Label) 1标签的创建和作用 举例说明 2常用属性 Caption、 Alignment、Font、BackColor、ForColor、BackStyle、Enabled、Visible、Top、Left、Width、Height,第五章 常用控件,一、标签(Label) 3示例,第五章 常用控件,二、文本框(TEXT),1文本框的创建和作用 举例说明 2常用属性 Alignment、Font、BackColor、ForColor、BackStyle、Enabled、Visible、Top、Left、Width、Height、 Appearance、Text、MultiLine

2、、ScrollBars、Maxlength、PasswordChar、 SelStart、 SelLength,二、文本框(TEXT),2常用属性 Appearance属性 功能：设置文本框是否具有3D效果。 Text属性 功能：设置文本框中显示的内容。 MultiLine属性 功能：确定文本框是否可以显示多行文本。,二、文本框(TEXT),2常用属性 ScrollBars属性 功能：设置文本框是否具有垂直或者水平滚动条。 Maxlength属性 功能：设置文本框中可以输入的字符的最大数。 PasswordChar属性 功能：决定是否在文本框中显示输入的字符。,2常用属性 SelStart属性

3、和SelLength属性 例：在文本框查找一个词。 Dim find As String Dim address As String find = InputBox(请输入一个字符串：, 提示) address = InStr(Text1.Text, find) If address Then Text1.SetFocus Text1.SelStart = address - 1 Text1.SelLength = Len(find) Else MsgBox 没有找到字符串 End If,二、文本框(TEXT),三、命令按钮(Command Button),1命令按钮的创建和作用 举例说明 2

4、常用属性 Appearance 、Font、Caption、Enabled、Visible、Top、Left、Width、Height,三、命令按钮(Command Button),3常用事件(Click事件) 功能：用鼠标单击窗体时 执行Click事件。 举例说明,三、命令按钮(Command Button),4程序运行时修改属性 语法格式 .= 举例 例1：创建一个窗体Form1，在该窗体中创建一个文本框Text1和一个命令按钮Command1，然后编写程序，首先初始化：将文本框text1置为空，命令按钮设置为“保存”，然后检查文本框是否为空，若文本框的值为空，则命令按钮无效，反之，则命令

5、按钮有效。,例2：设计计算器,三、命令按钮(Command Button),步骤： 1制作计算器界面； 2设置各控件的属性； 3编写程序,三、命令按钮(Command Button),四、单选按钮(Option Button),1单选按钮的创建和作用 举例说明 2常用属性 Alignment、Appearance 、Font、Caption、Enabled、Visible、Top、Left、Width、Height、Value 3常用事件 Click,例：计算56和98进行+、-、*、/运算。,四、单选按钮(Option Button),五、复选按钮(Check Button),1复选按钮的创

6、建和作用 举例说明 2常用属性 Alignment、Appearance 、Font、Caption、Enabled、Visible、Top、Left、Width、Height、Value 3常用事件 Click,例：计算56和98进行+、-、*、/运算。,五、复选按钮(Check Button),例：计算56和98进行+、-、*、/运算。,五、复选按钮(Check Button),1AddItem(向列表中添加项目) 例：List1.AddItem 北京 List1.AddItem 上海 List1.AddItem 天津 List1.AddItem 重庆 List1.AddItem 哈尔滨

7、List1.AddItem 深圳 List1.AddItem 广东 List1.AddItem 珠海 List1.AddItem 汕头 List1.AddItem 海南,六、列表框(List Box),2RemoveItem方法(删除项目) 例：删除第2个项目 list1. RemoveItem 1 注意：序号排列：0、1、2、3、 3Text属性(获取列表内容) 例：Text1.Text=list1.Text 4List属性(获取列表中的某个项目) 例：Text1.text=list1.List(2),六、列表框(List Box),5ListIndex属性(获取数组下标) 例：Text1.

8、text=list1.ListIndex 6ListCount属性(获取项目个数) 例：Text1.Text=list1.ListCount 7Selected属性（确定哪一个项目被选中） 例： Text1.Text=List1.Selected(List1.ListIndex),六、列表框(List Box),8MultiSelect属性(设置复选方式) 0：不允许复选 1：在列表中单击鼠标进行复选 2：用Shift、方向键、Ctrl键和鼠标进行复选,六、列表框(List Box),9综合示例 设计一个如下图所示的程序，用鼠标选择列表1中的选项后，单击“添加到列表2”，将列表1中选中的项目添

9、加到列表2中。,六、列表框(List Box),七、组合框(Combo Box),1组合框的创建和作用 举例说明 2Style属性 0-DropDown Combo 下拉式组合框 1-Simple Combo 简单组合框 2- DropDownList Combo下拉式列表框,七、组合框(Combo Box),2Style属性 用下列例题来说明三个选项的功能。,七、组合框(Combo Box),3Text属性(获取列表内容) 例：创建一个窗体Form1，在窗体中创建一个组合框Combo1和一个文本框Text1，在Form1的Load事件中添加如下代码： Combo1.AddItem 北京 Co

10、mbo1.AddItem 上海 Combo1.AddItem 天津 Combo1.AddItem 重庆 Combo1.AddItem 哈尔滨 Combo1.AddItem 深圳 Combo1.AddItem 广东 Combo1.AddItem 珠海 Combo1.AddItem 汕头 Combo1.AddItem “海南” 并在Combo1的Click事件中添加如下代码： Text1.Text=Combo1.Text,1图片框的创建和作用 举例说明Picture属性 装载图片的方法： Picture1.Picture = LoadPicture(c:txForest.bmp),八、图片框(Pi

11、cture Box),2Align属性(确定图片框的显示方式),八、图片框(Picture Box),3AutoRedraw属性(设置图片框是否具有重绘的功能) 例： Dim x, y As Integer Dim r,r1 As Integer x = Picture1.Width / 2 y = Picture1.Height / 2 If xy Then r1=y Else r1=x End If For r = 0 To r1 Picture1.Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next r,八、图片框(Pic

12、ture Box),4AutoSize属性(自动改变控件大小以适应图像文件的尺寸) 举例说明其功能 5 Paint事件 在一个对象被移动或放大之后，或在一个覆盖该对象的窗体被移开之后，该对象部分或全部暴露时，此事件发生。,八、图片框(Picture Box),八、图片框(Picture Box),6 Paint事件 例：创建一个窗体Form1，在该窗体中创建一个图片框Picture1且图片框的大小与窗体的大小相吻合，然后编写程序，当用鼠标改变窗体大小时，同时改变图片框的大小；在图片框中绘制一个各种颜色的圆，当改变窗体大小是放大时，图片框也随之放大，且圆形也随之放大。,八、图片框(Picture

13、 Box),程序代码： Dim x, y As Integer Dim r, r1 As Integer Private Sub Form_Resize() Picture1.Height = Form1.Height - 500 Picture1.Width = Form1.Width - 300 End Sub,八、图片框(Picture Box),Private Sub Picture1_Paint() Picture1.Cls x = Picture1.Width / 2 y = Picture1.Height / 2 If x y Then r1 = y Else r1 = x En

14、d If For r = 0 To r1 Picture1.Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next r End Sub,1滚动条的创建和作用 举例说明 2Value属性 功能：滚动条的值。 3LargeChange属性 功能：用于设置当用户单击滚动条和滚动条箭头之间的区域时Value值的改变量。,九、滚动条(ScrollBar),4SmallChange属性 功能：用于设置当用户单击滚动条箭头时Value值的改变量。 5Min属性 功能：设置Value属性的最小值。 6Max属性 功能：设置Value属性的最大值。

15、,九、滚动条(ScrollBar),7举例 图片滚动,九、滚动条(ScrollBar),举例说明框架的功能,十、框架(Frame),1对话框创建方法和功能 举例说明 2方法 Showopen 在屏幕上显示“打开”对话框 ShowSave 在屏幕上显示“保存”对话框 ShowColor 在屏幕上显示“颜色”对话框 ShowFont 在屏幕上显示“字体”对话框 ShowPrinter 在屏幕上显示“打印选项”对话框 ShowHelp 在屏幕上显示“帮助”对话框,十一、对话框(Common Dialog)(外挂),3Showopen方法和ShowSave方法的常用属性 Filename 返回文件名及

16、路径 Dialagtitle 更改公共对话框的标题 Filter 确定文件类型 Initdir 确定初始化目录路径，默 认为当 前目录 举例说明其功能,十一、对话框(Common Dialog)(外挂),4举例 例：首先创建一个窗体Form1，在窗体中创建一个文本框Text1、一个对话框CD1，一个按钮Command1，并将按钮的Caption属性设置为“打开文本文件”，然后编写程序，当用鼠标单击“打开文本文件”时，弹出“打开”对话框，当用鼠标选择一个文本文件时，将其在文本框中显示出来。,十一、对话框(Common Dialog)(外挂),程序代码： Dim buffer As String

17、Dim filename As String Dim filesize As Long Cd1.ShowOpen filename = Cd1.filename filesize = FileLen(filename) Open filename For Input As #1 Do While Not EOF(1) Line Input #1, buffer Text1.Text = Text1.Text & buffer & Chr(13) & Chr(10) Loop Close #1,5ShowColor方法的常用属性 Color 返回选择的颜色 例：在上例中创建一个按钮Command

18、2，并将其Caption设置为“设置文字颜色”，然后编写程序任意改变文本框中的文字颜色。 代码： CD1.ShowColor Text1.ForeColor = CD1.Color,十一、对话框(Common Dialog)(外挂),6ShowFont方法及其常用属性 例：在上例中创建一个按钮Command3，并将其Caption设置为“设置字体”，然后编写程序任意改变文本框中的文字字体、字型和字号。 代码： CD1.Flags = cdlCFBoth CD1.ShowFont Text1.Font = CD1.FontName Text1.FontBold = CD1.FontBold Te

19、xt1.FontItalic = CD1.FontItalic Text1.FontSize = CD1.FontSize,十一、对话框(Common Dialog)(外挂),7ShowPrinter方法 举例说明 8ShowHelp方法 Cd1.HelpFile = c:windowshelpwindows.HLP Cd1.HelpCommand = cdlHelpContents Cd1.ShowHelp 显示 Visual Basic 帮助目录主题。,十一、对话框(Common Dialog)(外挂),1计时器控件的创建和作用 举例说明 2Interval属性 功能：设置执行Timer事件的毫秒数。 3举例： 闪动标签,十二、计时器(Timer),例：首先创建一个窗体Form1，在创建三个按钮Command1、 Command2和Command3，并将其Caption属性分别设置为“控件1”、“控件2”和“开始移动