《程序设计基础——Visual Basic教程 第2版 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 ppt 作者 周黎 钱瑛 周阳花 第3章 基本控件》由会员分享，可在线阅读，更多相关《程序设计基础——Visual Basic教程 第2版 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 ppt 作者 周黎 钱瑛 周阳花 第3章 基本控件（67页珍藏版）》请在金锄头文库上搜索。
1、程序设计基础 Visual Basic教程,第3章 基本控件,文 本 控 件,按 钮 控 件,选 择 控 件,图 形 控 件,第3章 基本控件,时 钟 控 件,焦 点,综合实例,滚 动 条,控件工具箱,3.1 文 本 控 件,标签 （Label）,文本框 （TextBox）,主要用于在窗体上标注和显示提示信息。,默认名称为LabelN（N为1，2，3）。,主要用于在窗体上输入输出文本信息。,默认名称为TextN（N为1，2，3）。,一、 标签,1常用属性,（1）Alignment属性 0是默认值左对齐。 1右对齐。 2居中对齐。 （2）AutoSize属性 （3）WordWrap属性,注意：如
2、使WordWrap属性生效，则AutoSize属性应设置为True。,例3-1,1常用属性,二、 文本框,（1）Text(文本)：通过获取该属性值来获取用户输入或编辑的数据。 （2）Locked：若取值为True，表示此时文本框中的内容是只读的、不具有交互性，类似于标签，经常用于创建只读文本框 （3）MaxLength(最大长度)：缺省值0, 任意个数字符 在VB中一个西文字符与一个汉字都是长度为1,（4）PasswordChar(口令)：缺省值为空字符串，表示正常显示输入的字符。常与MaxLength属性配合用于创建口令(密码)文本框 。 （5）MultiLine(多行)：属性值为“True
3、”/“False”。该属性不能在程序中改变，当本属性为“True”时，PasswordChar属性设置则无效。,（6）ScrollBars(滚动条)： 缺省值为“0”(无滚动条)； 若该属性设置为“1”，表示有水平滚动条； 若为“2”，表示有垂直滚动条； 若为“3”，表示水平与垂直滚动条两者都有。 本属性只有在MultiLine属性为“True”时才有效 。,（7）SelStart、SelLength和SelText属性 SelStart:选定文本的开始位置，第一个字符是0 SelLength:选定文本的长度 SelText:设定或存放据前两属性设定的文本内容 Text1.SelStart =
4、 1 Text1.SelLength = 3 Text2.Text = Text1.SelText,2方法,（1）SetFocus方法：它能使文本框获得焦点，表现为光标在里面闪动，便于用户进行键盘输入。 （2）Refresh方法：刷新文本框。,3事件,键盘事件过程的一般格式如下：,Private Sub 对象名_ KeyPress（KeyAscii As integer） 程序代码 End Sub Private Sub 对象名_KeyDown(KeyCode As Integer,Shift As Integer) 程序代码 End Sub Private Sub 对象名_KeyUp(Key
5、Code As Integer,Shift As Integer) 程序代码 End Sub,例3-2,Private Sub TxtInput_KeyPress(KeyAscii As Integer) Dim ch As String * 1 ch = Chr(KeyAscii) If ch = “0“ And ch = “A“ And ch = “Z“ Then Txtalpha.Text = Txtalpha.Text + ch End If End Sub,例3-3,Private Sub TxtInput_KeyDown(KeyCode As Integer, Shift As I
6、nteger) Dim ch As String * 1 ch = Chr(KeyCode) If ch = “0“ And ch = “A“ And ch = “Z“ Then Txtalpha.Text = Txtalpha.Text + ch End If End Sub,3.2 按 钮 控 件,1常用属性,创建命令按钮的访问键快捷方式： &访问键 按下Alt+访问键，即可触发命令按钮的单击事件。 “&Close“ 若不创建访问键，但需要在标题中包含“&”连字符，则应设置连续的两个连字符。 “Add&Minus“,（1）Caption(标题)：,（2）Default(确定)：属性值设为“
7、True”，按“Enter”回车键，就等同于单击该命令按钮。 （3）Cancel(取消)： Cancel属性设为“True”，按“Esc”键即等同于单击本按钮。 （4）Enabled(活动)：决定按钮是否响应用户或系统事件。,（6）ToolTipText提示属性,运行时鼠标暂停在控件上时显示的文本信息,（5） Style属性、Picture属性, 1代表图形样式，命令按钮不仅可显示文本，还可通过Picture属性设置显示图片。,Style属性用来设置命令按钮的风格样式： 0代表标准样式，命令按钮只显示文本。,2方法SetFocus方法：设置焦点,3事件Click事件,在程序运行时触发命令按钮单
8、击事件的情况 用鼠标单击按钮。 按Tab键或调用SetFocus方法，将焦点转移到按钮上，然后按空格键或Enter回车键 使用按钮的访问键(Alt+访问键) 命令按钮的Default属性为True的情况下按Enter回车键；命令按钮的Cancel属性为True的情况下按Esc键 用代码设置命令按钮的Value属性为True,Private Sub Form_Load() App.Path用来获取当前应用程序所在的路径 CmdMouse.Picture = LoadPicture(App.Path + “Mouse.jpg“) CmdPrinter.Picture = LoadPicture(A
9、pp.Path + “Printer.jpg“) CmdHPhone.Picture = LoadPicture(App.Path + “Headphones.jpg“) End Sub Private Sub CmdHPhone_Click() Label2.Caption = “耳机属于输出设备！“ End Sub,例3-4,3.3 选 择 控 件,一、 单选按钮、复选框和框架,单选按钮通常成组出现，用户只能选取一项，就象单选题。,复选框单个或多个成组出现，用户可以选定任意数目(0项)的选项，就象不定向选择题。,框架用于将其他控件对象按功能组织成一个可标识的组,（1）Caption：设置选
10、项按钮和复选框的文本注释内容；决定框架的标题名称，若为空，则形成封闭框架。 （2）Value： 选项按钮的Value的取值为True和False，分别表示选中和未选中。 复选框的Value的取值有三种：0表示未选中，1表示选中，2变灰表示暂时不能访问。,1、主要属性,（1）选项按钮、复选框和框架都能接收Click事件 （2）选项按钮或复选框的GotFocus事件 （3）在Frame控件内部创建的控件和框架是一个整体，将随框架容器一起移动、显示、消失和屏蔽,2、主要事件,例3-5,Private Sub Option2_Click() Private Sub Option4_Click() Te
11、xt1.Text = Option2.Caption Text1.Text = Option4.Caption End Sub End Sub,Private Sub Option1_Click() Private Sub Option3_Click() Text1.Text = Option1.Caption Text1.Text = Option3.Caption End Sub End Sub,例3-6 字体设置程序。,Private Sub CheckB_Click() Private Sub CheckU_Click() If CheckB.Value = 1 Then If Che
12、ckU.Value = 1 Then Text1.FontBold = True Text1.FontUnderline = True Else Else Text1.FontBold = False Text1.FontUnderline = False End If End If End Sub End Sub,Private Sub CheckI_Click() Private Sub CheckS_Click() If CheckI.Value = 1 Then If CheckS.Value = 1 Then Text1. FontItalic = True Text1.FontSt
13、rikethru = True Else Else Text1. FontItalic = False Text1.FontStrikethru = False End If End If End Sub End Sub,二、 列表框和组合框,组合框是文本框和列表框功能的组合控件，所以用户可以通过在其文本框中输入，来选择列表项。,列表框仅能为用户提供选择的列表，不能由用户直接输入和修改其中的列表项内容。,（1）List：数组属性，保存和设置每一个列表项内容 列表框或组合框名.List(列表项序号) 列表项序号是为列表项进行的位置编号，从上至下依次为0、1、2,List1.List(0) Lis
14、t1.List(1) List1.List(2) ,1、主要属性,（2）ListCount(运行态属性)：当前列表框中列表项总数通过ListCount-1得到最后一个列表项的序号 （3）ListIndex(运行态属性)：其值是最后选中的列表项位置序号，若未选任何项目，则其值为-1 对象名.List(ListIndex) 访问最后选中的列表项内容 （4）Text (运行态属性) ：其值等同于List(ListIndex) 组合框的Text值还表示用户直接在编辑区输入文本。,（5）Sorted(排序)：取值为True，按各字母表中的次序排序；否则按加入顺序显示。,（1）Columns：取值为0时，
15、列表项单列显示，取值大于0时，列表项多列显示 （2）MultiSelect：决定用户是否可以一次选择列表框中多个列表项；取值0禁止多选；1通过鼠标单击或按空格键选定或取消多个列表项；2通过Shift或Ctrl与鼠标或按空格键配合进行扩展选择。,列表框的特有属性,（3）Selected(运行态属性) ：当选中多个列表项时，列表框名.Selected(列表项序号)形式，值为True表示该序号所对应的列表项选中， “False”表示未选中 （4）SelCount (运行态属性) ：用户同时选中列表项的数目。 （5）Style：控制列表框的外观，取值可以为0(标准形式)和1(复选框形式),Style
16、(风格属性) ：下拉组合框(Style=0) 简单组合框(Style=1) 下拉列表框(Style=2),组合框的特有属性,（1） AddItem方法 用来向列表框中增加项目。 调用格式： 对象名. AddItem 列表项内容 ,插入位置下标,2、主要方法,注意： 若不指定插入位置，则采用追加形式插入到列表尾 该方法一次只能向列表中添加一个列表项 Form_Load事件过程中使用该方法来初始化列表项 。,（3）Clear方法 删除或清空列表框和组合框中所有的列表项。 调用格式：对象名. Clear,（2） RemoveItem方法 用于删除指定位置的列表项。 调用格式：对象名. RemoveItem 删除项下标 注意：该方法一次删除一个列表项,（1）Click：用户通
