应用程序接口设计及代码编写

应用程序接口设计及代码编写编辑ppt一、简单的计算器应用程序任务任务概述界面布局界面设计代码设计计算器应用程序分析编辑ppt二、可视化界面设计基础（一）可视化界面设计概述1、VB应用程序的窗体设计通常分为三种：（1）单窗体：一个应用程序中只包含一个窗体。（2）多窗体：一个应用程序中包含多个窗体。（3）MDI窗体：是一种特殊的多窗体界面，由一个父窗体和众多的子窗体组成。2、使窗体界面美观的基本原则：（1）窗体上的颜色不要过多，否则不易读。（2）若设计多色彩的窗体界面，应尽量采用同一色系的颜色。如：蓝、淡蓝等（3）不要试图在一个窗体上放置过多的信息。（4）尽可能以清晰简明的方式设计窗体。（5）使用适当的颜色、图片来增加窗体的趣味性是必要的，但要适度。（6）界面元素应尽可能一致。即设计时应抛弃使用所有控件的想法。编辑ppt（二）多窗体设计1、添加窗体工程——〉添加窗体2、设置启动窗体（1）启动窗体：应用程序开始运行时首先出现的窗体称为~。默认情况下，创建的第一个窗体为启动窗体。应用程序的执行入口并非必须是某个窗体。（2）通过“工程——工程1属性”

编辑ppt3、窗体的装载和卸载（1）Load语句Load（装载）语句用于把窗体或其他对象装入内存，但不管显示。即LoadForm2等效于Form2.Visible=False注：当使用窗体的Show方法时，VB程序会自动装载窗体，然后才显示该窗体，此时隐含地使用了Load装载语句。

（2）Unload语句该语句可以把窗体或其他对象从内存中卸载。注：对于单窗体应用程序而言Unloadform1等效于End编辑ppt4、多窗体应用程序设计的一般步骤（1）添加应用程序所需的所有的窗体、模块。（2）设置起始窗体，以及多窗体间的调用关系。（3）按单窗体设计方法设计每个窗体。编辑ppt（三）MDI多文档窗体的设计多文档窗体（MDI）时可以同时进行多个文档操作的界面。它允许用户同时打开多个文档，每个文档显示在自己的窗口中，用户可以随意在各个文档渐进性来回切换。目前大多数软件都采用这种界面，比如MicrosoftWord.MDI界面由一个父窗体和多个子窗体组成。父窗体是所有子窗体的容器。1、MDI父窗体一个VB工程中只能由一个MDI父窗体，创建的方法是：（1）打开或新建一个工程，单击“工程”菜单中的“添加MDI窗体”命令。（2）再弹出的“添加MDI窗体”对话框中双击“MDI窗体”图标。（3）这时就会出现一个默认名称为MDIForm1的新窗体。2、MDI子窗体父窗体创建完成后，我们可以通过“工程”菜单添加若干标准窗体，然后将这些标准窗体的MDIChild属性值设置为True，该窗体便成为工程中的MDI子窗体了。

编辑ppt3、MDI子窗体的显示方法（1）静态显示方法是通过在设计应用程序时添加多个窗体来完成的。假设程序中允许用户在MDI父窗体上最多同时打开三个窗体，那么设计时只要添加三个子窗体，在MDI父窗体中通过Show命令显示即可。（2）动态显示方法静态显示方法对设计者来说比较灵活，但最大的缺点是浪费系统资源。当所有子窗体具有相同特征时，就可以采用动态显示方法了。动态显示方法只需要设计一个子窗体，比如Form1，然后通过以步骤就可以实现多子窗体显示了。dimmynewformasnewform1mynewform.show4、MDI界面实例例如P62编辑ppt（四）窗体的运行模式1、模态和非模态显示窗体模态窗体占用整个应用程序的控制。在模态窗体显示状态下，只有关闭该窗体，用户才能与其他窗体进行交互，继续操作应用程序的其他部分。通常用来显示重要信息。如：frmAbout.Show1也可以写成：frmAboutShowvbModel非模态窗体也称常态窗体，用户在跟此窗体进行交互式，还可以切换到其他窗体。如：Form2.Show或写成：Form2.Show0或Form2.ShowVbModeless（1）非模态显示窗体的例子

