程序设计02 ppt课件

第二章 简单VB程序设计,学习目标,通过几个简单而有趣的例子，初步了解VB程序的基本设计过程。,复习&练习,1、在VB6中下列_是不对的。 A. 可以编写ActiveX控件 B. 可以编写网络程序 C. 可以通过直接访问或建立连接的方式访问大型网络数据库 D. 可以写出16位应用程序 2、Microsoft Visual Basic 6.0包括3三种版本，其中不包括_。 A. 通用版 B. 企业版 C. 学习版 D. 专业版,A,D,复习&练习,3、Visual Basic窗体设计器的主要功能是：_。 A. 建立用户界面 B. 编写源程序代码 C. 画图 D. 显示文字 4、VB中项目文件的扩展名是_。 A. vbp B. frm C. bas D. res,A,A,复习&练习,5、在设计应用程序时，通过_窗口可以查看到应用程序工程中的所有组成部分。 A. 代码窗口 B. 窗体设计窗口 C. 属性窗口 D. 工程窗口 6、如果要改变窗体的标题，需要设置窗体对象的_属性。 A. Name B. Caption C. Picture D. Icon,B,D,复习,几个单词： Form Label Text Command Caption Click 几个缩写： Vb Vbp Frm rgb,示例一：学生成绩计算,教师在期末考试评卷过程中，给学生成绩做总评往往是一个不大不小的难题。设计VB程序，按平时10%，期中20%，期末 70%的比例，计算班上各同学的成绩。 程序界面：,步骤,分析1：多少个对象？ 分析2：要设置属性吗？ 分析3：写几段代码?,步骤,文本框与标签的区别 A. 标签用于说明，文本框用于输入； B. 标签文字：caption，文本框文字：text,步骤,框架控件 作用：美观；分组 属性：Caption 特点：容器类控件 使用： 先画框架，后画装入的对象 已有对象加框架：选中对象剪切点击框架粘贴,窗体 框架 文本框,步骤,代码1：对应计算按钮 Private sub command1_click() text4=0.1*text1+0.2*text2+0.7*text3 End sub 注意：窗体中的文本框名称与代码中的书写要保持一致。 默认属性可省略：如 text1.texttext1,步骤,代码2：对应消除按钮 Private sub command2_click() text1=“” : text2=“” : text3=“” : text4=“” text1.setfocus End sub 多语句用冒号连写于一行 Set设置，focus焦点， Setfocus: 用于将焦点转回，以便下一次输入。,例一带给我们的是：,文本框与标签的区别 框架 默认属性的省略 语句的多行合一 聚焦方法 代码与对象名称的一致性,示例二：灵异现象,VB程序运行后，界面上的文本框不能输入；非但如此，命令按钮也不能按：一旦按下，窗体上的控件全部消失。,步骤,分析： 借助了控件共同的两个属性：Enabled和Visible Enabled：取值true或false，决定对象可否操作 Visible：取值true或false，决定对象是否可见 画出文本框及按钮 设置text1的Enabled为假(false)；,步骤,代码： Private sub command1_click() Command1.Visible = False Text1.Visible = False End sub,例二的思考：,采用Locked属性？ Locked: 取值True或False，是否允许编辑 区别：Enalbed为假，光标不能移到，Locked为假，光标可以移到，但不能编辑。 采用标签进行欺骗？ 用标签的嵌入样式 Label1.BorderStyle=1，亦不能编辑。,示例三：调色板,目标：设计如下界面的调色板程序： 功能：拖动滑块，第一个框显示RGB配色结果，另三个框显示RGB取值。 控件：四个文本框，六个标签，三个滚动条，一个按钮。,步骤,绘出对象 设置属性,步骤,设置属性（）,滚动条的属性： name 对象名称 value 滚动条的取值 min 滚动条最小值 max 滚动条最大值 事件 change,步骤,代码设计 分析： 事件？ 拖动H1、H2、H3的滑块 单击退出按钮 响应？ Text1以当前H1、H2、H3的值组成RGB颜色 Text2Text4中显示各自RGB成份，取值于H1H3的值 分析： 当拖动H2和H3时结果相同，故可将代码定义成一个自定义过程（即C语言中的函数）。,步骤, 单击窗体空白处进入代码窗口，点击窗口上部左侧框（对象列表框），展开选中“通用”声明，在这里输入代码：,Sub setcolor( ) Text1.BackColor = RGB(H1.Value, H2.Value, H3.Value) Text2 = H1.Value Text3 = H2.Value Text4 = H3.Value End Sub,步骤,双击command1,输入代码 End； 双击H1，输入代码： Private sub H1_chage() call setcolor End Sub 双击H2、H3，输入同样内容： call setcolor,过程的调用： call 过程名,步骤,运行，存盘，生成EXE（此项可选）。,例三的思考：,滚动条控件 RGB函数 自定义过程,VB程序的打包,将调试通过的工程编译成EXE文件后，不能在其他机器上运行的主 要原因是： 运行的机器上无VB系统 缺少.frm窗体文件 该可执行文件有病毒 打包：即生成应用程序的安装包。 方法：运行