VisualBasic 程序设计教程 教学课件 作者 刘莲英 第2章 界面设计基础

数字逻辑界面设计基础及创建程序步骤本章主要内容2.1界面设计基础2.2创建VisualBasic应用程序的步骤第2章数字逻辑2.1界面设计基础 在可视化编程环境中，编制应用程序的步骤是： 设计界面 面向对象编写程序代码 在界面设计中必不可少的是窗体，通常还会在窗体上添加命令按钮、标签和文本框等控件。 另外还有其他控件，将在后面章节中介绍。数字逻辑窗体窗体（Form）就是窗口，各种控件对象必须建立在窗体上，在保存应用程序时，一个窗体对应一个窗体文件。1.窗体的结构数字逻辑2.窗体的属性常用的窗体属性有：（1）Name（名称）属性指定窗体的名称，在程序代码中用这个名称引用该窗体。例如：form1.print“ok”窗体名方法第一个窗体的名称缺省值为form1，第二个窗体的名称缺省值为form2，通常要给Name属性设置一个有实际意义的名称，便于识别。数字逻辑2.窗体的属性（续）（2）Caption属性：设置窗体标题栏显示的文本。（3）Font属性组：设置窗体上字体的样式、大小、字形等。通过属性窗口设置：数字逻辑程序中设置：见下表数字逻辑例如：下面程序的运行结果如图所示。PrivateSubForm_Click()Form1.FontName="黑体"Form1.FontSize=40Print"字体设置"Form1.FontItalic=True'斜体Form1.FontBold=True'粗体Print"字体设置"EndSub数字逻辑2.窗体的属性（续）（4）Enabled属性：决定控件是否可操作。True：允许用户进行操作（缺省值）。False：呈暗淡色，禁止用户进行操作。注意：如果窗体或其他容器对象无效，容器中的所有控件也将无效。例如：单击窗体时，命令按钮CmdOK有效性改变为无效。PrivateSubForm_Click()CmdOK.Enabled=falseEndSub数字逻辑（5）Visible属性：决定控件是否可见。True：运行时控件可见（缺省值）。False：运行时控件隐藏，用户看不到，但控件本身是存在的。（6）BackColor属性：用于设置窗体的背景颜色。（7）ForeColor属性：用于设置在窗体中显示图片和文本的颜色。（8）MaxButton属性：值为Ture时有最大化按钮。（9）MinButton属性：值为Ture时有最小化按钮。2.窗体的属性（续）数字逻辑3.窗体的事件与窗体有关的事件有30多个，掌握常用事件。（1）Click/DblClick：单击/双击窗体。（2）Load：窗体被装入时触发的事件。该事件通常用来在启动应用程序时对属性和变量进行初始化。（3）Unload事件：卸载窗体时触发该事件。（4）Activate事件：当窗体变为活动窗体时触发该事件。数字逻辑窗体常用的方法有：打印输出Print移动Move清除Cls显示Show隐藏Hide等方法。4.窗体的方法方法是面向对象的，使用的形式:[对象.]方法方法是VisualBasic系统为编程者提供的用来完成特定功能的过程或 函数 excel方差函数excelsd函数已知函数     2 f x m x mx m      2 1 4 2拉格朗日函数pdf函数公式下载 。数字逻辑（1）Print方法功能：在窗体上输出信息。调用格式:[窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][;|,]说明： 若窗体名省略，则在当前窗体上输出。如果在立即窗口使用print方法可省略对象名或写debug。 Spc(n)函数：输出n个空格。4.窗体的方法（续）数字逻辑4.窗体的方法（续） Tab(n)函数：表达式的值从第n列输出。当n小于当前的输出位置时，则新的输出位置为下一行的第n列。 ;（分号）：光标定位在上一个输出项的后面。 ,（逗号）：光标定位在下一个输出段的开始位置。每个输出段占14列。 [;|,]缺省：自动换行。【例2-2】在Form1窗体的单击事件中写入如下代码：数字逻辑PrivateSubForm_Click()Print"*****************************"PrintTab(5);"这学期我们学习VB"PrintTab(5);"VB的全称是：";"Visual","Basic"Print'空一行PrintTab(5);"Visual的意思是";"视觉的";Print"或可视的"PrintPrintTab(5);"教学方式";Tab(20);"课时"PrintPrintSpc(4);"课堂教学";Tab(20);30PrintSpc(6);"上机";Tab(20);24Print"*****************************"EndSub程序代码：数字逻辑单击窗体后程序的运行结果如图（a）所示。数字逻辑如果将程序中的第7行语句：Print"或可视的"修改为：PrintTab(5);"或可视的"程序的运行结果如图（b）所示。数字逻辑（2）Cls（清除）方法功能:清除运行时在窗体中显示的文本或图形。调用格式：[窗体名.]Cls说明:不清除在设计时的文本和图形。例如：单击窗体，清除窗体上的输出信息。PrivateSubForm_Click()ClsEndSub4.窗体的方法（续）数字逻辑（3）Move（移动）方法功能：在屏幕上移动窗体并可改变其大小。调用格式：[窗体名.]Move左边距离[,上边距离[,宽度[,高度]]]说明：左边距离、上边距离、宽度、高度均为数值表达式，以twip为单位。“左边距”和“上边距”是以屏幕边界为准。4.窗体的方法（续）数字逻辑例：使用Move方法移动一个窗体。双击窗体，窗体移动并定位在屏幕的左上角，同时窗体的长宽也缩小一倍。在Form1窗体的“代码”窗口中输入下列代码：PrivateSubForm_DblClick()Form1.Move0,0,Form1.Width/2,Form1.Height/2EndSub4.窗体的方法（续）当前窗体可以省略数字逻辑命令按钮（CommandButton）命令按钮常用来接受用户的操作信息，当用户单击命令按钮后开始进行一个特定的操作，如程序的运行或结束等。1．属性命令按钮的主要属性有：⑴Caption属性设置命令按钮上显示的文本。还可以给命令按钮定义一个快捷键。数字逻辑命令按钮（续）例如：显示“Ok”Caption：Ok显示“Ok”Caption:&Ok快捷键Alt+O。数字逻辑（2）Default属性（逻辑值）当命令按钮的Default属性设置为True时，在程序运行过程中，用户按Enter键相当于用鼠标单击了该按钮。命令按钮（续）例如：界面如图，如果将“登记”按钮的Default属性设置为True，当用户在文本框中输入完信息后可直接按Enter键，相当于按“登记”按钮。数字逻辑（3）Cancel属性（逻辑值）命令按钮的Cancel属性设置为True时，不管窗体上的哪一个非命令按钮控件具有焦点，只要用户按下Esc键，就相当于单击了该按钮。命令按钮（续）例如：如果将“结束”按钮的Cancel属性设置为True，用户按Esc键相当于按“结束”按钮。通常将“取消”按钮的Cancel属性设置为True。数字逻辑⑷Value属性该属性在设计时无效。程序运行时，通过将命令按钮的Value属性设置为True，就可以触发该命令按钮的Click事件，相当于单击该命令按钮。⑸Style属性确定命令按钮的显示形式。0：只能显示文字；1：可以显示图形或设置颜色。命令按钮（续）数字逻辑命令按钮（续）⑹Picture属性当命令按钮的Style属性值设置为1时，通过该属性指定命令按钮上显示的图片。另外，下面这些基本属性与窗体的属性使用相同：Name（名称）、Height（高）、Width（宽）、Top及Left（相对容器左上角的坐标值）、Enabled（控件是否可用）、Visible（控件是否可见）、Font（字体）。数字逻辑命令按钮（续）2.事件 最常用的是单击（Click）事件，一般也只对该事件进行编程。 在设计模式下，双击命令按钮则打开代码窗口，并显示命令按钮的Click事件过程模版，编程者可以直接在过程体内写程序代码。数字逻辑命令按钮（续）【例2-3】单击窗体上的“显示”按钮，窗体上显示“同学们好！”，如图（a）所示。单击“清除”按钮，清除窗体上显示的信息，如图（b）所示。数字逻辑操作步骤如下：⑴界面设计：在窗体上添加2个命令按钮并设置各对象的主要属性。⑵代码设计：打开代码窗口，编制命令按钮的单击事件过程。代码如下：PrivateSubCommand1_Click()Print"同学们好！"EndSubPrivateSubCommand2_Click()ClsEndSub数字逻辑3．方法命令按钮的方法用得比较少，在此介绍一个方法。⑴Setfocus（设置焦点）方法功能：该方法用于设置指定的命令按钮获得焦点。例如，使命令按钮Command1获得焦点的语句为：Command1.setfocus命令按钮（续）数字逻辑标签（Label） 标签用来显示文本信息，用户不能在标签内输入文本也不能对标签内的文本进行编辑。1．属性⑴Caption属性设置标签中显示的文本。⑵Alignment属性用于设置Caption属性中文本的对齐方式：0-LeftJustify：左对齐。1-RightJustify：右对齐。2-Center：居中对齐。数字逻辑标签（续）⑶BorderStyle属性用于设置标签控件是否有边框。0：标签无边框；1：标签有固定单边框。⑷BackStyle属性用于设置标签的背景是否透明。0：背景透明，标签后的背景和图形可见；1：背景不透明，标签后的背景和图形不可见。数字逻辑标签（续）⑸AutoSize属性用于确定标签是否会随标题内容的多少自动调整标签的大小。True：自动调整标签本身的大小；False：标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。另外，下面这些基本属性与窗体的属性使用相同：Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等。数字逻辑标签（续）【例2-5】设计一个窗体，窗体上有1个标签和3个命令按钮，如图2-7（a）所示。程序运行后标签中显示红色的“校园新闻”，之后每单击窗体上的“放大”按钮，标签中的字放大并向窗体的下方移动30twip，运行结果如图2-7（b）~图2-7（d）所示；每单击窗体上的“缩小”按钮，标签中显示“开始播报”并向窗体的上方移动30twip，运行结果如图2-7（e）~（f）所示。数字逻辑例2-5（续）图2-7标签属性的使用数字逻辑例2-5（续）操作步骤如下：⑴在窗体上添加3个命令按钮和1个标签控件。⑵通过属性窗口设置3个命令按钮的Caption属性和Font属性，各控件的其他主要属性在程序代码中设置。设计界面如图2-7（a）所示。⑶双击窗体或命令按钮，打开代码窗口，编制各命令按钮的单击事件过程。代码如下：数字逻辑PrivateSubForm_Load()Label1.AutoSize=TrueLabel1.Left=100Label1.Top=100Label1.ForeColor=&HFF&‘标签前景色是红色Label1.Alignment=0‘左对齐Label1.FontSize=9Label1.Caption="校园新闻"EndSubPrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize+3Label1.Top=Label1.Top+30‘向下移动30twipEndSub数字逻辑PrivateSubCommand2_Click()Label1.Alignment=1‘右对齐Label1.Caption="开始播报"Label1.FontSize=Label1.FontSize-3Label1.Top=Label1.Top–30‘向上移动30twipEndSubPrivateSubCommand3_Click()Label1.Left=100Label1.Top=100Label1.Alignment=0Label1.FontSize=9Label1.Caption="校园新闻"EndSub数字逻辑标签（续）2.事件 标签可响应单击（Click）和双击（DblClick）事件，但一般情况下不对它们进行编程。3.方法 标签控件支持Move方法，用于实现标签的移动。使用方法与窗体的Move方法基本相同。数字逻辑文本框（TextBox） 文本框控件是一个文本编辑区域，在该区域可以输入、编辑和输出文本内容。1．属性⑴Text属性用于设置文本框中显示的文本。注意：文本框没有Caption属性。⑵MultiLine用于设置文本框是否以多行方式显示文本。False：单行显示。（默认）True：多行显示。数字逻辑文本框（续）⑶Maxlength设置文本框中最多字符个数。默认值为0，表示无字符个数的限制。⑷ScrollBars用于设置当文本框中的文本超长时，文本框是否可加滚动条。0-None：无滚动条。1-Horizontal：有水平滚动条。2-Vertical：有垂直滚动条。3-Both：有水平和垂直滚动条。注意：当MultiLine为True时，该属性才有效。数字逻辑文本框（续）⑸Locked用于设置文本框中的文本是否可被编辑。False：表示可以被编辑；（默认值）True：只能输出而不能输入。⑹PassWordChar设置该属性是为了掩盖文本框中输入的字符。例如：在文本框中输入时显示为*，则将该属性值设置为“*”，而Text属性值仍是用户输入的文本。如果要恢复正常显示，将该属性值设为空串即可。数字逻辑文本框（续）⑺SelStart、SelLength和SelText属性这三个属性是针对文本框中文本的编辑属性。SelStart：确定在文本框中选定文本的起始位置。第一字符的位置为0。SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。SelText：设置或返回当前选定文本字符串。例如：单击Command1，在窗体中显示文本框中被选中文本的起始位置、字符个数及选定文本字符串。数字逻辑PrivateSubCommand1_Click()PrintText1.SelStartPrintText1.SelLengthPrintText1.SelTextEndSub另外，下面这些属性与窗体的属性使用相同：Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor。文本框（续）数字逻辑3.事件⑴Change事件 当改变文本框的Text属性时会引发该事件。例如有如下程序代码：PrivateSubText1_Change()PrintText1.textEndSub 当程序运行后，在文本框中输入“ABCD”，则在窗体上输出结果是？文本框（续）AABABCABCD数字逻辑⑵KeyPress事件在文本框中每键入一个字符，就会触发一次该事件，并将字符的Ascii值传送给该事件过程的KeyAscii参数。例如：PrivateSubText1_KeyPress(KeyAsciiAsInteger)PrintKeyAscii,Chr(KeyAscii)EndSub在程序运行中输入ABCD，则在窗体上输出？65 A66 B67 C68 D文本框（续）数字逻辑⑶LostFocus（失去焦点）事件 当用户用“Tab”键或鼠标选择其他对象而离开文本框控件时，触发该事件。 通常用该事件检查文本框中的内容。⑷GotFocus（获得焦点）事件 控件获得焦点时发生。文本框（续）数字逻辑4.常用方法文本框最常用的方法是：SetFocus。使用形式：[对象.]SetFocus功能：把光标移到指定的文本框对象中。文本框（续）数字逻辑2.2创建VB应用程序的步骤 通过前面的例子可以归纳出创建VisualBasic应用程序的步骤如下：⑴新建工程。⑵界面设计。⑶编写程序代码。⑷运行与调试程序。⑸保存工程。 下面通过一个例子再进一步详细介绍建立VisualBasic应用程序的方法。数字逻辑2.2创建VB应用程序的步骤（续）【例2-6】设计一个能够实现两个数的加、减、乘、除的计算器。设计界面如图2-8（a）所示，运行界面如图2-8（b）和（c）所示。（a）（b）图2-8计算器的界面（c）数字逻辑2.2创建VB应用程序的步骤（续）1.新建工程2.界面设计 在窗体上添加控件：2个标签（1个标签中显示“结果”，另一个标签显示计算结果）、2个文本框（用于输入参加计算的数据）和6个命令按钮。 通过属性窗口按表2-5设置各对象的主要属性3.编写程序代码打开代码窗口常采用以下方法：⑴双击要编写事件过程的命令按钮或窗体。⑵在工程资源管理窗口单击“查看代码”按钮。数字逻辑代码如下：PrivateSubCommand1_Click()'“＋”命令按钮Label2.Caption=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click()'“－”命令按钮Label2.Caption=Val(Text1.Text)–Val(Text2.Text)EndSubPrivateSubCommand3_Click()'“×”命令按钮Label2.Caption=Val(Text1.Text)*Val(Text2.Text)EndSub……'“÷”命令按钮单击事件数字逻辑PrivateSubCommand5_Click()'“清除”命令按钮Text1.Text="" Text2.Text=""Label2.Caption="" Text1.SetFocus '将焦点定位于Text1中EndSubPrivateSubCommand6_Click()'“退出”命令按钮End '结束程序运行EndSub数字逻辑2.2创建VB应用程序的步骤（续）4.运行与调试程序5保存工程 单击保存按钮，或选择“文件”菜单中的“保存工程”命令。如果是第一次保存工程，系统显示“文件另存为”对话框。 选择窗体文件保存的位置、输入文件名后单击保存按钮。 系统显示“工程另存为”对话框，选择工程文件保存的位置、输入工程文件名后，单击“保存”按钮。数字逻辑2.2创建VB应用程序的步骤（续） 如果不再调试该程序：可以选择“文件”菜单中的“移除工程”命令，卸载该程序，继续设计另一个程序。 若要修改或运行已经保存的工程：执行“文件”—“打开工程”命令，或单击打开按钮。系统显示“打开工程”对话框。也可以在“我的电脑”或“资源管理器”中打开文件，即双击工程文件名（扩展名为vbp）。数字逻辑2.2创建VB应用程序的步骤（续）6.生成可执行程序生成可执行程序的方法是：⑴执行“文件”—“生成xxx.exe”命令（xxx为工程文件名。⑵在“生成工程”对话框中，选择可执行程序保存的位置、输入文件名后单击确定按钮。