例P63（2）模态显示窗体的例子例P63.22、最前端显示窗体编辑ppt三、可视化界面高级设计菜单设计框架、单选钮和复选框控件列表框控件组合框控件工具栏、状态栏和图标列表控件通用对话框控件其他常用控件编辑ppt（一）菜单设计1、菜单的基本属性和事件属性：Caption、Name、Index、Enabled、Visible、Check、ShortCut等事件：Click事件2、下拉菜单的基本创建方法3、设置分割条的方法标题（Caption）属性为减号，即“-”4、设置访问件和快捷键的方法（&）5、弹出式菜单的创建方法首先顶级菜单设置为隐藏，然后利用PopupMenu方法显示弹出式菜单例如P66编辑ppt（二）框架、单选钮和复选框控件1、框架控件主要属性：Caption其他属性和事件方法补偿使用2、单选钮和复选框控件（1）单选钮（OptionButton）主要属性：Value为True，被选中；为False，没被选中，一组中只被选中一个。（2）复选框（CheckBox）主要属性：Value为0：为被选中；1：选中；2：禁用复选框例如：P67请大家自己做

编辑ppt（三）列表框控件如果我们希望用户仅仅通过鼠标选择，而不用使用键盘输入相关信息时，就需要使用列表框（ListBox）控件了。例如P68，自己试一试1、常用属性List：用来返回或设置控件的列表部分所包含的项目。List1(0)、List1(1)ListIndex：用来设置或返回控件中当前选定项目的索引。其值为0、1、2，若为-1，则未选定项目List1.List(List1.ListIndex)Text：用来直接返回当前选定项目的文本。List1.Text=List1.List(List1.ListIndex)ListCount：返回列表框中的项目总数目。

编辑ppt2、常用方法AddItem：用来添加新项目格式：List1.AddItem字符串RemoveItem：删除列表框中的项目。如：List1.RemoveItem0或者List1.RemoveItem“计算机应用专业”Clear：用来删除列表中的所有项目。3、常用方法Click事件：编辑ppt（四）组合框控件可以将组合框（ComboBox）控件理解为文本框和列表框控件的功能结合体。有了这个控件，用户既可以从列表中选择项目，也可以在需要时输入项目。组合框主要包括List，ListIndex，Text，ListCount属性和AddItem方法，它们的用法与列表框控件相同。另外，组合框最重要的一个属性是Style，它有0，1，2三个可选值。例如：P70自己试一试编辑ppt（五）工具栏ToolBar、状态栏StatusBar和图标列表ImageLIst控件1、添加控件的方法通过“工程-部件”菜单项进行添加，在部件对话窗中选择“MicrosoftWindowsCommonControls6.0”，后单击“应用”按钮。2、使用实例例如：P72随老师一起操作(1)添加控件。(2)设置ImageList控件。在ImageLIst1上击右键(3)设置ToolBar控件。在ToolBar1上击右键(4)设置StatusBar控件。在StatusBar上击右键(5)添加事件代码。编辑ppt（六）通用对话框控件经常可以见到打开（Open）、保存（Save）、颜色（Color）、字体（Font）、打印（Print）等对话框。如果希望我们所设计的应用程序也具有这种对话框，就可以使用通用对话框(CommonDialog)控件了。首先在部件选择对话窗中选择“MicrosoftCommonDialogControl6.0”复选框，将通用对话框控件添加到工具箱中。该控件在设计阶段时可以看到的，但在运行时是不可见的。ShowOpen、ShowSave、ShowColor、ShowPrinter、ShowFont、ShowHelp例如：P75（七）其他常用控件水平滚动条(HScrollBar)垂直滚动条(VScrollBar)编辑ppt四、代码设计基础变量的声明基本数据类型变量初始值变量的作用域变量的生命周期常量运算符和表达式常用函数流程控制语句编辑ppt（一）变量的声明1、显式声明语法结构：dim变量名as数据类型如：dimmyresultasdouble2、隐性声明VB允许在使用变量前不使用dim语句进行事先定义，而由VB自动将变量声明为变体型（Variant类型），这种方式称为隐性声明。注意：为避免使用隐性声明方法，可以在应用程序的模块声明部分，加入OptionExplicit语句，使VB的变量在使用前必须进行强制声明，否则就无法编译执行。编辑ppt（二）基本数据类型数据类型类型名称类型声明字符所占字节字节型Byte10~255布尔型Boolean2整型Interger%2长整型Long&4单精度型Single!4双精度型Double#8货币型Currency@8日期型Date8对象型Object4变长字符串型String$字符串长度，1字节/字符定长字符串型String*Num$Num可变类型Variant不定编辑ppt（三）变量初始值任何变量在被声明后均会有一个初始值。一般情况下：数值型变量的初始值为0字符串变量初始值为空字符串，即“”变体型变量初始值为空值，即Null值布尔型的初始值为假，即False编辑ppt（四）变量的作用域1、过程级变量是指在过程内部声明的变量。只有在该过程中的代码才能访问这个变量，该变量不能用于程序的其他部分，建议使用Dim关键字来声明。2、窗体级和模块级变量是指在窗体或模块的代码声明段用Dim或Private声明的变量，其作用范围是整个模块或窗体。即在窗体或模块中的所有过程中，都可以使用这些变量，当离开了这个模块或窗体，此变量就不起作用了。为了增加可读性，建议使用Private关键字声明。3、全局变量在整个应用程序中有效，一般在模块代码编辑器的顶部使用Public声明。注意：在窗体中已可以使用Public声明全局变量，工程中的其他窗体可以使用“窗体名.变量名”的格式，看到并访问该变量。编辑ppt（五）变量的生命周期是指能够保存变量值的时间。1、过程级变量只有在过程执行期才存在。注意：当使用Static关键字来声明局部变量时，则该变量的生命周期是应用程序的整个运行期，即在该过程执行结束时，系统并不是房改变量的内存空间，而是继续保留其值。语法结构是：Static变量名as数据类型

