【VB开源代码栏目提醒】：网学会员VB开源代码为您提供visualbasic程序设计简明教程第7讲张学典上海理工大学光电40 - 毕业设计参考，解决您在visualbasic程序设计简明教程第7讲张学典上海理工大学光电40 - 毕业设计学习中工作中的难题，参考学习。

    

张学典 上海理工大学光电学院 MSN:zhangxuedianhotmail.com 021-55271048 第1章 Visual Basic程序设计概述 第2章 VB可视化编程基础 第3章 VB语言基础 第4章 VB控制结构 第5章 数组和自定义类型 第6章 过 程 第7章 用户界面设计 第8章 数据文件 第9章 图形操作 第10章 数据库应用基础 章 内 容 学时 实验与学时 第1章 Visual Basic程序设计概述 1 实验1 11 第2章 VB可视化编程基础 2 实验2 22 第3章 vb语言基础 3 实验3 22 第4章 VB控制结构 6 实验4 22 第5章 数组和自定义类型 4 实验5 22 第6章 过 程 4 实验6 11 第7章 用户界面设计 4 实验7 22 第8章 数据文件 4 实验8 22 第9章 图形操作 4 实验9 22 合计 16周48学时3216课外16 32 16 16 第10章 数据库应用基础 8 实验10 24 7.1.1 单选按钮、复选框和框架 1.单选按钮OptionButton 单选按钮以组的形式出现允许选择一项。

     重要属性 Caption属性 按钮上显示的文本 Value属性 表示单选按钮的状态 True —— 被选定 False —— 未被选定 重要事件 Click事件 单击后使Value属性为True Value属性值为整型表示复选框的状态 0 —— vbUnchecked 未选定 1 —— vbChecked 被选定 2 —— vbGrayed灰色并显示一个选中标记。

     重要事件 Click事件 2.例7.1通过单选按钮和复选框设置文本框的字体 例7.1通过单选按钮和复选框设置文本框的字体 3.例7.2框架用法示例 例7.2框架用法示例 滚动条ScrollBar通常附在窗体上协助观察数据或确定位置也可作为数据输入工具。

    进度条ProgressBar用来指示事务处理的进度。

     滚动条有水平和垂直两种 进度条没有水平垂直之分 Value 滑块当前位置的值缺省为0 Min 滑块最小位置值缺省为0 Max 滑块最大位置值 SmallChange 单击滚动条两端的箭头时Value属性滑块位置改变值 LargeChange 单击滚动条的空白区域时Value属性改变值 Scroll 当拖动滑块时触发 Changed 改变Value属性时触发 例7.3计算018之间某个数阶乘数据由滚动条获得。

     Max属性为18Min属性为0 Value初值为0 SmallChange属性为1LargeChange属性为3 例7.4 设计一个调色板应用程序使用三个滚动条作为三种基本颜色的输入工具。

     Max和Min 设置控件的界限 Value 控件执行阶段被填充的数目直到等于Max属性值。

    控件显示的填充数是Value属性与Max和Min属性之间的比值 在对ProgressBar编程时必须先确定Value属性上限。

    例如下载文件可将Max设置为文件长度。

    在该文件下载过程中将Value属性设置为文件已经下载的字节数。

     例7.5 用进度条来指示一个大数组的计算进度。

     7.1.3 图形框PictureBox控件 作用:显示图片也可作为其他控件的容器 在程序运行时装入图形 图形框.Picture LoadPicture图形文件名 删除图形框中图形可用LoadPicture Autosize属性 True 图形框自动调整大小与图片匹配 False 图形超过图形框的部分将被剪裁掉 使用方法与图形框相同。

    图像框占用更少的内存描绘得更快。

    图像框内不能存放其他控件 Stretch属性 False 图像框自动改变大小适应其中的图形 True 图形根据图像框的大小自动调整尺寸 例7.6 本例说明图像框的Stretch属性对加载的图形的影响。

     定时器以一定的时间间隔产生Timer事件 属性 Enabled 为False时定时器不产生Tick事件 Interval 触发Timer事件的时间间隔ms 事件 定时器控件只有一个Timer事件 产生Timer事件条件EnabledTrue Interval0 例7.7设计一个倒计时应用程序 例7.8用一个定时器控制蝴蝶在窗体内的飞舞 VB提供了一组基于Windows的标准对话框。

    利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。

     例7.9 通过打开文件对话框选择一个BMP位图文件在图形框中显示该图片。

     通用对话框仅用于应用程序与用户之间进行信息交互是输入输出的界面不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作如果想要实现这些功能则需要编程实现。

     通用对话框仅用于应用程序与用户之间进行信息交互是输入输出的界面不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作如果想要实现这些功能则需要编程实现。

     1 Action属性和Show方法 打开对话框 ShowHelp 6 帮助对话框 ShowPrinter 5 打印机对话框 ShowFont 4 字体对话框 ShowColor 3 颜色对话框 ShowSave 2 另存为对话框 ShowOpen 1 打开文件对话框 Show方法 Action属性 通用对话框的类型 该属性只能在程序中赋值 2 DialogTiltle属性 设置通用对话框标题 3 CancelError属性 True选择取消按钮Err.Number设置为32755cdCancel。

     False选择取消按钮没有错误警告。

     由 ShowOpen方法来实现 重要属性 : 1 FileName 文件名称包含路径 2 FileTitle 文件名不包含路径 3 Filter 确定所显示文件的类型 例如Text Files.txt所有文件.显示文本文件和所有文件 4 FilterIndex文件列表中指定某类型文件 5 InitDir 初始化路径 Filter FileName InitDir FilterIndex 例7.10编写一个简单的文本文件编辑程序 由 ShowSave方法来实现 与打开文件对话框的属性基本相同特有的属性是DefaultExt属性用于设置缺省的扩展名 。

     例7.11为例7.10中的另存为命令按钮编写代码保存文本框内的信息。

     Sub Command2_Click CommonDialog1.ShowSave Open CommonDialog1.filename For Output As 1 Print 1 Text1.Text 保存文件 Close 1 关闭文件 End Sub 由ShowColor方法打开颜色对话框 重要属性Color它返回或设置选定的颜色 例7.12 为例7.10中的颜色命令按钮编写事件过程设置文本框的前景色。

     Sub Command3_Click CommonDialog1.ShowColor Text1.ForeColor CommonDialog1.Color End Sub 由ShowFont方法来实现 例7.13为例7.10中的字体按钮编写设置文本框字体的过程。

     Font获取选择的字体 Color 选定的颜色 MSCom串口控件 菜单有下拉式菜单和弹出菜单上下文菜单。

    下拉式菜单的组成结构 快捷键 热键 子菜单标记 主菜单 菜单项 子菜单名 分隔线 菜单列表框 菜单项属性 操作按钮 菜单项除了Name、Visible、Enabled等属性之外还具有下列重要属性 1 Text 菜单项上显示的标题文本 在字符前加一个符号构成热键。

    例如输入“新建N”则菜单显示“新建N”N为热键。

     菜单项的分隔符输入一个减号“-”。

     2 ShortCut 设置菜单项的快捷键。

     3 Checked 控制菜单项左边是否显示“√” 菜单项的事件Click 为菜单项编写程序 例7.15将例7.10中的命令组织成菜单。

     7.3.2 独立于窗体菜单栏而显示在窗体内的浮动菜单。

    显示位置取决于单击鼠标键时的位置。

     设计过程与普通菜单相同。

    菜单弹出的方法 对象.PopupMenu 菜单名 标志 x y 标志表示弹出的位置和触发的键 Sub Text1_MouseDown… If Button 2 Then PopupMenu EditMenu End Sub 例7.16 为例7.15中的文本框配置弹出菜单 7.4 指一个应用程序中有多个并列的普通窗体每个窗体有自己的界面和代码完成不同的功能 1. 添加窗体 通过工程添加窗体命令每个窗体有独立的Frm文件同一工程不能有相同名称的窗体 。

     2. 设置启动对象 通过工程属性指定启动对象缺省为第一个创建的窗体。

     1Load语句 装入窗体到内存不显示 Load 窗体名称 2Unload语句 从内存删除窗体 Unload 窗体名称 或 Unload Me 3Show方法 显示窗体 窗体名称.Show 模式 模式为0关闭才能对其它窗体进行操作 模式为1 可以同时对其它窗体进行操作 4 Hide方法 隐藏窗体 窗体名称. Hide 1直接访问另一个窗体上的控件数据 另一个窗体名.控件名.属性 Text1 ValForm2.Text1 ValForm2.Text2 2访问另一个窗体中的全局变量 另一个窗体名.全局变量名 例7.17多重窗体应用:输入学生五门课程的成绩计算总分及平均分并在不同窗体内显示。

     7.5.1 鼠标 鼠标事件 需要注意事件发生在哪一个对象上 Click、DblClick事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发 鼠标事件过程中的参数e决定鼠标的当前状态。

     e.X、e.Y表示当前鼠标的位置e.Button指示按下或释放了哪个鼠标按钮其值的意义如下表 枚举常量 含 义 MouseButtons.Left 按下或释放了鼠标左键 MouseButtons.Right 按下或释放了鼠标右键 MouseButtons.Middle 按下或释放了鼠标中键 MouseButtons.None 没有按下鼠标按钮 例7.18 显示鼠标器指针所指的位置。

     例7.19 设计一个最简单的画图程序。

    程序运行时按住鼠标右键移动画圆按住鼠标左键移动画线。

     1. KeyPress事件 只对会产生ACSII码的按键有响应 参数e包含了与KeyPress事件相关的数据。

     e.KeyChar 其值为所按键相应的ASCII码值。

    例如键盘输入小写Ae.KeyChar的值为“a”。

     e.Handled 表示本次按键是否被处理过。

    若它为真则表示已经被处理过否则将传送给Windows进行常规处理。

    设置e.Handled为真即可怱略本次按键。

    利用这个特性可以在某些控件中过滤掉不允许的字符。

     2. KeyDown事件和KeyUp事件 当焦点在某个对象时用户按下键盘上的任一键便会引发该对象KeyDown事件释放按键便触发KeyUp事件。

     参数e包含了所按键信息及Shift、Ctrl、Alt键的状态。

     e.KeyCode的值为操作的物理键。

     例7.20编写一个程序按下AltF5组合键可终止程序的运行 用来生成一个应用程序的界面。

     选择文件新建工程VB应用程序向导命令 7.7 例7.22 设计一个选课程序。

    “大学计算机基础”是必选课程一直处于选定状态。

    限选课程有两组若选定“第一组”则下面的两门课程立即处于选定状态若选定“第二组”则下面的三门课程处于可选状态让学生选择否则处于不可选状态。

     例7.22 利用时钟和图像控件模拟自动红绿灯 分析改变时钟的Interval属性来延迟不同颜色的灯。

    例如红灯延迟2秒则在切换到红灯后把Interval设置为2000这样过2秒后发生Timer事件再切换到其它颜色的灯。

     用变量i控制红绿灯的自动切换它的值在0∽2之间循环变化i为0时显示红灯i为1时显示黄灯i为2时显示绿灯。

     常用控件 单选按钮、复选框、框架、列表框、组合框、滚动条、进度条、定时器 通用对话框 菜单 下拉式菜单 MainMenu 弹出式菜单 ContextMext 两个窗体之间访问 通过窗体对象实例.控件 或模块级公共变量 1. 有哪几种方法可以在列表框添加选项 2如果要一个定时器每半分钟产生一个Tick控件则InterVal属性应设置为多少 3在VB.NET中使用什么方法访问网页 4代码中如何判断用户在通用对话框中选择了“取消”按钮 5创建弹出菜单需要什么控件通过什么属性才能将控件与弹出菜单建立关联 6什么是模式对话框什么是非模式对话框 7简述窗体之间数据互访如何才能实现 1. 记录 由若干个相互关联的数据项组成。

    例如由学生的学习成绩信息组成的记录 2. 文件分类 文件是记录的集合VB提供了三种访问模式 : 顺序访问模式顺序文件记录可长可短 随机访问模式随机文件记录的长度相同 二进制访问模式二进制文件 数据项 总分 物理成绩 语文成绩 数学成绩 姓名 学号 1 顺序文件 按顺序依次把记录写入或读出来的文件。

     记录n 记录n-1 … 记录3 记录2 记录1 文本文件 一行一条记录记录可长可短以换行符分隔记录。

     2 随机文件 记录长度相同根据记录号可直接访问任意一个记录。

     n记录n 记录n-1 … 2记录2 1记录1 3 二进制文件 直接把二进制码存放在文件中。

     1. 打开文件 例8.1 对文件C:Scores.dat进行读写 Open 文件名 For 模式 As 文件号 模式 Output 进行写操作 Input 进行读操作 Append 在末尾追加记录 文件号 1511 注意文件名可以为字符串常量也可以是字符变量。

     写入数据使用语句Print和Write 1 Write Write 文件号输出列表 Write在数据项之间插入“”并给字符串加上双引号。

     例如 Write1 “One” “Two” 123 写入到文件后格式OneTwo123 2 Print Print 文件号输出列表 Print 语句功能与Write 基本相同区别在于字符串不加双引号数据之间没有“”。

     例如Print 1OneTwo123 写入到文件后格式 One Two 123 例8.2 利用Print 和Write 语句把数据写入文件 输出语句是将数据送到缓冲区关闭文件时才将缓冲区中数据写入文件。

    关闭文件形式 例 Close1 关闭1号文件。

     如果省略了文件号Close语句将关闭所有已经打开的文件 1 Input 从打开的顺序文件中读出数据并将数据赋给变量。

     Input 文件号变量列表 2 LineInput 读出一行数据 LineInput 文件号 字符串变量 说明读出的数据中不包含回车换行符 3 EOF 文件号测试文件指针是否到文件末尾 4 LOF 文件号测试文件的长度