当前位置：文档之家 › vbnet第6章

vbnet第6章

  • 格式：ppt
  • 大小：566.00 KB
  • 文档页数：28

下载文档原格式

  / 28

合集下载

VBNET教程6

VBNET教程6
窗体有一个事件Load，该事件在窗体加载时发生，故为了使程序 刚开始执行时就显示出欢迎对话框，可在该事件过程中调用InputBox 函数来实现。窗体有一个名为Closing的事件，该事件在窗体关闭时 发生，因此可在该事件中调用MsgBox函数显示出“再见”对话框。显 示照片可使用PictureBox控件（图片框控件），为使照片填满图片框 控件，必须设置图片框控件的SizeMode属性值为StretchImage，并 且在窗体刚加载时或改变大小时，把图片框的大小设置与窗体的大小 一致。当窗体的大小发生改变时，将会发生窗体的Resize事件，因此 可以在该事件中重新设置图片框的大小。为了显示当前文件夹下的多 张照片，可设置一个字符串数组用来存放所有照片的文件名，并通过 Directory类的GetFiles方法获得所有照片的文件名。通过序号显示 照片时，只需把序号值减1作为存放照片文件名的数组元素的下标， 对应的元素值就是要显示的照片文件名，通过程序把该照片文件在图 片框中显示出来即可。 为实现HScrollBar控件（水平滚动条控件）与NumericUpDown控 件（微调控件）的相互更改，可在NumericUpDown控件的 ValueChanged事件中把它的Value属性值赋值给HScrollBar控件的 Value属性，在HScrollBar控件的Scroll事件中把它的Value属性值 赋值给NumericUpDown控件的Value属性。
用户输入姓名后单击“确定”按钮将会进入电子相册 （不需要姓名，将无法进入），如图6-3所示。当用户改 变窗体大小时，照片自动改变大小以填满窗体。 用户可以通过微调 控件输入照片序号 ，也可以通过滚动 条输入照片序号来 显示相应的照片， 并且微调按钮和滚 动条的输入可以相 互更新。 图6-3 程序运行界面

计算机VB程序语言教学课件VBnet第6课

计算机VB程序语言教学课件VBnet第6课

S=0 For n=2 To 100 Step 2 s+=n Next n
1到100的积
S=1 For n=1 To 100 s*=n 等价于S=S*n Next n
8
例：计算阶乘和
100
计算： n! 1!2!100!
tt=0
n1
s=1
For n = 1 To 100
s *= n
Visual 程序设 计（6）
1
Visual 程序设 计
第六课基本的控制结构：循环来自2复合赋值语句
• 复合赋值运算符：
• +=、-=、*=、\=、/=、^= 、&=
• 复合赋值语句的形式：
• 变量名 复合赋值运算符 表达式
• 作用：
• 计算右边表达式的值 • 再与左边的变量进行相应的运算 • 最后赋值给变量
• 如：a*=b+4
• 等价于a=a*(b+4)
3
复合语句常用形式
• 累加
• Sum+=x • 等价于sum=sum+x
• 计数
• n+=1 • 等价于n=n+1
• 显示多行信息
• &=表示将上一行的内容与本行内容连接 • TextBox1.Text = "Visual " & vbCrLf • TextBox1.Text &= "程序设计教程" & vbCrLf
13
分析
• Space(8-Len(se))?
14
练习
• 完成示例程序 • 增加：
• 单击窗体，显示左上图显示图形 • 双击窗体，显示右上图显示图形。 • 单击“下三角的九九”按钮，显示下三角的九九乘法表。

VB教程第6章教案

VB教程第6章教案
主页
6.2.4
图形方法
使用Pset(画点)、Line(画线)、Circle(画圆)等图形方法，可以在窗体和图片 框上绘制简单的图形 1. Pset(画点)方法 格式：[对象名.] Pset [Step](x,y)[,颜色] 功能：在对象的指定位置(x,y)上按选定的颜色画点 ，Step在上次位置加x,y 示例：下列语句能在坐标位置(500，900)处画一个红点： Pset (500,900), RGB(255,0,0) 2. Line(画线)方法 格式：[对象名.] Line [(x1,y1)]-(x2,y2)[,颜色] 功能：在两个坐标点之间画一条线段。 例如，下列语句可在窗体上画一条斜线 Line (600,600)-(2000,3000) 3. Circle(画圆)方法 格式：[对象名.] Circle [Step](x,y)，半径[，颜色，起点，终点，纵横比] 功能：在对象上画圆、椭圆或圆弧
目录 主页
6.2 图形控件 6.2.1 图片框和图像框（知识点）
（1）与窗体的属性相同的属性 部分窗体的属性，如Enable、Visible、FontBold、FontSize 等，也适用于图片框和图像框，用法相同。窗体的另一些属性， 如AutoRedraw、Height、Left、Top、Width等也可用于图片框 和图像框。但窗体位于屏幕上，而图片框和图像框位于窗体上。 其坐标的参考点是不一样的。窗体位置使以窗体为参考 点的。 （2）CurrentX和CurrentY属性 该属性用来设置下一个输出的水平（CurrentX）或垂直 （CurrentY）坐标。这两个属性只能在运行期间使用，格式如 下： [对象.] CurrentX [ = x] [对象.] CurrentY [ = y]
例6.2