2、模块级、窗体级和全局变量这些变量的生命周期是程序的运行期，不必使用Static关键字进行声明。例如：P81编辑ppt（六）常量是在程序运行过程中其值保持不变的量，通常分为直接常量和符号常量两大类。1、直接常量：

字符串常量：用双引号括起来的一串字符。如："123"数值常量：整数、长整数、定点数、浮点数和字节数。布尔常量：True和False日期常量：用两个“#”符号把日期和时间的值括起来。如：#3/16/2003#2、符号常量分为内部（系统定义）常量和符号（用户定义）常量。

（1）系统内部常量由VB应用程序和控件提供。如：颜色常量vbGreen（绿色）、vbRed（红色）等例：将窗体背景设为绿色，可使用以下语句：

Form1.BackColor=vbGreen（运行后显示效果）（2）定义符号常量的一般语法是：[Public|Private]Const变量名as数据类型[=表达式]例如：PublicConstPiAsDouble=3.1415926编辑ppt（七）运算符和表达式1、算术运算符^-*/\Mod+-2、关系运算符><=<>(或><)>=<=3、逻辑运算符NotAndOrXorEqvImp4、字符串连接符：字符串是由两个双引号“”包括的字母和数字的组合体，字符串连接符的作用是将字符串常量、变量和函数连接起来，从而形成一个较大的字符串。+&如：“abcd”+“1234”=“abcd1234”编辑ppt（八）常用函数1、数值型函数2、字符串函数3、日期函数4、格式化函数5、类型转换函数

