简单的VisualBasic程序设计.ppt

第3章 简单的Visual Basic 程序设计,2019/5/31,机械工业出版社,2,3.3.3 基本控件,文本框（TextBox） 文本框控件通常用于用户输入数据，也可用于输出数据。不论输入数据还是输出数据，都是通过对文本框的Text属性赋值来实现的。 常用属性 Text属性 Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。,2019/5/31,机械工业出版社,3,3.3.3 基本控件,Text属性 Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。 MultiLine属性 默认时，MultiLine属性为False，表示只允许单行输入，并忽略Enter键的作用； 当MultiLine属性为True时，表示允许多行输入。,2019/5/31,机械工业出版社,4,3.3.3 基本控件,MaxLength属性 MaxLength属性用来设置文本框中允许输入的最大字符数。 默认值为0，表示没有字符数限制。若给该属性赋一个具体的值，该数值就作为文本的长度限制； 当输入的字符数超过设定值时，文本框将不接受超出部分的字符，并发出警告声。,2019/5/31,机械工业出版社,5,3.3.3 基本控件,PasswordChar属性 设置PasswordChar属性用于掩盖文本框中输入的字符，常用于口令的输入。 默认值为空，此时输入的字母按原样显示在文本框中。 若此属性值设置为非空字符，则输入字符用该非空字符显示在文本框中。,2019/5/31,机械工业出版社,6,3.3.3 基本控件,ScrollBars属性 ScrollBars属性指定是否在文本框中添加水平和垂直滚动条，属性值有： 0-None：默认值，文本框没有滚动条。 1-Horizontal：文本框只有水平滚动条。 2-Vertical：文本框只有垂直滚动条。 3-Both：文本框同时拥有水平和垂直滚动条。,2019/5/31,机械工业出版社,7,3.3.3 基本控件,SelStart属性 SelStart属性用于定义当前选择的文本的起始位置，第一个字符的位置为0，依次类推。该属性只能在程序中进行设置。 SelLength属性 SelLength属性用于设置或返回文本框中当前选中的字符个数，该属性只能在程序中进行设置和返回。,2019/5/31,机械工业出版社,8,3.3.3 基本控件,SelText属性 用于设置或返回文本框中当前选中的文本内容，该属性只能在程序中进行设置和返回。 Locked属性 用于设置文本框的内容是否可以编辑，属性值有： True：默认值，不能编辑文本框中的文本内容。 False：可以编辑文本框中的文本内容。,2019/5/31,机械工业出版社,9,3.3.3 基本控件,常用方法 文本框常用SetFocus方法把光标移到指定的文本框中，使之获得焦点。当使用多个文本框时，用该方法可把光标移到所需要的文本框中。 其语法格式如下： 文本框名.SetFocus 常用事件,2019/5/31,机械工业出版社,10,3.3.3 基本控件,Change事件 当用户在文本框中输入新内容，或程序对文本框的Text属性重新赋值，从而改变文本框的Text属性值时触发该事件。 GotFocus事件 用鼠标单击文本框对象，或使用Tab键移动焦点，或使用SetFocus方法将焦点设置到文本框时触发该事件，称为“获得焦点”事件。,2019/5/31,机械工业出版社,11,3.3.3 基本控件,LostFocus事件 当用户按下Tab键光标离开文本框，或用鼠标选择其他对象时触发该事件，称为“失去焦点”事件。 KeyPress事件 当用户击键（ANSI键，即能在ASCII码表里找到的键）一次（包括按下，再释放）时，就会触发KeyPress事件。,2019/5/31,机械工业出版社,12,3.3.3 基本控件,【例1】设计应用程序，在窗体上添加3个文本框，使用默认属性。要求当用户单击窗体时，文本框1中显示字符串“Microsoft Visual Basic”，而文本框2和文本框3中分别显示此字符串的小写字母串和大写字母串，程序的运行结果如图3-20所示。,图3-20 【例3-6】运行结果,2019/5/31,机械工业出版社,13,3.3.3 基本控件,分析： 在窗体的Click事件过程中通过设置文本框Text1的Text属性可实现文本框Text1的输出。使用文本框Text1的Change事件过程可将文本框Text1中的字符串分别转换为小写、大写并在文本框Text2和文本框Text3中输出。将字符串转换为小写、大写使用系统函数LCase(strs)、UCase(strs)。,2019/5/31,机械工业出版社,14,3.3.3 基本控件,设计界面 创建工程，在窗体上放置3个文本框。 设置对象属性 编写代码,2019/5/31,机械工业出版社,15,3.3.3 基本控件,Private Sub Form_Click() Text1.Text = “Microsoft Visual Basic“ End Sub Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Sub,2019/5/31,机械工业出版社,16,3.3.3 基本控件,命令按钮（CommandButton） 命令按钮常常用它来接受用户的操作信息，激发某些事件，实现一个命令的启动、中断和结束等操作。 常用属性 Caption属性 默认属性，该属性用来于决定命令按钮的标题，即显示在命令按钮上的文本信息。,2019/5/31,机械工业出版社,17,3.3.3 基本控件,Default属性 Default属性用于确定哪一个命令按钮是窗体的缺省命令按钮，属性值有： True：指定该命令按钮为窗体的缺省命令按钮。 False：默认值，指定该命令按钮不为窗体的缺省按钮。,2019/5/31,机械工业出版社,18,3.3.3 基本控件,Style属性 Style属性用于设置按钮的显示模式，属性值有： 0-Standard：默认值，标准模式，只能显示Caption表述的文字。 1-Graphical：图形模式，可以显示图形，也可以显示文字。,2019/5/31,机械工业出版社,19,3.3.3 基本控件,Picture属性 用于设置按钮可显示图片文件。 只有当Style属性为1（Graphical）时，该属性才有意义。用于指定图形模式下按钮上显示的图形。 常用事件 对命令按钮控件来说，Click事件是最重要的触发方式。,2019/5/31,机械工业出版社,20,3.3.3 基本控件,【例2】设计一个如图3-22所示的乘法器。要求程序运行时，当用户单击“求积”按钮，求出被乘数和乘数的积；当用户单击“清除”按钮时，清除文本框中的内容；当用户单击“退出”按钮时，退出应用程序。,图3-22 【例3-7】运行界面,2019/5/31,机械工业出版社,21,3.3.3 基本控件,分析： 在“求积”按钮的Click事件过程中编写将前两个文本框的Text属性值求积并赋值给第3个文本框的Text属性的代码。 但文本框的Text属性值为字符型，首先需要使用内部函数Val(string)将它转换为数值型。,2019/5/31,机械工业出版社,22,3.3.3 基本控件,设计界面 创建工程，在窗体上需放置3个命令按钮、3个文本框和3个标签。 设置对象属性,2019/5/31,机械工业出版社,23,3.3.3 基本控件,编写代码,2019/5/31,机械工业出版社,24,3.3.3 基本控件,Private Sub Command1_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ End Sub Private Sub Command3_Click() End End Sub,2019/5/31,机械工业出版社,25,3.3.3 基本控件,【例3】设计应用程序，在窗体上添加2个文本框Text1和Text2，Text1可输入多行文字，Text2用作剪贴板且运行时不可见，4个命令按钮：“剪切”、“复制”、“粘贴”和“结束”，设计界面如图3-23所示。要求程序运行时，当用户在文本框Text1中输入多行文字，并在其中选中一部分时，就可以利用这些按钮进行文字编辑处理。,2019/5/31,机械工业出版社,26,3.3.3 基本控件,分析： 设置Text2的Visible属性值为False可实现其运行时不可见。 使用Text1的SelText属性将当前选中的文本内容赋值给剪贴板Text2的Text属性，然后设置Text1的SelText属性值为空串可实现剪切功能。,图3-23 【例3-8】设计界面,2019/5/31,机械工业出版社,27,SelText属性 用于设置或返回文本框中当前选中的文本内容，该属性只能在程序中进行设置和返回。,2019/5/31,机械工业出版社,28,3.3.3 基本控件,将Text2的Text属性值连接在Text1的Text属性值上可实现复制功能。 设计界面 创建工程，在窗体上需添加2个文本框，4个命令按钮。 设置对象属性,2019/5/31,机械工业出版社,29,3.3.3 基本控件,编写代码,2019/5/31,机械工业出版社,30,3.3.3 基本控件,Private Sub Command1_Click() Text2.Text = Text1.SelText Text2的文本内容为Text1中当前选中的文本 Text1.SelText = “ End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText End Sub,2019/5/31,机械工业出版社,31,3.3.3 基本控件,Private Sub Command3_Click() Text1.Text = Text1.Text + Text2.Text “+“：把两个字符串首尾连接成一个字符串 End Sub Private Sub Command4_Click() End End Sub,2019/5/31,机械工业出版社,32,3.4 焦点,焦点的概念 焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可以接收用户的输入。 获得焦点的方法 单击控件。 按Tab键进行选择。 在代码中使用SetFocus方法，其格式为： 对象名.SetFocus。,2019/5/31,机械工业出版社,33,3.4 焦点,失去焦点的方法 运行时用Tab键移动、用访问键或用鼠标单击选择另一个对象。 在代码中对另一个对象使用SetFocus方法改变焦点。,2019/5/31,机械工业出版社,34,3.4 焦点,【例4】已知窗体上有3个文本框Text1、Text2和Text3，要求单击窗体时，焦点位于文本框Text3中，双击窗体时，焦点位于文本框Text2中，如图3-24所示。,图3-24 【例3-9】的运行界面,2019/5/31,机械工业出版社,35,3.4 焦点,Private Sub Form_Click() Text3.SetFocus Text3获得焦点 End Sub Private Sub Form_DblClick() Text2.SetFocus Text2获得焦点，Text3失去焦点 End Sub,2019/5/31,机械工业出版社,36,3.4 焦点,Tab顺序 当窗体上有多个控件时，用鼠标单击某个控件或者用Tab键，就可以把光标移到该控件上，使其成为活动控件（当前控件）。每按一次Tab键，可以使焦点从一个控件移到另一个控件上。所谓Tab顺序，就是指焦点在各个控件之间移动的顺序。 缺省时，Tab顺序由控件建立的先后顺序确定。,2019/5/31,机械工业出版社,37,3.5 Visual Basic应用程序的结构和工作方式,3.5.1 Visual Basic应用程序的结构 一个Visual Basic应用程序也称为一个工程，工程用来管理构成应用程序的所有文件。 创建Visual Basic应用程序的第一步即是创建一个工程（Project），相应的文件称为工程文件（扩展名为.vbp），它一般由窗体模块文件（*.frm）、标准模块文件（*.bas）和类模块文件（*.cls）组成，如图3-26所示。,2019/5/31,机械工业出版社,38,3.5.1 Visual Basic应用程序的结构,窗体文件 具有可视化界面，每个窗体文件（也称窗体模块）包含窗体本身的属性、方法和事件过程（即代码部分，其中含有为响应特定事件而执行的指令）。,图3-26 Visual Basic应用程序的组成,2019/5/31,机械工业出版社,39,3.5.1 Visual Basic应用程序的结构,标准模块文件 没有可视化界面，只包含用户自定义的变量、自定义的子过程和自定义的函数过程等代码模块。 类模块文件 没有可视化界面，只包含用于描述类结构（属性和方法）代码模块。,2019/5/31,机械工业出版社,40,3.5.1 Visual Basic应用程序的结构,Visual Basic应用程序中窗体文件、标准模块文件和类模