VB.NET 程序设计(中) ppt

VB.NET 程序设计(中) ppt
基于Windows应用程序的用户界面主要有两大 类：单文档界面（Single Document Interface， SDI）和多文档界面（Multiple Document Interface，MDI）。
h
9
6.2.1 创建窗体
1．创建SDI窗体
SDI窗体是指一次只能打开一个文档窗口，一个应用程序 中可以包含多个SDI窗体，但是这些窗体之间的关系是平 等的，例如Windows下的记事本程序就是一个SDI窗体的 程序。
标题
默认值为Form+数值
h
14
6.2.3 窗体的常用事件和方法
窗体事件即响应窗体行为的动作
事件 说明
事件 说明
Click 鼠标单击窗体时触发该事 DoubCl 鼠标双击窗体 件，调用相应的事件过程 ick 时触发该事件
Closed 窗体关闭后触发该事件 Move
Load 窗体第一次显示时，触发 该事件
h
11
6.2.1 创建窗体
2.创建MDI窗体
（1）创建MDI主窗体
创建MDI主窗体的方法很简单，新建一个项目，并将默认窗 体的IsMdiContainer属性设置为True即可。此时MDI主窗 体的颜色为黑色，且不能更改背景色，也不能显示图片。 一个MDI窗体的应用程序可以有多个MDI主窗体，但通常 情况下只有一个。一般情况下，MDI窗体只拥有菜单、工 具栏和状态栏。
格。
h
6
6.1.1 图形用户界面设计的原则
4.合理利用空间，保持界面的简洁 5.合理利用颜色、图像和显示效果来达成内容与形式的统一 最好采用一些柔和的、更中性化的颜色。应当尽量限制应用
程序所用颜色的种类，而且色调也应该保持一致。
h

VB。NET第6章

VB。NET第6章

6.1 Sub过程
• Visual 可以编写两种类型的过程： • Sub过程
– 被称为子程序，通过调用完成指定的任务，不能通过过程名返回 值。Sub过程又分为事件过程和通用过程两类。 – 事件过程是针对特定操作作出响应的程序段，是Visual 应用程序的主体。事件过程可由用户操作或系统消息 引发。 – 通用过程是专为某种特定任务编写的程序段，作为公共模块使用 。通用过程独立于事件过程之外，不能自动执行，只能由其他事 件过程或通用过程调用执行。
6.3 向过程传递参数
• 6.3.1 形参与实参 • 6.3.2 传址与传值 • 6.3.3 传递数组
6.3.1 形参与实参
• 1．形参
– 形参又称为虚参，是指在定义Sub或Function过程时出现在“形参表”中 的单元。形参不代表一个实际存在的变量或数组，而是对外说明过程的 需求，这些需求必须在调用该过程时得到满足。过程的形参在过程被调 用时得到落实，才具有实际的存储位置及数据。定义过程时，形参表中 的各个变量间用逗号分隔，例如： – Public Sub StarN(N As Integer) – Private Sub Swap(X As Integer, Y As Integer) – Public Function Prime(Num As Integer) As Boolean
6.1.2 通用过程的创建
• 添加通用Sub过程有两种方法： • 2．使用“类关系图”添加过程
6.1.2 通用过程的创建
• 【例6.1】编写一个Sub过程，每次调用输出一个由字母“A” 构成的七层“金字塔”。 – 分析：“金字塔”形状有其自身的特点，而塔的层数也是 明确的，所以不需要向过程提供任何的附加信息（即：这 是一个没有参数的过程）。 – Public Sub Star() – Dim I As Integer – TextBox1.Text = "" – For I = 1 To 7 – TextBox1.Text = TextBox1.Text & Space(8 - I - 1) _ – & StrDup(2 * I - 1, "A") & vbCrLf – Next 源程序 – End Sub • 程序中用到了字符重复函数StrDup(n, 字符串) 。

VB NET - 6 - 文件操作

VB NET - 6 - 文件操作