编辑ppt1、常用数学函数Sin(x)返回自变量x的正弦值。自变量x的单位是弧度。Cos(x)返回自变量x的余弦值。自变量x的单位是弧度。Tan(x)返回自变量x的正切值。自变量x的单位是弧度。Atn(x) 返回自变量x的反正切值。返回值的单位是弧度。Abs(x)返回自变量x的绝对值。Sgn(x)返回自变量x的符号。当x为负数时返回-1，为0时返回0，为正数时返回+1。Sqr(x)返回自变量x的平方根。Exp(x)返回以e为底数、以x为指数的数值。Hex(x)返回十六进制数函数Rnd(x)随机数函数Fix(x)取整函数Int(x)最大整数函数Cint(x)四舍五入函数编辑ppt2、常见字符串函数Ltrim$(字符串)去掉字符串左端的空白字符（包括空格合Tab符号）Rtrim$(字符串) 去掉字符串右端的空白字符Trim$(字符串)去掉字符串两端的空白字符Left$(字符串,n) 返回字符串左端的n个字符组成的子字符串Right$(字符串,n)返回字符串右端的n个字符组成的子字符串Mid$(字符串,p,n)返回从字符串第p个字符开始连续n个字符组成的子字符串。如果省略参数n就表示从第p个字符开始取到字符串结束Len(字符串)返回字符串的长度Sting$(n,ASCII码|字符串)返回一个由n个指定字符组成的字符串。当第二个参数为字符串时，字符串的首字符就是指定字符；如果第二个参数是一个ASCII码，这个ASCII码对应的字符就是指定字符Space$(n)返回一个由n个空格组成的字符串。编辑ppt3、常见日期时间函数Day(Now) 返回当前日的日期。WeekDay(Now) 返回当前日的星期。Month(Now) 返回当前日的月份。Year(Now) 返回当前日的年份。Hour(Now) 返回当前时间的小时部分（0-23）。Minute(Now) 返回当前时间的分钟部分。Second(Now) 返回当前时间的秒部分。在日期和时间函数中，“Now”是一个系统已定义的内部变量，可以直接使用。编辑ppt4、格式化函数格式输出函数Format$可以将数值表达式的值按照格式输出控制符指定的格式输出。格式：Format$(表达式,[格式输出控制符])格式输出控制符说明：⑴.“#”：数字格式输出控制符，表示一个数字位。#的个数决定显示区段的长度。⑵.“0”：数字格式输出控制符，与#功能相同，但多余位以0补齐。⑶.“.”：显示小数点。⑷.“，”：显示逗号表示分位符。⑸.“%”：表示百分号。⑹.“$”：美元符号。⑺.“＋”和“－”：正号和负号。⑻.“E＋”和“E－”：用指数显示数值。“E－”正号省略。编辑ppt5、类型转换函数Int(x) 求不大于自变量x的最大整数Fix(x)去掉一个浮点数的小数部分，保留其整数部分Hex$(x)把一个十进制数转换为十六进制数Oct$(x)把一个十进制数转换为八进制数Asc(x$)返回字符串x$中第一个字符的ASCII码Chr$(x)把字符x转换成相应的ASCII码Str$(x)把x的值转换成一个字符串Cint(x)将自变量x的小数部分四舍五入转换为整数编辑ppt流程控制语句在代码设计阶段，VB主要采用结构化程序设计方法，它一般包括三个基本结构—顺序结构—分支结构—循环结构编辑ppt顺序结构：顺序结构是最简单和最基本的结构，当执行顺序结构是，将按照语句在程序中的先后顺序一次执行。其特点是流程直观易读，结构简明。赋值语句就是顺序结构中最常用的语句。编辑ppt分支结构分支结构是根据一定的条件来决定执行何种操作的一种数据结构在VB中有五种语句来实现分支结构：If…ThenIf…Then…EndIfIf…Then…ElseIf…Then…ElseIfSelectCase编辑pptIf…Then语法规则

If条件表达式Then语句例：PrivateSubCommand1_Click() DimtempAsSingle temp=Val(InputBox("Whatisthetempture?"))

Iftemp>25ThenMsgBox"itishot"EndSub编辑pptIf…Then…EndIf语法规则

If条件式Then

程序段

EndIf编辑pptIf…Then…EndIf语句实例PrivateSubCommand1_Click() DimtestAsInteger test=InputBox("pleaseinputaninteger!")

Iftest>10Then Print"test>10" test=test*2 Print"nowtest=",test

EndIfEndSub编辑pptIf…Then…Else语法规则

If条件式Then

程序段1

Else

程序段2

EndIf编辑pptIf…Then…Else语句实例PrivateSubCommand1_Click() DimtestAsInteger test=InputBox("pleaseinputaninteger!")

Iftest>10Then Print"test>10"

Else Print"test<=10"

EndIfEndSub编辑pptIf…Then…ElseIf语法规则

If条件式Then 程序段1 ElseIf条件式2Then 程序段2 …… ElseIf条件式nThen 程序段n [Else 默认程序段] EndIf编辑pptIf…Then…ElseIf语句实例PrivateSubCommand1_Click() DimtestAsInteger test=InputBox("pleaseinputaninteger!")

Iftest>30Then Print"test>30"

ElseIftest>20Then Print"test>20"

ElseIftest>10Then Print"test>10"

Else Print"test<=10"

EndIfEndSub编辑pptSelectCase语法规则SelectCase测试表达式Case表达式1程序段1[Case表达式2程序段2]……[CaseElse默认程序段]EndSelect编辑pptSelectCase语句实例PrivateSubCommand1_Click() Dimage age=Val(InputBox("Howoldareyou?")) SelectCaseage Case1To12 MsgBox"youareachild" Case13To19 MsgBox"youareateenager" Case20To150 MsgBox"youareanadult" CaseElse MsgBox"Itisimpossible!" EndSelectEndSub编辑ppt循环结构循环是一组重复执行的指令，重复次数由条件决定For…Next语句Do…Loop语句编辑pptFor…Next语句主要用于执行循环次数确定的循环语法规则For循环变量=初值To终值[Step步长][程序段][ExitFor]Next[循环变量]编辑pptFor…Next语句实例PrivateSubCommand1_Click() Fori=1To10Step1 Printi

