Visual Basic.NET程序设计(四)ppt.ppt

课件设计与策划：李印清课件设计与策划：李印清 程序设计Visual Basic.NET 郑州航空工业管理学院 第第8 8章章 面向对象的程序设计面向对象的程序设计 教学目的 教学要求 重点难点 教学内容 郑州航院计算机科学与应用系 教学目的 通过本章的学习，掌握面向对象程序设计中类和对 象的概念，理解类的封装、继承和多态性。 另外，学会在程序中定义类的方法，理解Private 、Public、Protected和Friend等关键字的作用，明白 对象实例化的实质和方法，以及对象实例化与构造函 数之间的关系。 理解命名空间的概念、定义和使用方法。掌握类 的继承和重载的相关概念以及实现方法。了解界面（ 接口）的概念，以及执行界面的方法。 郑州航院计算机科学与应用系 教学要求 1. 正确理解类类、对对象、消息、封装、继继承和多态态 等基本概念。 2. 掌握定义类义类 和类类中变变量、属性、事件和方法的 格式，正确理解Private、Public、Protected和Friend 等关键键字的作用。 3. 掌握构造函数的意义义，掌握对对象实实例化的方法 ，了解共享成员员在程序中的作用。 郑州航院计算机科学与应用系 教学要求 4. 理解命名空间间的概念，学会在程序中定义义和 使用命名空间间的方法。 5. 掌握继继承和重载载的概念，以及继继承和重载载的 实现实现 方法。 6. 了解界面（接口）的概念，执执行界面的方法 。 郑州航院计算机科学与应用系 重点难点 重点： 1. 类类和对对象的概念。 2. 类类的封装、继继承和多态态基本特性。 3. 类类的创创建和实实例化方法， Private、Public 、Protected和Friend等关键键字的作用。 4. 命名空间间的概念、定义义和使用命名空间间的方 法。 5. 类类的继继承、方法的重载载。 郑州航院计算机科学与应用系 重点难点 难难点： 1. Private、Public、Protected和Friend等关键 字的作用。 2. 类类的继继承机制，继继承的实现实现 方法。 3. 重载载与多态态的联联系，方法重载载的实现实现 。 郑州航院计算机科学与应用系 教学内容 8.1 面向对象编程基础 8.2 Visual Basic.NET中面向对象的实现 8.3 命名空间 8.4 类的继承 8.5 重载 郑州航院计算机科学与应用系 例 系统定义的类 VB.NET工具箱中的控件或组件都是类，在窗体上添加一个控件，就 意味着建立该类的一个实例，即对象。 改变对象的属性值，可以使对象具有不同的形态，如 控件的大小、位置、名字、是否可见 通过编写事件代码，使对象具有不同的行为。 郑州航院计算机科学与应用系 Button类对象，拥有 类中定义的属性和方法。 控件或组件 ，是VB.NET系 统提供的类。 郑州航院计算机科学与应用系 Button类对象 Button类 Button1的位置 Button1的大小 Button1是否可见 郑州航院计算机科学与应用系 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click End Sub Button1的的 Click事件过程 郑州航院计算机科学与应用系 1. 对象 8.1 8.1 面向对象编程基础面向对象编程基础 对象是一个属性（数据）集及其操作集（行为）的封装体。 8.1.1 8.1.1 对象和类对象和类 郑州航院计算机科学与应用系 1. 对象 2. 属性 属性是指描述对象的数据，它描述了对象的状态和特征。 8.1.1 8.1.1 对象和类对象和类 郑州航院计算机科学与应用系 1. 对象 2. 属性 3. 方法 方法是指定义在对象属性上的一组操作， 说明对象的行为和功能。 8.1.1 8.1.1 对象和类对象和类 郑州航院计算机科学与应用系 4. 类 8.1.1 8.1.1 对象和类对象和类 类是一种对象类型。它描述了属于该类型的所有对象的性质，它将 具有相同数据结构（属性）和行为（方法）的对象聚集成一个整体。 类中包括变量、属性、方法和事件。 郑州航院计算机科学与应用系 4. 类 5. 类与对象的关系 8.1.1 8.1.1 对象和类对象和类 类是对象的定义和描述，对象是类的实例。 郑州航院计算机科学与应用系 1. 消息 一个对象需要另外一个对象提供服务时，它向对方发出 一个请求，对方予以响应并完成指定的服务，这种向对象发 出的服务请求称为消息。 消息用来实现对象之间的通信。 8.1.2 8.1.2 消息消息 郑州航院计算机科学与应用系 1. 消息 2. 消息的构成 消息由接受对象名、调用操作名及参数组成。 一个对象所能接受的消息及其参数，构成对象的外部接口。 8.1.2 8.1.2 消息消息 郑州航院计算机科学与应用系 1. 封装性 封装性实现信息隐蔽。 u 对象的属性和方法代码封装在一起，成为一个整体； u 对象只保留外部接口，隐蔽内部的实现细节，外界通过接口 （即对象的方法）与之发生联系。 8.1.3 8.1.3 封装、继承和多态性封装、继承和多态性 郑州航院计算机科学与应用系 1. 封装性 2. 继承性 继承性是指在已有类的基础上通过增加新特征而派生出新类。 原有类称为基类（父类），新类称为派生类（子类）。派生类借助 于继承机制自动拥有父类的属性和行为。 程序员在设计子类时，只需考虑与父类不同的特性部分。 8.1.3 8.1.3 封装、继承和多态性封装、继承和多态性 郑州航院计算机科学与应用系 3. 多态性 “多态”意思是“多种形式” 。 多态性包括重载和参数多态两种形式。一个对象具有两个或多 个具有相同名称的行为时，就发生重载。 例 定义三个abs方法，分别用于计算integer型、single型和 Double型数据的绝对值 ，系统通过接受不同类型的参数来区分执行 哪一个方法。 8.1.3 8.1.3 封装、继承和多态性封装、继承和多态性 1. 封装性 2. 继承性 郑州航院计算机科学与应用系 使用Class语句定义一个类（定义这个类的属性、事 件和方法 ）。通过New关键字来创建类的实例，即类的对象。 8.2 Visual 8.2 Visual Basic.NETBasic.NET中面向对象的实现中面向对象的实现 Class语句的书写格式为： Class ClassName 这里可以定义类的变量、属性、事件和方法 End Class 8.2.1 8.2.1 创建类创建类 郑州航院计算机科学与应用系 Public Structure Point 定义点结构 Dim X As Integer Dim Y As Integer End Structure Public Class Rectangle 定义矩形类 Private ul, lr As Point 左上、右下点 Public CWidth As Integer 矩形的宽 Public CHeight As Integer 矩形的高 定义过程 Private Sub init() CWidth=lr.x-ul.x ：Cheight=lr.y-ul.y End Sub 其他方法和事件定义语句 End Class 8.2.1 8.2.1 创建类创建类 例8-1 定义一个矩形类 定义Rectangle类的属性 定义Rectangle 类的init方法 郑州航院计算机科学与应用系 用Property语句创建属性 Property 属性名（参数表） As 类型名1 Get End Get Set (ByVal Value As 类型名) End Set End Property 8.2.1 8.2.1 创建类创建类 返回值的数据类型 郑州航院计算机科学与应用系 创建方法 方法描述了对象执行的算法。 定义方法可以使用作用域关键字指明其作用范围。 Private：只能调用该类中的代码； Friend：可以在项目控件中调用代码； Public：可以在类外部调用代码； Protected： 用于类的继承。 8.2.1 8.2.1 创建类创建类 郑州航院计算机科学与应用系 8.2.2 8.2.2 对象的实例化和初始化对象的实例化和初始化 类只是一个模板，实际操作的是对象。创建一个对象的 过程被称为实例化。 郑州航院计算机科学与应用系 1. New语句 使用New语句来创建对象 。例如， Dim C1 As TestClass 声明但未实例化 C1=New TestClass( ) 在此实例化 8.2.2 8.2.2 对象的实例化和初始化对象的实例化和初始化 郑州航院计算机科学与应用系 1. New语句 8.2.2 8.2.2 对象的实例化和初始化对象的实例化和初始化 2. 销毁对象 销毁一个对象，给该对象变量赋值Nothing。 Dim C3 As TestClass C3=New TestClass(20) 在此对对象实例化和初始化 C3=Nothing 销毁C3对象 郑州航院计算机科学与应用系 1. 构造函数 构造函数是指在创建一个类的实例时需要执行的代码。在构造 函数过程中编写代码来控制如何创建该对象 。其格式为： Public Class TestClass Public Sub New( ) 在此描述如何初始化对象 End Sub End Class 8.2.3 8.2.3 对象的生命周期对象的生命周期 郑州航院计算机科学与应用系 Public Class Student Private name As String Private speciality As String Private age As Integer Public Sub New( ) 在这里初始化对象 name=“张晓勇” : speciality=“计算机科学与技术” : age=19 End Sub Public Sub New(ByVal S_name As String,ByVal _ S_speciality As String, ByVal S_age As Integer) name=S_name : speciality=S_speciality : age=S_age End Sub Public Shared Sub displayinfo( ) Console.WriteLine(“学生信息：”) End Sub Public Sub display( ) Console.writeLine(“学生姓名：”name) Console.writeLine(“所学专业：”speciality) Console.writeLine(“年龄：”age) End Sub End Class Public Sub New( ) 在这里初始化对象 name=“张晓勇” : speciality=“计算机科学与技术” : age=19 End Sub Public Shared Sub displayinfo( ) Console.WriteLine(“学生信息：”) End Sub Public Sub New(ByVal S_name As String,ByVal _ S_speciality As String, ByVal S_age As Integer) name=S_name : speciality=S_speciality : age=S_age End Sub 无参构造函数 有参构造函数 类的共享方法 郑州航院计算机科学与应用系 Class test Shared Sub main( ) Student.displayinfo( ) Dim S1 As New Student( ) S1.display( ) Dim S2 As New Student(“赵晖”，“电子商务”，22) S2.display( ) End Sub End Class End Namespace 通过类名调用共享方法 Student.displayinfo( ) Dim S1 As New Student( ) 调用无参构造函数生成对象S1 调用有参构造函数生成对象S2 Dim S2 As New Student(“赵晖”，“电子商务”，22) 郑州航院计算机科学与应用系 S1.display( ) 的结果 S2.display( ) 的结果 Student.displayinfo( ) 的结果 郑州航院计算机科学与应用系 8.2.3 8.2.3 对象的生命周期对象的生命周期 2. 对象的销毁 当不再访问对象时，.NET框架使用“引用跟踪垃圾回收” 系统，把无用的对象回收并定期释放被对象占用的资源。 1. 构造函数 郑州航院计算机科学与应用系 8.2.4 8.2.4 共享成员共享成员 VB.NET可以让各个实例拥有公共的变量或者方法，并且共 享变量和方法在未创建实例的时候也可以使用。 郑州航院计算机科学与应用系 1. 共享变量 8.2.4 8.2.4 共享成员共享成员 声明共享变量的目的在于使类的所有实例共享这个变量的值。其 声明与共享方法一样，即使用Shared关键字。 郑州航院计算机科学与应用系 1. 共享变量 8.2.4 8.2.4 共享成员共享成员 2. 共享方法 共享方法不必通过对象来访问，可以由类直接访问。 郑州航院计算机科学与应用系 8.3 8.3 命名空间命名空间 命名空间(NameSpace)是组织类的一种机制。 命名空间可以视为是一组逻辑上有联系的类，即通过命名空 间可以将系统中的大量类库有序地组织起来，以便对类进行有效 地管理和使用。 8.3.1 8.3.1 命名空间的概念命名空间的概念 郑州航院计算机科学与应用系 “引用”文件夹 中的命名空间 郑州航院计算机科学与应用系 System.Windows.Forms 层次结构 System.Windows.Forms.CommonDialog System.Windows.Forms.ColorDialog System.Windows.Forms.FileDialog . . System.Windows.Forms.Control System.Windows.Forms.Button System.Windows.Forms.CheckBox System.Windows.Forms.RadioButton System.Windows.Forms.DataGrid System.Windows.Forms.GroupBox System.Windows.Forms.Label System.Windows.Forms.ComboBox System.Windows.Forms.ListBox System.Windows.Forms.PictureBox System.Windows.Forms.TextBox System.Windows.Forms.Menu System.Windows.Forms.Timer System.Windows.Forms.MessageBox 郑州航院计算机科学与应用系 通过NameSpaceEnd NameSpace语句可以自己定义命名 空间。 NameSpace UserNameSpace Public Class Class1 类成员声明 End Class Public Class Class2 类成员声明 End Class End NameSpace 8.3.2 8.3.2 命名空间的定义命名空间的定义 郑州航院计算机科学与应用系 1. 直接定位命名空间 System.Console.WriteLine(“欢迎您使用VB.NET”) 调用System.Console命名空间中的Writeline方法 8.3.3 8.3.3 命名空间的使用命名空间的使用 郑州航院计算机科学与应用系 1. 直接定位命名空间 8.3.3 8.3.3 命名空间的使用命名空间的使用 2. 使用Imports语句引入命名空间 格式: Imports 功能: 把NameSpace所指定的命名空间引入到当前应用程序中。 例如: Imports System.Windows.Forms Imports System.Drawing 郑州航院计算机科学与应用系 8.4 8.4 类的继承类的继承 创建一个新类时，可以使用继承机制，而不必重新编写实现其 基本功能的程序代码 。 例 定义Student类，包括学号、姓名、专业、入校日期、年龄 。再创建一个Graduatestd派生类，描述研究生的情况，包括要增 加的导师姓名。 8.4.1 8.4.1 继承的实现继承的实现 郑州航院计算机科学与应用系 Imports System.Console Public Class Student 定义父类 Public Num As String Public Name As String Public Speciality As String Public EntranceDate As Date Private nAge As Integer Public Property Age() As Integer End Property Public nGrade As Integer Public Property Grade() As String End Property End Class 郑州航院计算机科学与应用系 Public Class Graduatestd 定义派生类 Inherits Student Public TeacherName As String 研究生导师 Public Overrides Property Grade() As String End Property Sub displayGraduateStdInfo() WriteLine(“研究生姓名:“ Data Source= E:Tsgl.mdb; User ID=Admin; Password=“; “ 郑州航院计算机科学与应用系 2. Command对象 11.2.2 ADO.NET对象及组件 使用Command对象对数据源进行查询、插入、删除、修改等操作。 3. DataReader对象 DataReader对象是一个简单的数据集，实现从数据源中检索数据，检 索结果保存为只向前的只读数据流。 郑州航院计算机科学与应用系 4. DataAdapter对象 11.2.2 ADO.NET对象及组件 DataAdapter对象的功能是从数据源中检索数据、填充DataSet对 象中的表、把对DataSet对象的更改写入数据源。 DataAdapter对象的常用方法： Fill方法：从数据源中提取数据以填充数据集。 Update方法：用于修改数据源。 郑州航院计算机科学与应用系 5. DataSet对象 11.2.2 ADO.NET对象及组件 DataSet对象是内存中的一个小型数据库，用于实现独立于数据源的 数据访问。 通过调用DataAdapter对象的Fill方法以填充 DataSet对象。 对DataSet对象中数据的更改，并没有写入到数据源。要实现数据的 更改与数据源一致，需要调用DataAdapter对象的Update方法。 郑州航院计算机科学与应用系 11.2.3 开发数据库应用程序的一般步骤 使用ADO.NET开发数据库应用程序的步骤： 建立Connection对象与数据源的连接。 使用Command对象执行对数据源的操作，通常使用SQL命令。 使用DataAdapter、DataSet等对象对数据进行操作。 利用DataGrid等控件显示操作结果。 郑州航院计算机科学与应用系 11.3 数据库开发实例 例 E盘存储有Tsgl.mdb（图书管理）数据库，数据库中含 有tushu（图书）表。利用数据网格（DataGrid）控件显示表中的 数据，并且对数据库进行更新。 郑州航院计算机科学与应用系 第1步：创建项目和窗体。 输入 项目名称 郑州航院计算机科学与应用系 第2步：添加数据适配器 。 数据适配器 郑州航院计算机科学与应用系 第3步：启动数据适配器向导。 单击 郑州航院计算机科学与应用系 第4步：选择数据连接，单击新建连接。 单击新建连接 郑州航院计算机科学与应用系 第5步：选择OLE DB提供程序。 选择OLE DB 郑州航院计算机科学与应用系 第6步：选择数据库。 选择数据库 单击测试连接 郑州航院计算机科学与应用系 第7步：数据库连接成功。 郑州航院计算机科学与应用系 第8步：显示新建的数据库连接。 新建连接已建立 郑州航院计算机科学与应用系 第9步：选择SQL语句查询方式。 选择使用SQL 郑州航院计算机科学与应用系 第10步：生成SQL语句。 生成SQL语句 郑州航院计算机科学与应用系 第11步：完成数据适配器配置。 完成数据适 配器配置 郑州航院计算机科学与应用系 第12步：自动生成OleDbConnection1对象。 自动生成 OleDbConnection1对象 郑州航院计算机科学与应用系 第13步：打开“数据”菜单，选择“生成数据集”。 单击 “生成数据集” 郑州航院计算机科学与应用系 第14步：新建数据集。 输入数据集名 选中数据表 选中此项 单击 郑州航院计算机科学与应用系 第15步：自动生成名为dsTushu的数据集对象。 生成 dsTushu对象 郑州航院计算机科学与应用系 第16步：添加“工具箱”windows窗体中的DataGrid控件。 选择 DataGrid控件 郑州航院计算机科学与应用系 第17步：设置DataSource和DataMember属性。 设置 数据绑定 郑州航院计算机科学与应用系 第18步：添加“显示”按钮，命名为btnList。 修改按钮名 郑州航院计算机科学与应用系 第19步：编辑“显示”按钮的Click事件过程。 编辑事件过程 Private Sub btnList_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnList.Click DsTushu.clear() 清空数据集 OleDbDataAdapter1.Fill(DsTushu) 传递要填充的数据集 End Sub 郑州航院计算机科学与应用系 第20步：添加“保存对数据库的更改”按钮，命名为btnUpdate。 修改按钮名 郑州航院计算机科学与应用系 第21步：编辑“保存对数据库的更改”按钮的Click事件过程。 编辑事件过程 Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnUpdate.Click 调用OleDbDataAdapter的Update方法，将数据集的更新发送到数据库中 OleDbDataAdapter1.Update(DsTushu) 使用MessageBox显示确认信息 MessageBox.Show(“Database Updated!”) End Sub 郑州航院计算机科学与应用系 第22步：运行程序，查看结果。 单击 郑州航院计算机科学与应用系 第22步：运行程序，查看结果。 郑州航院计算机科学与应用系 第22步：运行程序，查看结果。 修改字段值 单击此按钮保存对 数据表的修改。 否则，修改无效。 郑州航院计算机科学与应用系 提示数据库 更新成功 第22步：运行程序，查看结果。 郑州航院计算机科学与应用系 主 编：李印清 策 划：李印清 赵小雨 合成制作：赵小雨 动画制作：刘 华 赵小雨 金秋春 傅尔胜 薛海燕 王 杰 文本编辑：李印清 封面设计：赵小雨 背景音乐：蓝色多瑙河 啊，朋友再见 第第1212章章 网络应用程序开发网络应用程序开发 教学目的 教学要求 重点难点 教学内容 郑州航院计算机科学与应用系 教学目的 通过本章的学习，理解与Web开发有关的概念，Web 应用程序的运行过程，了解网络应用程序的组成，HTML 服务器控件、Web服务器控件和验证控件的功能，熟悉 Web窗体的设计步骤，学会创建一个Web服务并能正确使 用。 综合本章知识，设计出一个具有个性化的电子邮 件发送系统。 郑州航院计算机科学与应用系 教学要求 1、掌握与Web开发有关的概念，如服务器、客 户机、Web浏览器、Web页、 Web应用程序、Http超 文本传输协议。正确理解Web应用程序的运行过程。 2、了解网络应用程序和Web窗体的组成，以及 用户界面和编程逻辑的作用。 3、掌握HTML服务器控件、Web服务器控件和验证控 件的功能与作用；了解Web窗体的设计步骤。 郑州航院计算机科学与应用系 教学要求 4、掌握Web服务的概念， Web服务的创建与使用 方法。 5、综合本章知识，设计一个具有个性化的电子邮件 发送系统。 郑州航院计算机科学与应用系 重点难点 重点： 1、 掌握与Web开发有关的概念。 2、 掌握HTML服务器控件、Web服务器控件和验证 控件的功能与作用。 3、 Web应用程序的设计步骤。 4、 掌握Web服务的概念， Web服务的创建与使用 方法。 郑州航院计算机科学与应用系 重点难点 难难点： 1、正确理解Web应用程序的运行过程。 2、Web窗体的设计步骤。 3、 Web服务的概念， Web服务的创建与使用。 郑州航院计算机科学与应用系 教学内容 12.1 Web开发的基础知识 12.2 基于Web窗体创建网络应用程序 12.3 Web服务概述 12.4 自己设计电子邮件发送系统 郑州航院计算机科学与应用系 1. Internet 12.1 Web12.1 Web开发的基础知识开发的基础知识 12.1.1 Web12.1.1 Web的概念的概念 Internet（因特网）是由世界范围内众多计算机网络连接而成的网络， 提供电子邮件、文件传输、远程登录、电子公告、WWW等服务。 郑州航院计算机科学与应用系 1. 因特网 12.1 Web12.1 Web开发的基础知识开发的基础知识 2. Web应用 12.1.1 Web12.1.1 Web的概念的概念 WWW应用称为Web应用，实现基于Web的数据交换。Web环境中， 需要共享的程序或资源存放在服务器（Server）上，与服务器相连的计算 机被称为客户机（Client）。 郑州航院计算机科学与应用系 3. Web应用程序 12.1.1 Web12.1.1 Web的概念的概念 1. 因特网 2. Web应用 Web应用程序是服务器端的可执行程序或动态链接库。 当Web应用程序从Web服务器检索到一个HTTP请求消息时， 对其进行分析，生成Web页面传递给Web服务器，再由Web服务器 传递给客户端。 郑州航院计算机科学与应用系 客户端 Web浏览器 服务器端 Web应用程序 请求应答 用 户 命令 结果 郑州航院计算机科学与应用系 1. HTML语言阶段 2. Script语言阶段 12.1.2 Web12.1.2 Web应用程序的发展应用程序的发展 3. ASP与ASP.NET语言阶段 郑州航院计算机科学与应用系 12.1.3 12.1.3 使用使用ASP.NETASP.NET设计设计WebWeb应用程序应用程序 利用VB.NET开发网络应用程序可分为两类： （1）基于Web窗体创建应用程序 （2）使用Web Services技术创建组件 郑州航院计算机科学与应用系 12.2 12.2 基于基于WebWeb窗体创建网络应用程序窗体创建网络应用程序 12.2.1 ASP.NET Web12.2.1 ASP.NET Web窗体窗体 Web窗体包括界面和编程逻辑。 界面是含标记语言（HTML或XML）和服务器控件的文件。 编程逻辑对用户与Web窗体的交互行为作出响应。 郑州航院计算机科学与应用系 12.2.2 ASP.NET12.2.2 ASP.NET服务器控件服务器控件 1. HTML服务器控件 郑州航院计算机科学与应用系 12.2.2 ASP.NET12.2.2 ASP.NET服务器控件服务器控件 1. HTML服务器控件 2. Web服务器控件 郑州航院计算机科学与应用系 12.2.2 ASP.NET12.2.2 ASP.NET服务器控件服务器控件 1. HTML服务器控件 2. Web服务器控件 3. 验证控件 郑州航院计算机科学与应用系 12.2.2 ASP.NET12.2.2 ASP.NET服务器控件服务器控件 1. HTML服务器控件 2. Web服务器控件 3. 验证控件 4. 用户控件 郑州航院计算机科学与应用系 12.2.3 Web12.2.3 Web窗体设计举例窗体设计举例 例 创建用户注册程序 郑州航院计算机科学与应用系 “位置”文本框中显示URL形 式的虚拟目录，默认值对应 C:Inetpubwwwroot。 新建ASP.NET Web应用程序 郑州航院计算机科学与应用系 系统生成Web窗体WebForm1.aspx 郑州航院计算机科学与应用系 在Web窗体 中添加控件。 郑州航院计算机科学与应用系 为“姓名”文本框添加 RequiredFieldValidator控件 对象名及所 属控件类型 命名为ValName 郑州航院计算机科学与应用系 ErrorMessage属 性为“姓名不能为空” ControlToValidate属 性设置为TxtName 郑州航院计算机科学与应用系 为“年龄”文本框添加RangeValidator 控件进行范围校验 命名为ValAge 对象名及所 属控件类型 郑州航院计算机科学与应用系 ControlToValidate属 性设置为TxtAge ErrorMessage属性 为“年龄在1120之间 ” MinimumValue为1， MaximumValue为120 Type属性为Integer 郑州航院计算机科学与应用系 为“Email”文本框添加 RegularExpressionValidator 控件进行格式校验 命名为ValEmail 对象名及所属控件类型 郑州航院计算机科学与应用系 ControlToValidate属 性设置为TxtEmail ErrorMessage属性 为“请输入正确的Email 地址 ” ValidationExpression属性选 择“Internet电子邮件地址” 格式 郑州航院计算机科学与应用系 输入年龄值和 Email地址，并进 行验证。 通过Internet Explorer浏览器显 示结果，地址为新 建Web窗体所在 的虚拟目录。 郑州航院计算机科学与应用系 不合理的年龄值 和Emai地址，将显 示错误提示信息。 郑州航院计算机科学与应用系 12.3 Web12.3 Web服务概述服务概述 12.3.1 Web12.3.1 Web服务的用途服务的用途 Web服务是指服务器通过Web向外界提供各种软件 服务，该软件的表现形式是实现特定功能的组件。 郑州航院计算机科学与应用系 12.3.2 Web12.3.2 Web服务的创建与使用服务的创建与使用 Web服务相当于网上的动态链接库，创建Web服务就是创建函数和方 法。通过调用实现其功能。 例 编辑英语文章，句子开头为大写字母（句子以符号“？”、“.”和 “!”作为结束符），其他是小写字母。 郑州航院计算机科学与应用系 “位置”文本框中显示URL形 式的虚拟目录，默认值对应 C:Inetpubwwwroot。 新建ASP.NET Web服务 郑州航院计算机科学与应用系 系统自动生成 Service1.asmx.vb 文件 单击“此处” 超链接切换到代 码视图。 郑州航院计算机科学与应用系 Web服务 框架程序 注释行实现一个简 单的Web服务，返回 HelloWorld字符串 Public Function HelloWorld() As String HelloWorld =“HelloWorld” End Function 郑州航院计算机科学与应用系 添加文本编辑代码 郑州航院计算机科学与应用系 Public Function Sentence_Edit(ByVal str As String) As String 该过程实现文本编辑，形参str为编辑串，返回结果串 Dim lenth As Integer, i As Integer : Dim str_b As String str = Trim(str) : lenth = Len(str) str_b = UCase$(Mid$(str, 1, 1) 将第一个字符转换为大写 For i = 1 To lenth 循环处理字符串中每一个字符 Select Case Asc(Mid$(str, i, 1) 获得当前字符的代I码值 Case 33, 46, 63 当前字符为“！”、“.”或”?”，则将下一个字符转换为大写 str_b = str_b + UCase$(Mid$(str, i + 1, 1) Case Else 当前字符不是句子结束符，则将下一字符转换为小写 str_b = str_b + LCase$(Mid$(str, i + 1, 1) End Select Next Return str_b 返回编辑后的字符串 End Function 不可缺少，表 明该过程是Web服 务的一个方法。 郑州航院计算机科学与应用系 Web服务的名称 Web服务中包含的过程，单击 之可调用该过程。 Web服务地址 郑州航院计算机科学与应用系 系统根据Web服务的定义，自动创建一个 文本框，用于接收参数以传递给Web服务。 输入“i am a STUDENT.who are you? welCOME TO HERE!” 单击 郑州航院计算机科学与应用系 以XML文档 格式显示结果 郑州航院计算机科学与应用系 12.3.2 Web12.3.2 Web服务的创建与使用服务的创建与使用 编写一个Windows应用程序，调用Web服务中的Sentence_Edit过程。 郑州航院计算机科学与应用系 单击“项目”菜 单下的“添加Web 引用” 子菜单 郑州航院计算机科学与应用系 “添加Web引用”对话框 在地址栏中输入 Web服务所在的地址 Web服务信息 显示在对话框中 郑州航院计算机科学与应用系 单击“添加引用”按钮 ，在项目中添加对指定 Web服务的引用。 郑州航院计算机科学与应用系 “解决方案资源管理器”对 话框中，多了一个“Web Reference”文件夹。 郑州航院计算机科学与应用系 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim WebSer As New localhost.Service1() 新建Service1对象 调用Service1中的Sentence_Edit过程，编辑TextBox1中的文本 结果显示在TextBox2中 TextBox2.Text = WebSer.Sentence_Edit(TextBox1.Text) End Sub 编写“整理”按钮的Click事件代码 郑州航院计算机科学与应用系 编辑前 编辑后 郑州航院计算机科学与应用系 12.4 12.4 自己设计电子邮件发送系统自己设计电子邮件发送系统 类说明 MailAttachment 构造电子邮件附件的属性和方法 MailMessage构造电子邮件的属性和方法 SmtpMail发送消息的属性和方法 System.Web.Mail类库提供若干个构造和发送邮件消息的类。 邮件消息是通过内置在 Microsoft Windows 中的 SMTP 邮件服 务实现邮件传送的，或者是由任意的 SMTP 服务器来传送的。 郑州航院计算机科学与应用系 From获取或设置发件人的电子邮件地址 To获取或设置收件人的电子邮件地址 Subject获取或设置电子邮件的主题 Body获取或设置电子邮件的正文 Cc邮件抄送地址 Bcc邮件密送地址 Priority获取或设置电子邮件的优先级 Attachments指定随消息一起传输的附件列表 MailMessage 类的公共属性 郑州航院计算机科学