6.2.2 文件系统对象 (FSO)模型
文件系统对象 (FSO) 模型提供一个基于对象的工具， 用来处理文件夹和文件。它使您得以将熟悉的“对象. 方法”语法与一组丰富的属性、方法和事件一起使用 来处理文件夹和文件。
FSO模型使应用程序能够创建、更改、移动和删除 文件夹，或者确定特定文件夹是否存在以及位于何处。 它还可以获取有关文件夹的信息，如文件夹的名称以 及文件夹的创建或上次修改日期。
使用的文件访问类型取决于文件包含的数据种类。 Visual Basic 提供三种类型的文件访问：
1.顺序，用于在连续的块中读取和写入文本文件。 2.随机，用于读取和写入结构为固定长度记录的文本或二进 制文件。 3.二进制，用于读取和写入任意结构的文件，例如图像。
6.2 文件访问方法
1. 使用 Visual Basic 运行时函数进行文件访问（VB传
File FileInfo Directory DirectoryInfo FileStream BinaryReader BinaryWriter StreamReader StreamWriter
6.3 文件其他操作
目的 复制文件 删除文件 移动文件 获取文件信息 新建文件夹 删除文件夹
操作方法(s代表源地址，d代表目的地址) File.Copy(s,d) File.Delete(s) File.Move(s,d) File或FileInfo类的相关方法 Directory.CreateDirectory(s) Dilder
可以创建、删除或移动文件夹，以及在系统 中查询它们的名称、路径和其他信息。
File
可以创建、删除或移动文件，以及在系统中
查询它们的名称、路径和其他信息。
TextStream

VB-Net自学经典教程(完整版)

目录
第一章 基础 第二章 简单的程序设计 第三章 语言基础 第四章 基本的控制结构 第五章 数 组 第六章 过 程 第七章 用户界面设计 第八章 面向对象程序设计基础 第九章 文 件 第十章 图形应用程序开发 第十一章 数据库应用程序开发
第一章 基础
本章目录
Visual
在不同的CPU上运行
Visual
第二次编译
CLR
中间语言（IL）程序（EXE）
第一次编译
基础类库
Windows应用程序 程序
VC++.NETVC#.NET VJ#.NET
本章目录
1.1.3 特点
属性窗口
本章目录
1.2.2主窗口
1.三种工作模式 设计模式 界面的设计和代码的编制 运行模式 运行应用程序 中断模式 暂时中断程序运行，调试程序
2. 菜单栏 包括11个下拉菜单
3. 工具栏
本章目录
1.2.3 窗体设计/代码设计窗口
1.窗体设计器窗口 建立应用程序的界面(一个应用程序可以 有多个窗体，通过“项目|添加Windows窗体” 命令增加新窗体)。 2.代码设计窗口 专门用来进行代码设计，包括各种事件过程、过 程和类等源程序代码的编写和修改。 打开代码设计窗口的方法：双击窗体、控件或单 击代码窗口上方的选项卡组对应项。
本章目录
本章小节
Visual
一个支持下一代Internet的平台
的三种工作模式
设计模式、运行模式、中断模式
组成
解决方案
项目 项目
组件和代码模块 组件和代码模块
本章目录
思考题
1. 什么是.NET框架？ 2. 简述的特点 3. 有多种类型的窗口，若想在设计时 看到代码窗口，怎样操作？ 4. 如何使各窗口显示或不显示？ 5. 如果窗口布局搞乱了，如何恢复默认布局？ 6. 解决方案与项目的区别？

Visual Basic NET程序设计第6章


• 6.2.2 排序算法以及程序实现图6-3 比较排序法界面
例6-3: 输入10个数，按从小到大的顺序显示出来。运行界面如图6-3。
• 建立一个数组a(10)，不增加新数组，通过算法改变数组元素的位置。排序
算法有比较交换排序、冒泡排序、选择排序、希尔法排序、插入排序等。
图6-3 比较排序法界面
• 1）比较排序算法 • • •
开始结点和一个终端结点，那我们知道了这些关系就能明白这个表的逻辑结 构了。 1年级 2年级 2年级后继
3年级
4年级 2年级前趋
5年级
6年级
• （2）数据元素及其关系在计算机存储器内的表示，称为数据的存储结构
（Storage Structure）。
• 表6-1在的存储可以用1个结构体数组来表示。代码如下： • 例6-1：表结构数据的存储结构 • Public Structure Grade_Information
通过比较来确定输入序列<a1,a2,..,an>的元素间相对次序的排序算法 称为比较排序算法。它的基本思想是： 先从a(1)到a(9)依次与a(0)比较，a(0)大于它后面的数则交换两个数。 第一轮交换完后a(0)里放最小数。 再从a(2)到a(9)依次与a(1)比较，a(1)大于它后面的数则交换两个数。 第二轮交换完后a(1)里放次小数。
年级 1 2 3 4 5 6
• 我们分析数据结构都是从结点(其实也就是元素、记录、顶点，虽然在各种情
况下所用名字不同，但是说的是同一个概念，在本例中就是1行)之间的关系 来分析的。对于这个表中的任何一个记录(结点)，它只有一个直接前趋，只
有一个直接后继(前趋、后继就是前相邻、后相邻的意思)，整个表只有一个
第6章 常用算法及

