2.3窗体和基本控件（课件）-《程序设计基础（Visual Basic）》同步教学（电子工业出版社）

项目２Visual Basic简单的程序设计 任务1 对象与类 任务2 建立简单的应用程序 任务3 窗体和基本控件 1 项目导入 2 Visual Basic（VB）对象是代码和数据的组合，可以作为一个单位来处理。对象可以是应用程序的一部分，比如可以是控件或窗体，整个应用程序也是一个对象。 在VB程序设计中，基本的设计机制就是：改变对象的属性、使用对象的方法、为对象事件编写事件过程。程序设计时要做的工作就是决定应更改哪些属性、调用哪些方法、对哪些事件作出响应，从而得到希望的外观和行为。 项目2通过3个任务来了解Visual Basic的一些基本概念，认识Visual Basic 语言的开发环境及建立应用程序的方法。 项目目标 了解Visual Basic可视化编程的一些概念。 理解Visual Basic对象的三要素以及程序的组成。 掌握窗体和基本控件的常用属性、事件。 掌握程序设计的一般步骤，能够建立一个简单的Visual Basic 应用程序。 3 任务3 窗体和基本控件 【任务目标】 掌握Visual Basic控件的通用属性。 掌握窗体的主要属性、事件和方法。 掌握标签控件、文本框、命令按钮的主要属性及常用事件。 【任务实施】 4 5 1．常用属性 Visual Basic控件的一些通用属性： （1）Name名称属性。 创建的对象名称，有默认的名。在程序中，控件名是作为对象的标识而引用的，不会显示在窗体上。 （2）Caption标题属性。 该属性决定了控件上显示的内容。 （3）Height、Width、Top和Left属性。 分别表示控件的高度、宽度，以及控件顶部、左边与窗体顶部、左边之间的距离，如图2-8所示。 6 图2-8 控件的位置 7 （4）Enabled属性。 该属性决定窗口对象是否有效，其默认值为True。该属性的值为True时，表示允许用户操作窗口，并对操作做出响应；该属性的值为False时，表示禁止用户操作窗体，即窗体呈灰色。 （5）Visible属性。 该属性决定对象是否可见，其默认值为True。该属性的值为True时，程序运行时窗体可见；该属性的值为False时，程序运行时该窗体隐藏，即不可见，如图2-9所示。 8 图2-9 Visible属性 该属性也可以在程序中改变，格式如下： 标签名.Visible=True/False 9 （6）Font属性。 该属性决定窗体和控件上文本的大小和外观，如图2-10所示。 图2-10 Font属性 10 字体属性见表2-2。 表2-2 字体属性 属 性 名 称 属 性 名 称 FontName 字体 FontSize 字体大小 FontBold 粗体 FontItalic 斜体 FontStrikethru 删除线 FontUnderline 下画线 ForeColor 前景颜色 BackColor 背景颜色 BackStyle 背景风格 Alignment 控件上正文水平对齐方式 11 【例2.2】在窗体上建立两个命令按钮Command1和Command2， Command1的Font属性通过属性窗口设置，其余属性通过代码实现。 创建用户界面： 选择【文件】→【新建工程】命令，建立一个默认名称为“工程 1”的工程，在此工程中有一个默认名为Form1的窗体。在窗体上添加两个命令按钮Command1和Command2。如图2-11所示。 图2-11 【例2.2】Command按钮和程序界面 12 设置属性： Command1的属性通过属性窗口设置，Command2的属性通过代码窗口设置，效果如图2-12所示。 图2-12 Command1和 Command2的效果 13 编写“取消”按钮Click事件代码如下： Private Sub Command2_Click() Command2.FontName="黑体" Command2.FontSize=10 Command2.FontItalic=True Command2.FontUnderline=True Command2.Enabled=False End Sub 运行程序，效果如图2-13所示。 图2-13 程序运行效果 14 说明： 控件的一些基本操作：在 VB“菜单栏”中有一个“格式”命令，通过它提供的一些功能可以让我们的工作事半功倍。 ①对齐：分别是纵向对齐的“左对齐”“居中对齐”“右对齐”；横向对齐的“顶端”“中间”“底端”对齐；以及面向网格的“网格对齐”。应用“左对齐”命令后的效果如图2-14所示。 ②统一尺寸：以某个控件为参照物，统一其他控件的大小尺寸。 ③水平间距与垂直间距：调整某几个控件的水平间距或垂直间距。 15 图2-14 左对齐效果 16 2．窗体 窗体像一块“画布”，它是所有控件的容器，如图2-15所示。在设计程序时，窗体是程序设计人员的工作平台；在程序运行阶段，窗体则是用户界面的窗口，是 Visual Basic 中的一个重要对象，具有自己的属性、事件和方法。 图2-15 窗体 17 2．窗体 窗体像一块“画布”，它是所有控件的容器，如图2-15所示。在设计程序时，窗体是程序设计人员的工作平台；在程序运行阶段，窗体则是用户界面的窗口，是 Visual Basic 中的一个重要对象，具有自己的属性、事件和方法（1）窗体的属性。 ① Name属性。 Name（名称）属性用来定义窗体的名称，每个窗体都必须有一个 Name 属性，以便在代码中用这个名称引用窗体，它与对象的标题（Caption）属性不一样。 在工程中添加第一个窗体对象时，系统会给窗体 Name 属性的值自动赋一个默认名称：Form1。而以后在同一个工程中添加其他的窗体时，其默认名称为Form2、Form3…。 Name 属性是只读属性，即只能在属性窗口中设置，不能在程序代码中设置。 18 ② Caption属性。 Caption（标题）属性用来定义窗体标题栏上的文字，默认值与默认的对象名相同，该属性既可在属性窗口中设置，也可以在程序代码中设置，在代码中设置该属性的格式如下： [<窗体名称>.] Caption [=字符串] 如： Form1.Caption="登录用户" ③ BorderStyle 属性。 BorderStyle 属性用来确定窗体的边框样式，取值为0～5的整数，Borderstyle属性的设置见表2-3。 19 表2-3 Borderstyle 属性的设置 属 性 值 功 能 0―None 无边框窗体，它不含控制菜单框、标题栏及窗体控制按钮 1―Fixed Single 固定单边框窗体，运行时不能改变窗体的大小 2―Sizable 标准窗体形式，该窗体具有 Windows 标准窗体形式 3―Fixed Dialog 固定对话框窗体形式，窗体的大小不能改变 4―Fixed ToolWindow 固定工具窗体形式，只有一个关闭按钮，并且窗体的大小不能改变 5―Sizable ToolWindow 可改变工具窗体形式，只有一个关闭按钮，并且窗体的大小能改变 VB中窗体的BorderStyle 属性通过代码设置后在程序运行期间不能改变窗体边框样式，因此只能在属性窗口中设置。 20 ④ BackColor（背景色）与 ForeColor（前景色），分别如图2-16和图2-17所示 图2-16 背景色 图2-17 前景色 21 ⑤Height（高度）与Width（宽度）： 这两个属性用来指定窗体的高度与宽度，其单位是Twip，如要让窗体的高度变为200 ，宽度变为300 ，程序代码如下： Private Sub Form_Click() 　 Form1.Height=200 　 Form1.Width=300 End Sub ⑥ Top（顶部）与 Left（左边距）属性： 通过这两个属性可以控制窗体的坐标位置，默认单位是 Twip 。 注意事项： 随着对象不同，Top与Left的意义也不同。当对象是窗体，Top指的是窗体顶部与屏幕顶部的相对距离，Left 指的是窗体左边界与屏幕左边界的间距。 22 （2）窗体的方法。 ① Cls方法。 格式： [<窗体名>.]Cls 功能：清除由Print方法在窗体或图片框中显示的文本或者使用绘图方法在窗体或图片框中显示的图形。 说明：设计时，在窗体中使用Picture 属性设置的背景图形不受 Cls方法的影响。 23 ② Print方法。 格式： [<窗体名>.]Print[<表达式列表>1，……] 功能：Print方法用于在窗口中显示信息。 说明：表达式列表是一个或几个表达式，可以是数值表达式或字符串表达式。 如果是数值表达式，则输出表达式的值；如果是字符串表达式，则原样输出； 如果省略表达式列表，则输出一个 24 ③ Show方法。 格式： [<窗体名>.]Show 功能：用于显示窗体。 ④ Hide方法。 格式： [<窗体名>.]Hide 功能：Hide方法用于隐藏窗体。 25 （3）窗体的事件。 ① Click（单击）事件。 。 ② Load（装入）事件。 ③ Activate（活动）和Deactivate（非活动）事件。 26 3．基本控件 （1）命令按钮CommandButton。 按钮是我们见到的最多的控件，它们有着各种各样的功能：“确认”“取消”“下一步”等，这些都是按钮的表现，另外还有很多图形化的按钮，所有的按钮都可以通过单击（Click）事件实现的，如图2-18所示。 图2-18 Command按钮 27 按钮功能：接受用户输入的命令。 ①常用属性。 Caption：命令按钮显示的内容，可设置快捷键，例&Ok，显示Ok。 Value：检查该按钮是否按下。该属性在设计时无效。 Picture ：按钮可显示图片文件（.bmp和.Ico），当Style为1时有效。 Style：确定显示的形式，0——只能显示文字； 1——文字、图形均可。 ② 常用事件：Click 【例2.3】在窗体上建立两个如图2-19所示的按钮，编写代码将Command1的标题设置为"显示1",字体为20号，黑体，加下画线，斜体，加粗，并且不可使用；Command2的标题设置为"取消"，字体为20号，隶书，斜体。 28 图2-19 【例2.3】程序界面和运行结果 29 程序代码如下： Private Sub Form_Click() Command1.Caption="显示1" Command1.FontName="黑体" Command1.FontSize=20 Command1.FontBold=True Command1.FontItalic=True Command1.FontUnderline=True Command1.Enabled=False Command2.FontName="隶书" Command2.Enabled=True Command2.FontItalic=True Command2.Caption="取消" End Sub　　 按下F5键或者单击工具条上的播放按钮，运行程序，效果如图2-19所示。 30 （2）标签（Label）。 标签用于显示文本（输出）信息，不能作为输入信息的界面，标签及属性如图2-20所示。 图2-20 标签及属性 31 ① 常用属性。 Caption（标题）属性：Caption属性用来设置在标签上显示的文本信息，可以在创建界面时设置，也可以在程序中改变文本信息。 BorderStyle（边框）属性：此属性用来设置标签的边框类型。 有两种值可选：0：标签无边框； 1：标签有边框。 Font（字体）属性：本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。 Alignment（对齐）属性：此属性用来设置标签上显示的文本的对齐方式。 Visible（可见）属性：此属性能设定标签控件是否可见。 32 ② 常用事件： Click 事件（鼠标单击）：用鼠标单击标签时触发的事件。 如改变标签的字体属性： Private Sub Label1_Click() Label1.FontName="隶书" End Sub DblClick 事件（鼠标双击）：鼠标双击引发的事件。 如改变标签的可见性： Private Sub Label1_DblClick() Label1.Visible=False End Sub 33 （3)文本框（TextBox）。 文本框是一个文本编辑区域，可在该区域输入、编辑和显示正文内容，如图2-21所示。 ① 常用属性。 Text：正文内容； MaxLength：设置正文的最多字符个数，0为任意长度值；如图2-22所示。 图2-21 文本框 图2-22 文本框的MaxLength属性 34 MultiLine：是否为多行，默认值为False，一行显示，如图2-23所示。 图2-23 文本框的MultiLine属性和ScrollBars属性 35 ScrollBars：（MultiLine为True时，该属性才有效）表示滚动条的形式。 0-None、1-Horizontal、2-Vertical、3-Both，如图2-23所示。 Locked：是否可被编辑属性，默认值为False，表示为可编辑。 PasswordChar：口令字符； 用来指定显示在文本框中的替代字符；通常用于设置口令和密码。 SelStart、SelLength、SelText：选中文本的起始、长度、内容。 ② 常用事件。 Change：当改变文本框的Text属性时会引发该事件。 KeyPress(KeyAscii As Integer)：同上，并可返回一个KeyAscii参数，KeyAscii 为13，按回车键。 36 ③ 常用方法。 [对象.]SetFocus：是把光标移到指定的文本框对象中。 【例2.4】 设计一个计算两数乘法c=a*b的程序，要求用两个文本框分别输入乘数和被乘数，一个文本框输出计算结果，两个按钮分别是【计算】按钮和【清除】按钮。 分析： ①给出被乘数a和乘数b的值。 ②求积：c=a*b。 ③显示积c的结果根据题意，六个对象是必要的：被乘数a、乘数b，单击【计算】按钮算出积，在积c中显示结果，单击【清除】按钮可清除a、b、c 中的值，以便再计算其他乘法，还有容器——窗体。 37 （1）创建用户界面，如图2-24所示。 图2-24 例2.4用户界面和属性设置 （2）设置属性，见表2-4。 控 件 名 标 题 对齐方式（Alignment） 文本（Text） 字体字号（Font） Form1 两数相乘运算 无定义 无定义 宋体规则五号 Text1 无定义 0-Left 空白 宋体规则四号 Text2 无定义 0-Left 空白 宋体规则四号 Text3 无定义 0-Left 空白 宋体规则四号 Label1 被乘数a 2-Center 无定义 宋体粗体四号 Label2 乘数b 2-Center 无定义 宋体粗体四号 Label3 a*b 的值 2-Center 无定义 宋体粗体四号 Command1 计算 无定义 无定义 宋体粗体五号 Command2 清除 无定义 无定义 宋体粗体五号 表2-4 例2.4属性设置 注意：属性表中的“无定义”表示该对象无此属性，“空白”表示无内容。 94 39 （3）单击“计算”按钮程序代码如下： Private Sub Command1_Click() A=Val(Text1.Text) B=Val(Text2.Text) C=A*B Text3.Text=C End Sub 单击“清除”按钮的程序代码如下： Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" End Sub 运行程序与调试。 课堂反馈： 40 1．编一程序，在屏幕上显示“建设美丽中国”，字体大小设为三号、颜色为红色，（见图2-25），单击窗体后，在窗体上显示“绿水青山就是金山银山”，同时窗体上出现两个命令按钮【继续】和【结束】，如图2-26所示，如果单击【继续】按钮，则又回到初始运行状态；单击【结束】按钮即结束程序运行。 图2-25 程序运行后初始界面 图2-26 单击窗体后的程序界面 41 2．设计一个“加法器”程序。程序运行效果如图2-27所示。具体要求如下： （1）窗体的标题为“加法器”。 （2）在窗体上从到下依次引入Text1、Text2两个文本框，两个文本框的对齐方式均为右对齐。 图2-27 “加法器”程序运行效果 42 （3）在窗体上引入两个文本标签Label1、Label2。将Label1用于显示“+”号，Label2显示两数的和，将其边界风格（BorderStyle）设置为1（Fixed Single固定单线边框）。 （4）单击【=】按钮（Command1），将两个加数的和显示在下面一个标签（Label2）中。 （5）单击【清空】按钮（Command2），两个文本框及标签Label2的内容都被清空，同时第一个文本框获得焦点。   项目小结 43 项目2从窗体和基本控件的相同的属性、事件出发，通过3个任务要求用户对Visual Basic有一个初步的认识。掌握常用控件的常用属性并掌握开发应用程序的一般步骤。 使用Visual Basic开发应用程序的一般步骤为：创建一个新的工程→在Visual Basic 应用程序界面上添加控件→设置窗体和控件的属性→编写事件驱动代码→调试与运行程序→保存工程。 44 课外小知识 夏培肃（1923.7.28—2014.8.27），女，四川省江津市人。电子计算机专家，中国计算机事业的奠基人之一， 被誉为“中国计算机之母”。 1945年毕业于中央大学电机系； 1950年获英国爱丁堡大学博士学位； 1991年当选为中国科学院院士（学部委员）。 夏培肃在20世纪50年代设计试制成功中国第一台自行设计的通用电子数字计算机；从60年代开始在高速计算机的研究和设计方面做出了系统的创造性的成果，解决了数字信号在大型高速计算机中传输的关键问题。她负责设计研制的高速阵列处理机使石油勘探中的常规地震资料处理速度提高10倍以上。她还提出了最大时间差流水线设计原则，根据这个原则设计的向量处理机的运算速度比当时国内向量处理机的快4倍负责设计研制成功多台不同类型的并行计算机。 课后总复习 45 一、选择题 1．在程序中，用以区分每一个对象的标志是（　　）。 A．Caption B．Height C．Name D．Enabled 2．“打开便携式电脑”，其中“电脑”、“便携式”、“打开”依次是下面的哪一项？（　　）。 A．对象、属性、方法 B．属性、对象、方法 C. 属性、方法、对象 D．对象、方法、属性 3．要改变一个窗体的标题内容，需重新设置的窗体属性是（　　）。 A．Name B．Caption C．Borderstyle D．Enable 46 4．窗体 Form1 的名称属性值为Myform，它的 Load 事件过程名是（　　）。 A．Form1_Load( ) B．Form_Load( ) C．Me_Load D．Myform_Load 5．在Visual Basic中，命令按钮最常用的 是（　　） A．Change B．Timer C．Load D．Click 6．标签控件的标题和文本框控件的显示文本的对齐方式由（　　）属性决定。 A．WordWrap B．AutoSize C．Alignment D．Style 7．在Visual Basic中，要修改文本框中的文字,应使用（　　）属性 A．Caption B．Text C．Font D．Name 47 8．在文本框中按下回车键接收 KeyPress 事件时，回车所响应的 ASCII 码为（　　）。 A .12 B．14 C．13 D．127 9．用Visual Basic开发程序的一般步骤是（　　） ① 创建应用程序的界面②编写代码③设置属性 ④ 保存文件⑤调试与运行 A．①②③④⑤ B．①②③⑤④ C．①③②⑤④ D．②①③④⑤ 48 10．在窗体（名称为Form1）上添加一个名称为Text1 的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB考试”。以下能实现上述操作的事件过程是（　　）。 A．Private Sub Text1_Change() Command1.Caption=" VB考试" End Sub B．Private Sub Command1_Click() Caption=" VB考试" End Sub C．Private Sub Form1_Click() Text1.Caption=" VB考试" End Sub D．Private Sub Command1_Click() Text1.Text="VB考试" End Sub 49 二、填空题 1．对象所具有的动作和行为称为对象的_______。 2．工程文件的扩展名是 _______，窗体文件的扩展名是 ______，标准模块文件的扩展名是_____。 3．Visual Basic中用于设置对象是否可用的属性名称是_______。 4．在标签框上显示的内容由___________属性来实现。 5．Visual Basic预定义对象常用的事件有单击（Click）、双击（　　）、载入（　　）、改变（　　）等，不同的对象能识别的事件也不一样。 6．窗体的“名称”（Name）属性只能在___________设置。 7．假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是___________。 8．要对文本框中已有的内容进行编辑，按下键盘上的按键，不起作用，原因是设置了___________的属性为True。 50 三、编程 1．创建一个标签（LblShow）、两个按钮（CmdChange1、CmdChange2），单击按钮CmdChange1，标签有边框；单击按钮CmdChange2，标签无边框。 2．设计一个显示信息的窗口（见图2-28），要求在文本框中输入文本信息，单击按钮，文本信息显示在窗体上。 3．设计如图2-29所示窗口，要求单击【显示】按钮时在文本框中显示：北京欢迎你，单击【清除】按钮，清除文本框中的内容，单击【退出】按钮，退出程序。 图2-28 图2-29 $$