VB.NET高级篇

282 高 级 篇 高 级 篇 281 实例71：提示信息 实例说明 在本实例中，我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后，可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。 图71-1 运行结果 技术要点 · ToolTip控件 · 显示/隐藏提示信息 · 显示提示信息的时间 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ToolTipExam”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加一个Label控件，用于测试提示信息。添加一个GroupBox控件，在GroupBox控件上放置两个CheckBox控件，然后再添加三个Label控件和三个TextBox控件，用于设置提示时间。最后添加两个Button控件。 · 设置属性 对窗体上的控件设置属性，在本实例中，我们只需要将所有控件的Text属性改为和界面一致。 · 添加代码 '是否显示提示信息 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged ToolTip1.Active = CheckBox1.Checked End Sub '是否显示提示信息，当窗体没有获得焦点时 Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged ToolTip1.ShowAlways = CheckBox1.Checked End Sub '提示信息延迟时间 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ToolTip1.AutomaticDelay = Val(TextBox1.Text) * 1000 End Sub '提示信息弹出时间 Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged ToolTip1.AutoPopDelay = Val(TextBox2.Text) * 1000 End Sub '提示信息刷新时间 Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged ToolTip1.ReshowDelay = Val(TextBox3.Text) * 1000 End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 我们在本实例中主要讲解了ToolTip控件的使用 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。ToolTip控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。 实例72：使用数据集 实例说明 在本实例中，我们再利用VB.NET开发一个程序，即使用DataSet数据集来制作一个程序。程序运行结果如图72-1所示。 图72-1 运行结果 技术要点 · 使用DataSet控件 · 添加数据集文件 · 连接DataSet控件和DataGrid控件 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“DatasetExam“，然后选择保存路径。单击“确认“。 · 添加控件和数据集 向当前窗体上添加一个DataGrid控件（在工具箱“Windows窗体”选项卡上），然后选择菜单“项目|添加新项”，在弹出的对话框中选择“数据集”，输入文件名，单击“确定”按钮。然后双击Dataset.xsd文件，在工具箱中向DataSet1上添加一个element元素。其界面如图72-2所示。 图72-2 数据集的界面 最后向窗体上添加一个DataSet控件（在工具箱“数据”选项卡上）。弹出如图72-3所示的界面。在典型化数据集“名称”中选择刚才的数据集文件。单击“确定”。 图72-3 运行结果 · 设置属性 切换到窗体的界面，给窗体上的控件设置属性，详细情况见 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 72-1。 表72-1 设置窗体及控件的属性值 窗体/控件 属性 值 Form1 Text 使用数据集 DataGrid1 DataSource DataSet1 DataMember element1 · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 通过对本实例的学习，我们应该掌握如何添加和使用数据集（DataSet）。数据集是从数据库衍生过来的数据内存缓冲，它是ADO.NET结构的主体部分。数据集由一系列的数据表（DataTable）对象组成。 实例73：创建停靠工具栏 实例说明 在本实例中，我们将创建一个具有停靠功能的应用程序，程序运行后，可以选择停靠位置如左、右、填充等。程序运行结果如图73-1所示。 图73-1 运行结果 技术要点 · Panel控件 · Dock属性 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“DockMan”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加一个Panel控件，然后向Panel控件上放置一个Button控件，添加一个GroupBox控件，在GroupBox控件上放置六个RadioButton控件。注意放置顺序。先放Panel，GroupBox控件，然后再放置别的控件。 · 设置属性 切换到属性栏，对窗体上的控件设置属性，我们在表73-1中仅列出主要的属性，详细的属性设置请见光盘。 表73-1 窗体/控件的属性值 窗体/控件 属性 值 Form1 Text 停靠工具栏示例 RadioButton1 Name RdbNone Text 无 · 添加代码 Imports System Imports System.ComponentModel Imports System.Drawing Imports System.Windows.Forms Namespace Microsoft.Samples.WinForms.VB.DockMan Public Class DockMan Inherits System.Windows.Forms.Form Private rdbSet As System.Windows.Forms.RadioButton Public Sub New() MyBase.New() DockMan = Me 'This call is required by the Windows Forms Designer. InitializeComponent() 'TODO: Add any initialization after the InitializeComponent() call rdbSet = rdbNone ApplyChanges() End Sub Public Overloads Overrides Sub Dispose() MyBase.Dispose() components.Dispose() End Sub Shared Sub Main() System.Windows.Forms.Application.Run(New DockMan()) End Sub Private Sub ApplyChanges() '应用更改 If rdbSet Is rdbNone Then btnDemo.Dock = System.Windows.Forms.DockStyle.None ElseIf rdbSet Is rdbTop Then btnDemo.Dock = System.Windows.Forms.DockStyle.Top ElseIf rdbSet Is rdbLeft Then btnDemo.Dock = System.Windows.Forms.DockStyle.Left ElseIf rdbSet Is rdbBottom Then btnDemo.Dock = System.Windows.Forms.DockStyle.Bottom ElseIf rdbSet Is rdbRight Then btnDemo.Dock = System.Windows.Forms.DockStyle.Right Else ' The default is: if (rdbSet is rbFill) btnDemo.Dock = System.Windows.Forms.DockStyle.Fill End If End Sub Private components As System.ComponentModel.IContainer Private Sub checkbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ApplyChanges() End Sub Private Sub radiobutton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles rdbBottom.Click, rdbFill.Click, rdbLeft.Click, rdbRight.Click, rdbTop.Click, rdbNone.Click rdbSet = CType(sender, RadioButton) ApplyChanges() End Sub End Class End Namespace · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例主要使用了Dock属性来确定停靠工具栏的位置，我们还可以使用鼠标拖动来进行操作，就像拖动任务栏一样。这些程序由读者自行开发。 实例74：旋转月亮 实例说明 在本实例中，我们将制作一个具有“旋转月亮”功能的应用程序。程序运行后，单击“开始演示”按钮，即可开始旋转月亮。此时按钮标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 会变为“停止演示”。再单击该按钮，则停止旋转月亮。程序运行结果如图74-1所示。 图74-1 运行结果 技术要点 · Timer控件 · 显示/隐藏图片 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“SpinMoon”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加一个Button控件和九个Picture控件。 · 设置属性 将Button控件的Text设置为“开始演示”，将Picture控件的名称改为imgMoon1—imgMoon9，并装入相应的图片。 · 添加代码 Dim i As Short Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click If Command1.Text = "开始演示" Then Command1.Text = "停止演示" Timer1.Enabled = True Else Command1.Text = "开始演示" Timer1.Enabled = False End If End Sub Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load i = 1 End Sub Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick Select Case i Case 1 imgMoon1.Visible = True imgMoon3.Visible = False imgMoon4.Visible = False imgMoon5.Visible = False imgMoon6.Visible = False imgMoon7.Visible = False imgMoon8.Visible = False imgMoon9.Visible = False Case 2 imgMoon1.Visible = False imgMoon2.Visible = True imgMoon3.Visible = False imgMoon4.Visible = False imgMoon5.Visible = False imgMoon6.Visible = False imgMoon7.Visible = False imgMoon8.Visible = False imgMoon9.Visible = False Case 3 imgMoon1.Visible = False imgMoon2.Visible = False imgMoon3.Visible = True imgMoon4.Visible = False imgMoon5.Visible = False imgMoon6.Visible = False imgMoon7.Visible = False imgMoon8.Visible = False imgMoon9.Visible = False ………………中间代码省略…………………… Case 9 imgMoon1.Visible = False imgMoon2.Visible = False imgMoon3.Visible = False imgMoon4.Visible = False imgMoon5.Visible = False imgMoon6.Visible = False imgMoon7.Visible = False imgMoon8.Visible = False imgMoon9.Visible = True Case Else MsgBox("错误！") End Select i = i + 1 If i > 9 Then i = 1 End If End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例是通过显示不同的图片来达到旋转月亮的效果。由于在VB.NET中没有了控件数组，因此我们只能分别隐藏和显示。 实例75：轻松控制Word 实例说明 在本实例中，我们将制作一个能够控制Word文件的建立和打开的应用程序。我们可以在文本框中输入文件名，单击“新建”按钮即可新建一个Word文档，或者打开一个Word历史记录文件。程序运行结果如图75-1所示。 图75-1 运行结果 技术要点 · 添加Word库引用 · 建立Word对象 · 读取Word历史记录文件 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ControlWord”，然后选择保存路径。单击“确认”。 · 添加引用和控件 选择菜单“项目|添加引用”，在弹出的“添加引用”对话框中选择COM选项卡，选中“Microsoft Word 10.0 Object Library”，单击“选择”按钮，即可将Word库加入到当前项目中。添加时的界面如图75-2所示。然后，给窗体上添加两个Label控件和两个Button控件，一个TextBox控件和一个ComboBox控件。 图75-2 添加Word引用 · 设置属性 对窗体上的控件设置属性，如表75-1所示。 表75-1 窗体及控件的属性值 窗体/控件 属性 值 Form1 Text 轻松控制Word TextBox1 Text 空 ComboBox Text 空 Button1 Text 新建 · 添加代码 Public Sub New() MyBase.New() '程序启动时，添加Word历史记录文件 'This call is required by the Windows Form Designer. InitializeComponent() Dim i As Short Dim tempword As New Word.Application() For i = 1 To tempword.RecentFiles.Count ComboBox1.Items.Add(tempword.RecentFiles.Item(i).Name) Next 'ComboBox1.Text = ComboBox1.Items.IndexOf(ComboBox1).ToString 'combobox1.Items.GetTy tempword.Quit() 'Add any initialization after the InitializeComponent() call End Sub '打开word文件 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim b As New Word.Application() b.Documents.Open(ComboBox1.Text) b.Visible = True End Sub '新建word文件 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim word As New Word.Application() word.NewDocument.Add(TextBox1.Text) word.Visible = True End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例我们先引用了Word库，然后新建Word对象，这样就可以实现与Word的连接了。其余对象的引用类似。 实例76：轻松控制Excel 实例说明 在本实例中，我们制作一个能够建立和打开Excel文档的应用程序。程序运行结果如图76-1所示。 图76-1 运行结果 技术要点 · 添加Excel库 · 新建/打开Excel文件 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ControlExcel”，然后选择保存路径。单击“确认”。 · 添加控件 选择菜单“项目|添加引用”，在弹出的“添加引用”对话框中选择COM选项卡，选中“Microsoft Excel 10.0 Object Library”，单击“选择”按钮，即可将Excel库加入到当前项目中。添加时的界面如图76-2所示。然后，给窗体上添加两个Label控件和两个Button控件，两个TextBox控件。 图76-2 添加Excel引用 · 设置属性 对窗体及控件进行属性设置。在本实例中，我们只需将窗体和各个控件的Text属性设置为和界面一致即可。 · 添加代码 '新建Excel文档 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim excel As New Excel.Application() Dim chart As New Excel.Chart() excel.Visible = True excel.NewWorkbook.Add(TextBox1.Text) End Sub '打开Excel文档 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim excel As New Excel.Application() excel.Visible = True excel.Workbooks.Open(TextBox2.Text) End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例我们先引用了Excel库，然后新建Excel对象，就可以实现与Excel的连接了，在本实例中我们只是介绍了新建和打开文件的方法，其他方法读者可以自行研究。 实例77：简单动画 实例说明 在本实例中，我们将制作一个能实现简单动画功能的应用程序。程序运行后，可通过不断改变两个图片实现动画效果。程序运行结果如图77-1所示。 图77-1 运行结果 技术要点 · 切换图片 · Timer控件的使用 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“SimpleDynPic”，然后选择保存路径。单击“确认”。 · 添加控件 向当前窗体上添加一个Timer控件，一个Button按钮，一个Label控件和两个Picture控件。 · 设置属性 对窗体上的控件设置属性，详细情况如表77-1所示。 表77-1 窗体及控件的属性值 窗体/控件 属性 值 Timer1 Enable True Interval 1000 Form1 Text 简单动画 · 添加代码 Dim flap As Short Private Sub butterfly() ' 在两个位图间切换. If flap = 0 Then btrfly.Image = btrfly1.Image flap = 1 Else btrfly.Image = btrfly2.Image flap = 0 End If End Sub Private Sub Okay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Okay.Click infoform.DefInstance.Close() End Sub Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick ' 可以更改Timer控件的时间间隔属性来决定动画的快慢 butterfly() End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例通过使用Timer控件在两个图片之间不断切换以实现动画的效果。 实例78：VB与MATLAB接口的实现 实例说明 在本实例中，我们制作一个能够与Matlab进行交互的应用程序。程序运行结果如图78-1所示。 图78-1 运行结果 技术要点 · 引用Matlab库 · 执行Matlab命令 · 结束Matlab 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“CnMatlab”，然后选择保存路径。单击“确认”。 · 添加控件 向当前窗体添加五个Button按钮，两个Picture控件，一个Label控件，一个Hscroll控件和一个Vscroll控件。单击菜单“项目|添加引用”，选中“Matlab Automation（Version5.3）Type Library”这一项。 注意：本程序只能在安装有Matlab的机器上运行。 · 设置属性 将Label控件和Command按钮的Text属性设置为与界面一致。在此不再赘述。 · 添加代码 Dim str1 As String ' 显示正弦图 Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click Dim matlab As Object matlab = CreateObject("matlab.application") matlab.MinimizeCommandWindow() str1 = "t=1:0.1:2*pi;y=sin(t);plot(t,y)" matlab.Execute(str1) matlab.Execute("print( gcf, '-djpeg', 'c:\foo')") matlab.Quit() matlab = Nothing ShowPic() End Sub ' 显示三维扇形图 Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click Dim matlab As Object matlab = CreateObject("matlab.application") str1 = "sale=[100 150 400 250];pie3(sale,[0 0 1 0],{'春季','夏季','秋季','冬季'})" matlab.Execute(str1) matlab.Execute("print( gcf, '-djpeg', 'c:\foo')") matlab.Quit() matlab = Nothing ShowPic() End Sub ' 显示三维螺旋线图 Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click Dim matlab As Object matlab = CreateObject("matlab.application") str1 = "t=0:0.1:8*pi;plot3(sin(t),cos(t),t)" matlab.Execute(str1) matlab.Execute("print( gcf, '-djpeg', 'c:\foo')") matlab.Quit() matlab = Nothing ShowPic() End Sub ' 显示立体球图 Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click Dim matlab As Object matlab = CreateObject("matlab.application") str1 = "k = 5;n = 2^k-1;[x,y,z] = sphere(n);c = hadamard(2^k);surf(x,y,z,c);" str1 = str1 & "colormap ([1 1 0; 0 1 1]);axis equal" matlab.Execute(str1) matlab.Quit() matlab = Nothing ShowPic() End Sub ' 显示立体波浪图 Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click Dim matlab As Object matlab = CreateObject("matlab.application") str1 = "[X,Y,Z] = peaks(30);surfc(X,Y,Z);colormap hsv;axis ([-3 3 -3 3 -10 5])" matlab.Execute(str1) matlab.Execute("print( gcf, '-djpeg', 'c:\foo')") matlab.Quit() matlab = Nothing ShowPic() End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 Matlab具有数值运算方便、快捷和画图的优点。它与VB结合，能实现功能强大的程序。因此，我们利用VB.NET可以开发出很有使用价值的程序。 实例79：获得主机名和IP地址 实例说明 在本实例中，我们将制作一个能获得计算机名称和本地IP地址的应用程序。程序运行后，可以点击“更改主机名”按钮，在弹出的对话框中输入要修改的名称，确定后重新启动计算机即可实现改变。程序运行结果如图79-1所示。 图79-1 运行结果 技术要点 · 获得/更改计算机名称 · 获得本地IP地址 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“GetComputerIP”，然后选择保存路径。单击“确认”。 · 添加控件 向当前窗体上添加四个Label控件，一个Button控件和一个AxWinSocket控件（AxWinSocket控件需要从自定义工具箱中添加，此控件不属于 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 控件，添加方法请见前面实例）。 · 设置属性 将Button控件和两个Label控件的Text属性改为和界面一致即可。 · 添加代码 Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() ' 得到计算机名称还可以使用GetComputerName()API函数 Label2.Text = UCase(AxWinsock1.LocalHostName) ' 得到本机的IP地址 Label4.Text = AxWinsock1.LocalIP End Sub Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim chgcompuname As String, res As Long chgcompuname = InputBox("请输入您的计算机的名称", "更改计算机名") ' 设置新的计算机名 res = SetComputerName(chgcompuname) If res <> 0 Then Label2.Text = UCase(chgcompuname) MsgBox("下次启动计算机更改将生效") End If End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 在本实例中，我们通过使用winsock控件制作出了在开发程序中经常使用到的程序，即可以得到本地的计算机名称和IP地址的程序。 实例80：测试你的心情 实例说明 在本实例中，我们将制作一个能够显示你的心情好坏的程序。程序运行后，选择不同的选项按钮，在右方就可以显示相应的文字和颜色。程序运行结果如图80-1所示。 图80-1 运行结果 技术要点 · 改变字体 · 改变颜色 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“CheckYourMood”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加一个GroupBox控件，在GroupBox控件上添加三个RadioButton控件，并添加一个Label控件。 · 设置属性 将窗体和窗体上的控件的Text属性设置为和界面一致，其余属性保持默认。 · 添加代码 Private Sub radioButton3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton3.CheckedChanged Label1.Text = "我快受不了了，我要发疯了，谁来帮帮我呢？" label1.BackColor=color.Red End Sub Private Sub radioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton2.CheckedChanged Label1.Text = "今天的运气太不好了，不过，厄运很快就会过去了，我要开始新的生活！" Label1.BackColor = Color.Gray End Sub Private Sub radioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton1.CheckedChanged Label1.Text = "太棒了，就跟中了大奖一样！希望每天都是这样！" Label1.BackColor = Color.Yellow End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例比较简单，就是将RadioButton控件和其他控件结合起来。我们在做程序的时候，主要是开发大家的思路，希望大家制作出更好、更优秀的程序。 实例81：客户机/服务器端的实现（一） 实例说明 在本实例中，我们将制作一个能够实现网络通讯的应用程序。本程序是客户端，程序运行结果如图81-1所示。 图81-1 运行结果 技术要点 · AxWinSock控件 · 连接服务器 · 发送消息 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“tcpClient”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加两个Label控件和两个TextBox控件，用于说明接收和要发送的信息。三个Button控件。最后添加一个“Microsoft WinSock Control”（此控件需要额外添加）。 · 设置属性 对窗体上的控件设置属性，在表81-1中列出了主要的属性。其余属性请见光盘。 表81-1 窗体/属性的属性值 窗体/控件 属性 值 TextBox1 MultiLine True ScrollBar Vertical ReadOnly True Text 空 · 添加代码 Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() '连接服务器名称和端口，根据每台计算机而不同 AxWinsock1.RemoteHost = "Macro" AxWinsock1.RemotePort = 1001 'Add any initialization after the InitializeComponent() call End Sub '连接服务器 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click AxWinsock1.Connect() End Sub '发送信息 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxWinsock1.SendData(TextBox2.Text) End Sub '退出程序 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub '数据到达时 Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival Dim strData As String AxWinsock1.GetData(strData) TextBox1.Text = strData End Sub · 运行程序 单击菜单“调试|启动”或单击 图标运行程序。 小结 本实例使用AxWinsock控件实现与服务器进行通讯。在使用AxWinsock控件时，要注意使用的是什么 协议 离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载 ，可以使用的协议包括Tcp和Udp。两种协议之间的主要区别在于他们的连接状态，Tcp是有连接的协议，在开始传输数据之前，用户必须先建立连接。Udp是无连接的协议，信息从一台计算机发送到另一台计算机，两者之间没有明确的连接。 一般来说，在收发数据时，如果需要得到另一端的确认信息，则需要使用Tcp协议，否则使用Udp协议；当数据量不是很大的时候使用Udp协议，否则使用Tcp协议。 实例82：客户机/服务器端的实现（二） 实例说明 在本实例中，我们将制作一个能够实现网络通讯的应用程序。本程序是服务器端，程序运行结果如图82-1所示。 图82-1 运行结果 技术要点 · 使用AxWinSock控件 · 侦听客户机 · 发送信息 实现过程 · 新建项目 打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中，选择“Windows应用程序”，在名称域中输入“tcpServer”，然后选择保存路径。单击“确认”。 · 添加控件 向窗体上添加两个Label控件和两个TextBox控件，用于说明接收和要发送的信息，两个Button控件。最后添加一个“Microsoft WinSock Control”（此控件需要额外添加）。 · 设置属性 对窗体上的控件设置属性，在表82-1中列出了主要的属性。其余属性请见光盘。 表82-1 窗体/属性的属性值 窗体/控件 属性 值 TextBox1 MultiLine True ScrollBar Vertical ReadOnly True Text 空 · 添加代码 Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() '初始化端口，并开始侦听 AxWinsock1.LocalPort = 1001 AxWinsock1.Listen() 'Add any initialization after the InitializeComponent() call End Sub '发送信息 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxWinsock1.SendData(TextBox2.Text) End Sub Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent End Sub '服务器接受客户端的请求 Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As Ax