vb net经典教程

本章目录
例 如 ： 工 具 箱 内 的 TextBox 是 类 ( 它 确 定 了 TextBox的属性、方法和事件) 窗体上显示的是两个Text对象
Text类 Text对象
本章目录
2.1.2 对象的属性、事件和方法
属性、事件和方法构成对象的三要素 1. 属性 存放对象的数据(决定对象外观及功能) 例如，控件名称、文本、大小等属性。 对象属性的设置方法： 设计阶段 利用属性窗口直接设置属性值 程序运行时 通过语句对象名.属性名=属性值 例如：Button1.Text = "确定" 注意：若属性只能在设计阶段设置，在程序运行 阶段不可改变，称为只读属性。
目
录
第一章 基础 第二章 简单的程序设计 第三章 语言基础 第四章 基本的控制结构 第五章 数 组 第六章 过 程 第七章 用户界面设计 第八章 面向对象程序设计基础 第九章 文 件 第十章 图形应用程序开发 第十一章 数据库应用程序开发
第一章 基础
窗体窗口 属性窗口
输出窗口
本章目录
1.2.2主窗口
1.三种工作模式 设计模式 界面的设计和代码的编制 运行模式 运行应用程序 中断模式 暂时中断程序运行，调试程序 2. 菜单栏 包括11个下拉菜单 3. 工具栏
本章目录
1.2.3 窗体设计/代码设计窗口
1.窗体设计器窗口 建立应用程序的界面(一个应用程序可以 有多个窗体，通过“项目|添加Windows窗体” 命令增加新窗体)。 2.代码设计窗口 专门用来进行代码设计，包括各种事件过程、过 程和类等源程序代码的编写和修改。 打开代码设计窗口的方法：双击窗体、控件或单 击代码窗口上方的选项卡组对应项。
1.1 概述 1.2 集成开发环境 1.3 使用帮助系统

vb第六章(过程).ppt


If a<b Then
call swap(a,b)
‘过程的调用, 或swap a,b
End If
(主调过程)
Print a,b
End Sub
求组合数
Cmn
m! n!(m
n)!
'定义求阶乘的Sub子过程fac Private Sub fac(ByVal n As Integer, f As Long) ‘过程定义
End If j=j+2 Loop End Sub
‘用For循环如何实现？
四、参数的传递
参数传递：调用时把实参的值或地址传递给形参 。
1. 形参和实参 2. 按值传递与按地址传递 3. 数组参数的传递
1.形参和实参 （1）形参（形式参数）
出现在被调过程(定义Sub子过程或 Function函数过程)的形参表中的变量名 （除定长字符串变量外）、数组名。
见 求组合数 .vbp
三. Function函数过程的定义及其调用
函数过程是带有返回值的特殊过程。
1、定义
[Public|Private][Static] Function 函数名([参数列表]) [AS 类型]
局部变量或常数定义 语句块 函数名=表达式 [Exit Function ] 语句块 函数名=表达式
Dim i As Integer f=1 For i = 1 To n
f=f*i Next i End Sub
' “=”的click事件
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim fm As Long, fn As Long
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

为了创建良好的用户体验，需要 在程序中添加报表的验证信息。

Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports System.Collections Public Class Form1 Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo) Dim myTableLogOnInfos As TableLogOnInfos = CrystalReportViewer1.LogOnInfo For Each myTableLogOnInfo As TableLogOnInfo In myTableLogOnInfos myTableLogOnInfo.ConnectionInfo = myConnectionInfo Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "CrystalReport1.rpt" Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo() myConnectionInfo.ServerName = "(local)" myConnectionInfo.DatabaseName = "sales" myConnectionInfo.IntegratedSecurity = False erID = "sa" myConnectionInfo.Password = "sa123" SetDBLogonForReport(myConnectionInfo) End Sub End Class

分别选择“使用报表向导”和“标准”选项，下一步 出现对话框“数据”

