下载

0下载券

加入VIP
  • 专属下载券
  • 上传内容扩展
  • 资料优先审核
  • 免费资料无限下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB.NET高级篇

VB.NET高级篇.doc

VB.NET高级篇

starky
2012-12-24 0人阅读 举报 0 0 0 暂无简介

简介:本文档为《VB.NET高级篇doc》,可适用于IT/计算机领域

高级篇高级篇实例:提示信息实例说明在本实例中我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图所示。图运行结果技术要点·ToolTip控件·显示隐藏提示信息·显示提示信息的时间实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“ToolTipExam”然后选择保存路径。单击“确认”。·添加控件向窗体上添加一个Label控件用于测试提示信息。添加一个GroupBox控件在GroupBox控件上放置两个CheckBox控件然后再添加三个Label控件和三个TextBox控件用于设置提示时间。最后添加两个Button控件。·设置属性对窗体上的控件设置属性在本实例中我们只需要将所有控件的Text属性改为和界面一致。·添加代码'是否显示提示信息PrivateSubCheckBoxCheckedChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesCheckBoxCheckedChangedToolTipActive=CheckBoxCheckedEndSub'是否显示提示信息当窗体没有获得焦点时PrivateSubCheckBoxCheckedChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesCheckBoxCheckedChangedToolTipShowAlways=CheckBoxCheckedEndSub'提示信息延迟时间PrivateSubTextBoxTextChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesTextBoxTextChangedToolTipAutomaticDelay=Val(TextBoxText)*EndSub'提示信息弹出时间PrivateSubTextBoxTextChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesTextBoxTextChangedToolTipAutoPopDelay=Val(TextBoxText)*EndSub'提示信息刷新时间PrivateSubTextBoxTextChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesTextBoxTextChangedToolTipReshowDelay=Val(TextBoxText)*EndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结我们在本实例中主要讲解了ToolTip控件的使用方法。ToolTip控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。实例:使用数据集实例说明在本实例中我们再利用VBNET开发一个程序即使用DataSet数据集来制作一个程序。程序运行结果如图所示。图运行结果技术要点·使用DataSet控件·添加数据集文件·连接DataSet控件和DataGrid控件实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“DatasetExam“然后选择保存路径。单击“确认“。·添加控件和数据集向当前窗体上添加一个DataGrid控件(在工具箱“Windows窗体”选项卡上)然后选择菜单“项目|添加新项”在弹出的对话框中选择“数据集”输入文件名单击“确定”按钮。然后双击Datasetxsd文件在工具箱中向DataSet上添加一个element元素。其界面如图所示。图数据集的界面最后向窗体上添加一个DataSet控件(在工具箱“数据”选项卡上)。弹出如图所示的界面。在典型化数据集“名称”中选择刚才的数据集文件。单击“确定”。图运行结果·设置属性切换到窗体的界面给窗体上的控件设置属性详细情况见表。表设置窗体及控件的属性值窗体控件属性值FormText使用数据集DataGridDataSourceDataSetDataMemberelement·运行程序单击菜单“调试|启动”或单击图标运行程序。小结通过对本实例的学习我们应该掌握如何添加和使用数据集(DataSet)。数据集是从数据库衍生过来的数据内存缓冲它是ADONET结构的主体部分。数据集由一系列的数据表(DataTable)对象组成。实例:创建停靠工具栏实例说明在本实例中我们将创建一个具有停靠功能的应用程序程序运行后可以选择停靠位置如左、右、填充等。程序运行结果如图所示。图运行结果技术要点·Panel控件·Dock属性实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“DockMan”然后选择保存路径。单击“确认”。·添加控件向窗体上添加一个Panel控件然后向Panel控件上放置一个Button控件添加一个GroupBox控件在GroupBox控件上放置六个RadioButton控件。注意放置顺序。先放PanelGroupBox控件然后再放置别的控件。·设置属性切换到属性栏对窗体上的控件设置属性我们在表中仅列出主要的属性详细的属性设置请见光盘。表窗体控件的属性值窗体控件属性值FormText停靠工具栏示例RadioButtonNameRdbNoneText无·添加代码ImportsSystemImportsSystemComponentModelImportsSystemDrawingImportsSystemWindowsFormsNamespaceMicrosoftSamplesWinFormsVBDockManPublicClassDockManInheritsSystemWindowsFormsFormPrivaterdbSetAsSystemWindowsFormsRadioButtonPublicSubNew()MyBaseNew()DockMan=Me'ThiscallisrequiredbytheWindowsFormsDesignerInitializeComponent()'TODO:AddanyinitializationaftertheInitializeComponent()callrdbSet=rdbNoneApplyChanges()EndSubPublicOverloadsOverridesSubDispose()MyBaseDispose()componentsDispose()EndSub<STAThread()>SharedSubMain()SystemWindowsFormsApplicationRun(NewDockMan())EndSubPrivateSubApplyChanges()'应用更改IfrdbSetIsrdbNoneThenbtnDemoDock=SystemWindowsFormsDockStyleNoneElseIfrdbSetIsrdbTopThenbtnDemoDock=SystemWindowsFormsDockStyleTopElseIfrdbSetIsrdbLeftThenbtnDemoDock=SystemWindowsFormsDockStyleLeftElseIfrdbSetIsrdbBottomThenbtnDemoDock=SystemWindowsFormsDockStyleBottomElseIfrdbSetIsrdbRightThenbtnDemoDock=SystemWindowsFormsDockStyleRightElse'Thedefaultis:if(rdbSetisrbFill)btnDemoDock=SystemWindowsFormsDockStyleFillEndIfEndSubPrivatecomponentsAsSystemComponentModelIContainerPrivateSubcheckboxClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)ApplyChanges()EndSubPrivateSubradiobuttonClick(ByValsenderAsObject,ByValeAsEventArgs)HandlesrdbBottomClick,rdbFillClick,rdbLeftClick,rdbRightClick,rdbTopClick,rdbNoneClickrdbSet=CType(sender,RadioButton)ApplyChanges()EndSubEndClassEndNamespace·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例主要使用了Dock属性来确定停靠工具栏的位置我们还可以使用鼠标拖动来进行操作就像拖动任务栏一样。这些程序由读者自行开发。实例:旋转月亮实例说明在本实例中我们将制作一个具有“旋转月亮”功能的应用程序。程序运行后单击“开始演示”按钮即可开始旋转月亮。此时按钮标题会变为“停止演示”。再单击该按钮则停止旋转月亮。程序运行结果如图所示。图运行结果技术要点·Timer控件·显示隐藏图片实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“SpinMoon”然后选择保存路径。单击“确认”。·添加控件向窗体上添加一个Button控件和九个Picture控件。·设置属性将Button控件的Text设置为“开始演示”将Picture控件的名称改为imgMoonimgMoon并装入相应的图片。·添加代码DimiAsShortPrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickIfCommandText="开始演示"ThenCommandText="停止演示"TimerEnabled=TrueElseCommandText="开始演示"TimerEnabled=FalseEndIfEndSubPrivateSubFormLoad(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesMyBaseLoadi=EndSubPrivateSubTimerTick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesTimerTickSelectCaseiCaseimgMoonVisible=TrueimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseCaseimgMoonVisible=FalseimgMoonVisible=TrueimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseCaseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=TrueimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=False………………中间代码省略……………………CaseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=FalseimgMoonVisible=TrueCaseElseMsgBox("错误!")EndSelecti=iIfi>Theni=EndIfEndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例是通过显示不同的图片来达到旋转月亮的效果。由于在VBNET中没有了控件数组因此我们只能分别隐藏和显示。实例:轻松控制Word实例说明在本实例中我们将制作一个能够控制Word文件的建立和打开的应用程序。我们可以在文本框中输入文件名单击“新建”按钮即可新建一个Word文档或者打开一个Word历史记录文件。程序运行结果如图所示。图运行结果技术要点·添加Word库引用·建立Word对象·读取Word历史记录文件实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“ControlWord”然后选择保存路径。单击“确认”。·添加引用和控件选择菜单“项目|添加引用”在弹出的“添加引用”对话框中选择COM选项卡选中“MicrosoftWordObjectLibrary”单击“选择”按钮即可将Word库加入到当前项目中。添加时的界面如图所示。然后给窗体上添加两个Label控件和两个Button控件一个TextBox控件和一个ComboBox控件。图添加Word引用·设置属性对窗体上的控件设置属性如表所示。表窗体及控件的属性值窗体控件属性值FormText轻松控制WordTextBoxText空ComboBoxText空ButtonText新建·添加代码PublicSubNew()MyBaseNew()'程序启动时添加Word历史记录文件'ThiscallisrequiredbytheWindowsFormDesignerInitializeComponent()DimiAsShortDimtempwordAsNewWordApplication()Fori=TotempwordRecentFilesCountComboBoxItemsAdd(tempwordRecentFilesItem(i)Name)Next'ComboBoxText=ComboBoxItemsIndexOf(ComboBox)ToString'comboboxItemsGetTytempwordQuit()'AddanyinitializationaftertheInitializeComponent()callEndSub'打开word文件PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimbAsNewWordApplication()bDocumentsOpen(ComboBoxText)bVisible=TrueEndSub'新建word文件PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimwordAsNewWordApplication()wordNewDocumentAdd(TextBoxText)wordVisible=TrueEndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例我们先引用了Word库然后新建Word对象这样就可以实现与Word的连接了。其余对象的引用类似。实例:轻松控制Excel实例说明在本实例中我们制作一个能够建立和打开Excel文档的应用程序。程序运行结果如图所示。图运行结果技术要点·添加Excel库·新建打开Excel文件实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“ControlExcel”然后选择保存路径。单击“确认”。·添加控件选择菜单“项目|添加引用”在弹出的“添加引用”对话框中选择COM选项卡选中“MicrosoftExcelObjectLibrary”单击“选择”按钮即可将Excel库加入到当前项目中。添加时的界面如图所示。然后给窗体上添加两个Label控件和两个Button控件两个TextBox控件。图添加Excel引用·设置属性对窗体及控件进行属性设置。在本实例中我们只需将窗体和各个控件的Text属性设置为和界面一致即可。·添加代码'新建Excel文档PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimexcelAsNewExcelApplication()DimchartAsNewExcelChart()excelVisible=TrueexcelNewWorkbookAdd(TextBoxText)EndSub'打开Excel文档PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimexcelAsNewExcelApplication()excelVisible=TrueexcelWorkbooksOpen(TextBoxText)EndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例我们先引用了Excel库然后新建Excel对象就可以实现与Excel的连接了在本实例中我们只是介绍了新建和打开文件的方法其他方法读者可以自行研究。实例:简单动画实例说明在本实例中我们将制作一个能实现简单动画功能的应用程序。程序运行后可通过不断改变两个图片实现动画效果。程序运行结果如图所示。图运行结果技术要点·切换图片·Timer控件的使用实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“SimpleDynPic”然后选择保存路径。单击“确认”。·添加控件向当前窗体上添加一个Timer控件一个Button按钮一个Label控件和两个Picture控件。·设置属性对窗体上的控件设置属性详细情况如表所示。表窗体及控件的属性值窗体控件属性值TimerEnableTrueIntervalFormText简单动画·添加代码DimflapAsShortPrivateSubbutterfly()'在两个位图间切换Ifflap=ThenbtrflyImage=btrflyImageflap=ElsebtrflyImage=btrflyImageflap=EndIfEndSubPrivateSubOkayClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesOkayClickinfoformDefInstanceClose()EndSubPrivateSubTimerTick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesTimerTick'可以更改Timer控件的时间间隔属性来决定动画的快慢butterfly()EndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例通过使用Timer控件在两个图片之间不断切换以实现动画的效果。实例:VB与MATLAB接口的实现实例说明在本实例中我们制作一个能够与Matlab进行交互的应用程序。程序运行结果如图所示。图运行结果技术要点·引用Matlab库·执行Matlab命令·结束Matlab实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“CnMatlab”然后选择保存路径。单击“确认”。·添加控件向当前窗体添加五个Button按钮两个Picture控件一个Label控件一个Hscroll控件和一个Vscroll控件。单击菜单“项目|添加引用”选中“MatlabAutomation(Version)TypeLibrary”这一项。注意:本程序只能在安装有Matlab的机器上运行。·设置属性将Label控件和Command按钮的Text属性设置为与界面一致。在此不再赘述。·添加代码DimstrAsString'显示正弦图PrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickDimmatlabAsObjectmatlab=CreateObject("matlabapplication")matlabMinimizeCommandWindow()str="t=::*piy=sin(t)plot(t,y)"matlabExecute(str)matlabExecute("print(gcf,'djpeg','c:foo')")matlabQuit()matlab=NothingShowPic()EndSub'显示三维扇形图PrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickDimmatlabAsObjectmatlab=CreateObject("matlabapplication")str="sale=pie(sale,,{'春季','夏季','秋季','冬季'})"matlabExecute(str)matlabExecute("print(gcf,'djpeg','c:foo')")matlabQuit()matlab=NothingShowPic()EndSub'显示三维螺旋线图PrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickDimmatlabAsObjectmatlab=CreateObject("matlabapplication")str="t=::*piplot(sin(t),cos(t),t)"matlabExecute(str)matlabExecute("print(gcf,'djpeg','c:foo')")matlabQuit()matlab=NothingShowPic()EndSub'显示立体球图PrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickDimmatlabAsObjectmatlab=CreateObject("matlabapplication")str="k=n=^kx,y,z=sphere(n)c=hadamard(^k)surf(x,y,z,c)"str=str"colormap()axisequal"matlabExecute(str)matlabQuit()matlab=NothingShowPic()EndSub'显示立体波浪图PrivateSubCommandClick(ByValeventSenderAsSystemObject,ByValeventArgsAsSystemEventArgs)HandlesCommandClickDimmatlabAsObjectmatlab=CreateObject("matlabapplication")str="X,Y,Z=peaks()surfc(X,Y,Z)colormaphsvaxis()"matlabExecute(str)matlabExecute("print(gcf,'djpeg','c:foo')")matlabQuit()matlab=NothingShowPic()EndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结Matlab具有数值运算方便、快捷和画图的优点。它与VB结合能实现功能强大的程序。因此我们利用VBNET可以开发出很有使用价值的程序。实例:获得主机名和IP地址实例说明在本实例中我们将制作一个能获得计算机名称和本地IP地址的应用程序。程序运行后可以点击“更改主机名”按钮在弹出的对话框中输入要修改的名称确定后重新启动计算机即可实现改变。程序运行结果如图所示。图运行结果技术要点·获得更改计算机名称·获得本地IP地址实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“GetComputerIP”然后选择保存路径。单击“确认”。·添加控件向当前窗体上添加四个Label控件一个Button控件和一个AxWinSocket控件(AxWinSocket控件需要从自定义工具箱中添加此控件不属于标准控件添加方法请见前面实例)。·设置属性将Button控件和两个Label控件的Text属性改为和界面一致即可。·添加代码PublicSubNew()MyBaseNew()'ThiscallisrequiredbytheWindowsFormDesignerInitializeComponent()'得到计算机名称还可以使用GetComputerName()API函数LabelText=UCase(AxWinsockLocalHostName)'得到本机的IP地址LabelText=AxWinsockLocalIPEndSubPrivateDeclareFunctionGetComputerNameLib"kernel"Alias"GetComputerNameA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLongPrivateDeclareFunctionSetComputerNameLib"kernel"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLongPrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickDimchgcompunameAsString,resAsLongchgcompuname=InputBox("请输入您的计算机的名称","更改计算机名")'设置新的计算机名res=SetComputerName(chgcompuname)Ifres<>ThenLabelText=UCase(chgcompuname)MsgBox("下次启动计算机更改将生效")EndIfEndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结在本实例中我们通过使用winsock控件制作出了在开发程序中经常使用到的程序即可以得到本地的计算机名称和IP地址的程序。实例:测试你的心情实例说明在本实例中我们将制作一个能够显示你的心情好坏的程序。程序运行后选择不同的选项按钮在右方就可以显示相应的文字和颜色。程序运行结果如图所示。图运行结果技术要点·改变字体·改变颜色实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“CheckYourMood”然后选择保存路径。单击“确认”。·添加控件向窗体上添加一个GroupBox控件在GroupBox控件上添加三个RadioButton控件并添加一个Label控件。·设置属性将窗体和窗体上的控件的Text属性设置为和界面一致其余属性保持默认。·添加代码PrivateSubradioButtonCheckedChanged(ByValsenderAsObject,ByValeAsSystemEventArgs)HandlesradioButtonCheckedChangedLabelText="我快受不了了我要发疯了谁来帮帮我呢?"labelBackColor=colorRedEndSubPrivateSubradioButtonCheckedChanged(ByValsenderAsObject,ByValeAsSystemEventArgs)HandlesradioButtonCheckedChangedLabelText="今天的运气太不好了不过厄运很快就会过去了我要开始新的生活!"LabelBackColor=ColorGrayEndSubPrivateSubradioButtonCheckedChanged(ByValsenderAsObject,ByValeAsSystemEventArgs)HandlesradioButtonCheckedChangedLabelText="太棒了就跟中了大奖一样!希望每天都是这样!"LabelBackColor=ColorYellowEndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例比较简单就是将RadioButton控件和其他控件结合起来。我们在做程序的时候主要是开发大家的思路希望大家制作出更好、更优秀的程序。实例:客户机服务器端的实现(一)实例说明在本实例中我们将制作一个能够实现网络通讯的应用程序。本程序是客户端程序运行结果如图所示。图运行结果技术要点·AxWinSock控件·连接服务器·发送消息实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“tcpClient”然后选择保存路径。单击“确认”。·添加控件向窗体上添加两个Label控件和两个TextBox控件用于说明接收和要发送的信息。三个Button控件。最后添加一个“MicrosoftWinSockControl”(此控件需要额外添加)。·设置属性对窗体上的控件设置属性在表中列出了主要的属性。其余属性请见光盘。表窗体属性的属性值窗体控件属性值TextBoxMultiLineTrueScrollBarVerticalReadOnlyTrueText空·添加代码PublicSubNew()MyBaseNew()'ThiscallisrequiredbytheWindowsFormDesignerInitializeComponent()'连接服务器名称和端口根据每台计算机而不同AxWinsockRemoteHost="Macro"AxWinsockRemotePort='AddanyinitializationaftertheInitializeComponent()callEndSub'连接服务器PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickAxWinsockConnect()EndSub'发送信息PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickAxWinsockSendData(TextBoxText)EndSub'退出程序PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickMeClose()EndSub'数据到达时PrivateSubAxWinsockDataArrival(ByValsenderAsObject,ByValeAsAxMSWinsockLibDMSWinsockControlEventsDataArrivalEvent)HandlesAxWinsockDataArrivalDimstrDataAsStringAxWinsockGetData(strData)TextBoxText=strDataEndSub·运行程序单击菜单“调试|启动”或单击图标运行程序。小结本实例使用AxWinsock控件实现与服务器进行通讯。在使用AxWinsock控件时要注意使用的是什么协议可以使用的协议包括Tcp和Udp。两种协议之间的主要区别在于他们的连接状态Tcp是有连接的协议在开始传输数据之前用户必须先建立连接。Udp是无连接的协议信息从一台计算机发送到另一台计算机两者之间没有明确的连接。一般来说在收发数据时如果需要得到另一端的确认信息则需要使用Tcp协议否则使用Udp协议当数据量不是很大的时候使用Udp协议否则使用Tcp协议。实例:客户机服务器端的实现(二)实例说明在本实例中我们将制作一个能够实现网络通讯的应用程序。本程序是服务器端程序运行结果如图所示。图运行结果技术要点·使用AxWinSock控件·侦听客户机·发送信息实现过程·新建项目打开VisualStudioNET选择“新建项目”在项目类型窗口中选择“VisualBasic项目”在模板窗口中选择“Windows应用程序”在名称域中输入“tcpServer”然后选择保存路径。单击“确认”。·添加控件向窗体上添加两个Label控件和两个TextBox控件用于说明接收和要发送的信息两个Button控件。最后添加一个“MicrosoftWinSockControl”(此控件需要额外添加)。·设置属性对窗体上的控件设置属性在表中列出了主要的属性。其余属性请见光盘。表窗体属性的属性值窗体控件属性值TextBoxMultiLineTrueScrollBarVerticalReadOnlyTrueText空·添加代码PublicSubNew()MyBaseNew()'ThiscallisrequiredbytheWindowsFormDesignerInitializeComponent()'初始化端口并开始侦听AxWinsockLocalPort=AxWinsockListen()'AddanyinitializationaftertheInitializeComponent()callEndSub'发送信息PrivateSubButtonClick(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesButtonClickAxWinsockSendData(TextBoxText)EndSubPrivateSubAxWinsockConnectEvent(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesAxWinsockConnectEventEndSub'服务器接受客户端的请求PrivateSubAxWinsockConnectionRequest(ByValsenderAsObject,ByValeAsAx

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

评分:

/78

VIP

意见
反馈

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利