NextiEndSub编辑pptPrivateSubCommand1_Click()DimSumAsIntegerSum=0Fori=1to10Sum=Sum+iNextiText1.Text=SumEndSubFor…Next语句实例编辑pptDo…Loop语句当循环次数无法预先确定时，可以使用Do…Loop语句，它有两种格式

编辑pptDo…Loop语句当型循环（先判断，后执行）Do[{While|Until}条件式]程序段（一组语句）[If条件式ThenExitDo][程序段]Loop编辑ppt当型循环DoWhile语句实例PrivateSubCommand1_Click() DimSumAsIntegerDimiAsInteger i=1 DoWhilei<=10 Sum=Sum+i i=i+1 LoopText1.Text=SumEndSub编辑ppt当型循环DoUntil语句实例PrivateSubCommand1_Click() DimSumAsIntegerDimiAsInteger i=1 DoUntili>10 Sum=Sum+i i=i+1 LoopText1.Text=SumEndSub编辑pptDo…Loop语句直到型循环

（先执行，后判断，至少执行一次）Do程序段（一组语句）[If条件式ThenExitDo][程序段]Loop[{While|Until}条件式]编辑ppt直到型循环DoWhile语句实例PrivateSubCommand1_Click() DimSumAsIntegerDimiAsInteger i=1 Do Sum=Sum+i i=i+1 LoopWhilei<=10Text1.Text=SumEndSub编辑ppt直到型循环DoUntil语句实例PrivateSubCommand1_Click() DimSumAsIntegerDimiAsInteger i=1 Do Sum=Sum+i i=i+1 LoopUntili>10Text1.Text=SumEndSub编辑ppt注意：1、当循环还没有结束时，可使用该语句强制程序退出循环体。在DOWhile循环中，可以通过ExitDo语句退出循环。在ForNext循环中可以使用ExitFor强行退出循环。2、退出循环语句一般要与判断语句一同使用。3、编写循环语句时，一定要事先检查是否有结束该循环的条件，否则就会出现“死循环”。一定要避免出现“死循环”现象。编辑ppt常见交互式函数__Print方法Print方法用于在窗体、立即窗体、图片框、打印机等对象中显示文本字符串和表达式的值。Print方法的格式与功能与BASIC语言中的Print语句类似。格式：

[<对象名称>.]Print[表达式表][,|;]

Print方法具有计算和输出双重功能，原则为先计算后输出。在一般情况下，每执行一次Print方法后就要自动换行。如果在Print方法末尾加上逗号或分号，下一条语句可以在同一行继续显示。编辑ppt常见交互式函数__Print方法参数说明：“对象名称”可以是窗体（Form）、立即窗体（Debug）、图片框（PictureBox）或打印机（Printer）等对象。如果省略“对象名称”表示默认为在当前窗体中输出。“表达式表”是一个或多个表达式，可以是算术表达、关系表达式、布尔表达式或字符串表达式。如果省略“表达式表”，则输出一个空行。[,|;]表示多个表达式可以用逗号、分号和空格分开，其中以逗号分隔表示各表达式间用标准输出格式（分区输出格式）输出数据，即每隔14列为一个打印区，每个打印区中显示一个表达式的值；以分号和空格分隔表示各表达式间按照紧凑格式输出数据，字符串间连续输出，数值间空一个格，数值为负数则符号位为“-”，否则为空。在Print方法中可以将逗号和分号混合使用。编辑ppt其它说明当文本出现在窗体中时，文本成为窗体背景的一部分如果输出的字符串比窗体或图片框的宽度还要长，超出的部分会自动被截断如果要用Print方法在单行上显示多个不同的项目，可以用分号或逗号分开如果把分号或逗号放在一条语句的最后，则下一条Print语句将输出在同一行上Print语句中可以有表达式计算编辑pptPrint方法中常用的函数⑴.Tab函数格式：Tab(n)Tab函数将光标移动到由数值表达式n所指定的位置（列号），从这个位置（列号）开始输出以后数据。要输出的数据放在Tab函数之后，并以分号分隔。⑵.Spc函数格式：Spc(n)Spc函数用于显示指定数量的空格。⑶.Space$函数格式：Space$(n)