对话框“数据”为要创建的报表选择数据源， 列表中包括如下的选项：1. 项目数据：显示当 前项目的数据源列表和的数据源；2. 当前连接：显示当前连接到数据源的列表；3. 收藏夹：显示“收藏夹”列表中维护的数据源 列表。4. 历史记录：显示最新5条使用过的数 据源；5. 创建新连接：显示可以创建的所有数 据源，取决于安装过程中选定的数据访问组件。

在列表中选择“创建新连接”中选择“OLE DB(ADO)” 文件夹，对话框“OLE DB(ADO)”

选择“Microsoft OLE DB Provider for SQL Server” 并进入下一步，将要连接 的数据库信息填写到对话 框中。如果连接到本地的 SQL Server，则服务器名 字为“(local)”，用户名和 密码分别为“sa”和 “sa123”，并选择要连接 的数据库为Sales。



要在Windows窗体上显示报表，需要添加CrystalReportViewer控 件，按照以前的方法，在Form.Load方法中添加控件和报表的连 接代码。 案例名称：在工程中添加报表模板 工程名称：Proj6-2 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "CrystalReport1.rpt" End Sub
6.2.3 报表数据导出与打印


水晶报表支持将报表导出的格式包括：1. Adobe Acrobat(.pdf)； 2. Crystal Reports(.rpt)；3. Rich Text Format (.rtf)；4. Microsoft Word (.doc)；5. Microsoft Excel (.xls)；6. HTML 3.2 (.htm)；7. HTML 4.0 (.htm)。 数据导出有两种模式： 1.拉模型。通过指定的数据驱动程序，来进行数据库的连接和提 取数据。基本上，不需要开发人员编写代码。 2. 推模型。需要开发人员自己编写代码来处理数据库连接，填充 DataSet，并传递到报表中。如果后台数据库需要认证，则应提供 登录信息，这里需要编写代码来实现；如果后台数据库是Access， 则一般不需要提供登陆信息。

接着弹出对话框“Crystal Reports库”


在选项组“创建新Crystal Report文档”中，有3个选 项：1. 使用报表向导：有对话框指导完成报表的创建， 并将选择保存到报表设计器中；2. 作为空白报表：对 报表不做任何设置；3. 来自于现有的报表：用目前设 计好的报表作为模板，重新设计报表。 在选项组“选择专家”中包含三种不同的报表专家， 可以指导完成特定类型报表的创建工作。有3个选项： 1. 标准：指导如何选择数据源和连接数据库表。还可 以帮助用户添加字段以及分组、统计、图表以及排序。 2. 交叉表：报表中的数据作为交叉表对象显示，并指 导自定义格式。3. 邮件标签：允许用户格式化报表， 目的是打印在任意尺寸的邮件标签上。



案例名称：数据导出和打印 工程名称：Proj6-3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CrystalReportViewer1.ExportReport() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CrystalReportViewer1.PrintReport() End Sub

单击按钮“完成”返回到“标准报表创建向导”对话 框，依次点开文件夹，找到连接的数据，并将表 “grade”添加到右边的选定列选中，并添加要显示的 字段列表中。下面还有两个配置的窗口，分别是分组 和筛选的对话框，因为这里不需要设置，所以都直接 跳到最后一步“报表样式”，可选的样式有10个，这 里选择“标准”样式。创建好的报表将加载到主窗口 中，
6.1 水晶报表概述




使用水晶报表设计的报表又称为RDLC报表。在2005之前， SQL Server Reporting Services中已经提供了一种被称为报表定义 语言（Report Definition Language, RDL）的语言；在 2005中，Microsoft提供了针对这种报表的设计器，并提供了在 WinForm和WebForm中使用这种报表的能力。Microsoft将这种报 表的后缀定为RDLC，RDL仍然是Report Definition Language的缩 写，C代表Client-Side Processing，凸显了它的客户端处理能力。 水晶报表具有如下的特点： (1) 具有简单易用的控件，特别是Table控件，非常方便字段在报 表上的排列； (2) 灵活的可定制性，用XML来描述一个报表相关数据； (3) 高度可编程性，不需要报表文件，通过代码就可以实现报表 生成、预览和打印等一系列操作； (4) 导出的Excel文件格式非常完美，任何其它报表在这方面都不 能与之比拟，而且并不需要安装Excel。
使用已有的报表模板

案例名称：使用已有的报表模板 工程名称：Proj6-1 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "Hierarchical Grouping.rpt" End Sub End Class
6.2 创建自定义报表

在数据库应用程序中，不同的数据库需 要显示不同的字段，即使是同一数据库， 不同的工程需要显示的顺序也是不一样 的，所以一般都需要自定义报表。