预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共153页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

VisualBasic程序设计第三讲应用程序接口设计及代码编写[内容简介][学习目标]3.1“简单的计算器”应用程序任务3.1.1任务概述运行主界面帮助:关于窗体3.1.2界面布局3.1.3界面设计3.1.4代码设计3.2可视化界面设计基础3.2.1可视化界面设计概述3.2.2多窗体设计3.2.3MDI多文档窗体的设计MDI窗体示例MDI窗体示例Arrange的主要参数3.2.4窗体的运行模式模态和非模态显示例子3.3可视化界面高级设计3.3.1菜单设计菜单的基本组成利用菜单编辑器制作菜单菜单项目运行界面创建方法3.3.2框架、单选钮和复选框控件基本用法3.3.3列表框控件(ListBox)3.3.4组合框控件(ComboBox)3.3.5工具栏、状态栏和图标列表控件1.添加控件的方法2.使用实例代码3.3.6通用对话框控件(CommonDialog)1.“打开”对话框2.“另存为”对话框3.“颜色”对话框3.3.7其他常用控件3.4代码设计基础3.4.1变量的声明3.4.2基本数据类型实例3.4.3变量初始值3.4.4变量的作用域3.4.5变量的生命周期3.4.6常量3.4.7运算符和表达式1.算术运算符2.关系运算符3.逻辑运算符4.字符串连接符3.4.8常用函数2.字符串函数3.日期函数4.格式化函数3.4.9流程控制语句选择结构循环结构3.5工程化思想及编程风格控件 2.编程风格总之本章习题作业第二单元界面代码设计与语言技巧: 第三章:应用程序接口设计及代码编写 学习目标:通过实例分析完成可视化界面设计、掌握变量与常量的概念及用法;学会对运算符及流程控制语句和常用函数的使用,系统地掌握VB编程的一般方法及相关知识。 重点内容:1、可视化界面设计、变量和常量的 使用; 2、运算符及流程控制语句的使用; 3、常用函数的使用。 难点内容:多窗体设计、通用对话框控件的使用。 一、创建一个简单计算器应用程序 界面P52图3.1,创建工程-窗体Form1,属性Caption设置为计算器;4个文本框(TextBox): TextResult(显示结果文本框)TextFirst(显示第一个数字文本框)TextLabel(显示运行符文本框)TextSecond(显示第二个数字文本框);二个框架(Fram)属性Caption分别为数字区、功能区;在数字区内建11个命令按钮,属性Caption分别为7、8、9、4、5、6、1、2、3、0、+/-;在功能区内建6个命令按钮属性Caption分别为加、减、乘、除、计算结果、清空;最后一个命令按钮属性Caption为退出;设计菜单(图3.4)。 进入程序 编写代码如下: 1、窗体的Load事件 PrivateSubForm-Load() TextFirst.Text=“” TextSecond.Tex=“” TextLabel.Text=“” EndSub2、数字区的命令按钮的Click事件 (1)、数字“0”按钮 PrivateSubCommand1-Click() IfTextLabel.Text=“”Then TextFirst.Text=TextFirst.Text+“0” Else TextSecond.Tex=TextSecond.Tex+“0” Endif EndSub (2)、数字“1”按钮 PrivateSubCommand3-Click() IfTextLabel.Text=“”Then TextFirst.Text=TextFirst.Text+“1” Else TextSecond.Tex=TextSecond.Tex+“1” Endif EndSub (3)、数字“2”按钮 PrivateSubCommand4-Click() IfTextLabel.Text=“”Then TextFirst.Text=TextFirst.Text+“2” Else TextSecond.Tex=TextSecond.Tex+“2” Endif EndSub (4)、数字“3”按钮 PrivateSubCommand5-Click() IfTextLabel.Text=“”Then TextFirst.Text=TextFirst.Text+“3” Else TextSecond.Tex=TextSecond.Tex+“3” Endif EndSub (5)、数字“4”按钮 PrivateSubCommand6-Click() IfTextLabel.Text=“”Then TextFirst.Text=TextFirst.Text+“4” Else TextSecond.Tex=TextSecond.Tex+“4” Endif EndSub (6)、数字“5”按钮 PrivateS