东北大学,可视化程序设计(VB),课件11第11章.ppt

不合理的年龄值和Emai地址，将显示错误提示信息。 MENU 11.3 Web服务概述 11.3.1 Web服务的用途 Web服务是指服务器通过Web向外界提供各种软件服务，该软件的表现形式是实现特定功能的组件。 11.3.2 Web服务的创建与使用 Web服务相当于网上的动态链接库，创建Web服务就是创建函数和方法。通过调用实现其功能。 例 编辑英语文章，句子开头为大写字母（句子以符号“？”、“.”和“!”作为结束符），其他是小写字母。 “位置”文本框中显示URL形式的虚拟目录，默认值对应C:\Inetpub\wwwroot。 新建ASP.NET Web服务 系统自动生成Service1.asmx.vb文件 单击“此处”超链接切换到代码视图。 Web服务框架程序 注释行实现一个简单的Web服务，返回HelloWorld字符串 WebMethod() Public Function HelloWorld() As String HelloWorld =“HelloWorld” End Function 添加文本编辑代码 WebMethod() 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服务的一个方法。 WebMethod() Web服务的名称 Web服务中包含的过程，单击之可调用该过程。 Web服务地址 系统根据Web服务的定义，自动创建一个文本框，用于接收参数以传递给Web服务。 输入“i am a STUDENT.who are you? welCOME TO HERE!” 单击 以XML文档格式显示结果 11.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事件代码 编辑前 编辑后 MENU 11.4 自己设计电子邮件发送系统 类 说明 MailAttachment 构造电子邮件附件的