vbnet编程实例的简单介绍

关于vb.net中socket编程实例：服务器端的一些问题

Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.

要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口

例:

Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'这里创建一个UDP Socket连接的实例 TCP也是一样的

'省略SOCKET连接的代码 当SOCKET连接成功后 可以用下面的语句获取远程信息

Dim IP as string ,Port as integer

'定义IP和Port变量 用来保存地址及端口

IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())

Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

相关问答

Q1: 400分求vb.net,求一个socket的编程实例，详细见问题补充：

至少需要

Imports System

Imports System.Net

Imports System.Net.Sockets

Imports System.Threading

Imports System.Text

还要了解异步与委托

简单点的话

sub tcplisten() '监听过程

 Const LPort As Integer = 6850 '本地监听端口

        Dim IPadd As IPAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList(1) ’本地IP

        'addresslist里面包括IPV6和IPV4

        Dim IPEP As New IPEndPoint(IPadd, LPort) '结点

        TCPL = New TcpListener(IPEP) ’建立监听实例

        TCPL.Start() '开始监听

        If TCPL.Pending = True Then '如果有连接接入

            Dim TCPLX As New Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp) '建立一个新的SOCKET

            TCPLX=TCPL.Accept() ’将第一个接入挂起的连接传给新建SOCKET，因为监听的SOCKET还要继续监听

            dim Ripep as  new ipendpoint=TCPLX.RemoteEndPoint '此时获得远程的ip与端口号

            listbox.add(ripep.ip)

            dim buff as byte()

            buff=TCPLX.Receive() 'listenacceptrecieve这时候可以接受数据了

            dim s as string=Encoding.Default.GetString(buff) '转换成文本

            msg "s"

            TCPLX.send(buff) '这个是发送

       end if

    End Sub

长时间没写，可能有点小错误，你自己调试调试，大概步骤就是listenacceptrecieve，最好看看msdn，那个学起来才系统

Q2: VB.Net编程入门之Hello World(1)

本文介绍了VB NET与VB 的区别 同时介绍了如何使用Visual Studio NET集成开发工具的使用方法

我们将通过一个系列的讲座来向诸位展现Visual Basic Net的独特魅力以及使用它开发应用程序的基本方法 Visual Basic Net是微软公司在 年推出的一种开发基于 Net平台应用程序的开发语言 也是微软公司极力推荐的一种开发 Net平台应用程序的开发语言 首先还是让我们来简单了解一下Visual Basic Net和其前一个版本 也是目前世界上拥有最多使用者的开发语言 Visual Basic 的主要区别

一 Visual Basic和Visual Basic Net的主要区别

虽然说Visual Basic Net是Visual Basic 的后继版本 但在我看来Visual Basic Net除了在语法上还保留Visual Basic原有的踪影以外 因为二者几乎在 ％以上保持相似或相同 但在其他很多方面 Visual Basic Net都和Visual Basic截然不同 也许正是这些不同点 才使得Visual Basic Net功能更强大 更有生命力 但同样也为Visual Basic程序员转型为为Visual Basic Net程序员带来了困难 因为Visual Basic Net提出了很多新的功能 概念和观点 掌握Visual Basic Net不仅要掌握语法 还需要理解并运用这些新的功能 概念和观点 当然也需要掌握 Net框架 理解CLR（Common Language Runtime 通用语言进行时） 下面就从数据访问 Web开发和组件创建三个方面来简要谈谈二者的区别

　 　 数据访问

不同点主要表现在 数据访问技术 数据访问具体实现方法和数据绑定上的不同

在数据访问技术上 Visual Basic 是通过ADO（Active X Data Object 即 Active X数据对象）来实现对数据库访问的 同时为了保证对早期版本的兼容 也提供RDO（远程数据对象）和DAO（数据访问对象）二种数据访问技术 在Visual Basic Net中是使用ADO NET来访问数据库 ADO NET是 NET框架的一部分 其对应的类库是 Net FramWork SDK的真子集 ADO和ADO NET这两种技术在概念 功能和实现上都有许多差异 由于篇幅所限 这里就不一一介绍了 其实在Visual Basic Net中也可以使用ADO来访问数据库 但ADO在Visual Basic Net中是以组件的形式出现的 通过添加引用才可以在Visual Basic Net中使用 添加引用的过程 其实就是对组件互操作 经过互操作后的组件 已经并非先前意义上的组件 而是转变成可供Visual Basic Net直接使用的 Net类库

在数据访问的具体实现方法上 Visual Basic 实现数据访问主要是两种方法 其一是在程序设计阶段 可通过把数据源绑定到ADODC控件或使用数据环境 其二在运行时 可以通过编程方式创建记录集RecordSet对象并与记录集对象交换数据 同样在Visual Basic Net中实现数据访问的方法主要也是二种 其一是在程序设计阶段 通过创建 配置数据适配器DataAdapter和生成数据集DataSet 其二在运行中 通过编程方式动态创建 配置数据适配器和创建 生成数据集

在数据绑定（Data Bind）上 在Visual Basic 中实现数据绑定通过设置控件的下列属性来实现 DataChanged DataField DataFormat DataMember 和 DataSource 通常是把控件的显示属性绑定到数据源中的相应字段 在Visual Basic Net中 数据绑定的应用范围可广泛得多 Visual Basic Net中可以将任何控件的任何属性绑定到包含数据的任何结构中

Web开发

Visual Basic是使用Active Server Page（简称ASP）来创建在 Web应用程序 在ASP中 编写Web页面并非纯正的Visual Basic语言 而是Visual Basic脚本语言 VBs cript 在Visual Basic Net中是使用ASP NET技术来编写Web页面 在ASP NET中使用的也不再是脚本语言 而是真正意义编程语言 其中就可以是Visual Basic Net 开发过ASP页面的朋友都清楚 虽然编写ASP页面对开发工具要求很低 但由于其是面向过程式开发 所以稍微复杂一点的ASP代码都显得杂乱无章 这都给程序设计 调试 修改带来了麻烦 而Visual Basic Net是建立在新的框架结构上 Visual Basic Net完全支持Web编程 凭借ASP NET的Web 应用程序 XML Web services等等基于Web上的功能 使得Visual Basic Net开发Web 页面与开发Windows编程很相似 Web页面代码也不显得有条有理了

组件创建

在使用Visual Basic 和Visual Basic Net编写应用程序时 虽然都可以通过从工具箱中选择组件 通过拖入方式在应用程序中加入组件 但二者在实现机理上却存在根本不同 在Visual Basic 中 应用程序中创建的组件全部是组件 即可在应用程序中使用的ActiveX控件 ActiveX 类型的DLL 和 ActiveX类型的EXE 而在Visual Basic Net中 向窗体中拖入的组件 都是基于继承 从 Net框架提供的SDK中相应的类继承 经过实例化后 通过添加功能才把组件加入到设计窗体中 这些过程都可以在Visual Basic Net的源代码中找到 Visual Basic Net中使用的每一个组件都是从Component或Control基类派生出来的

lishixinzhi/Article/program/net/201311/14653

Q3: VB.net编程。

窗口放一个button(计算),一个combobox框(item属性填男/女),一个textbox1(用于输入身高),另一个textbox2(显示结果)

button的click事件里:

if me.combobox.text="男" then

me.textbox2.text=(cint(me.textbox1.text-100).tostring

else

me.textbox2.text=(cint(me.textbox1.text-105).tostring

endif

完了

Q4: VB.NET 拖动无边框窗体编程实例

Imports System Drawing Imports System Windows Forms ****************************************** Private oOriginalRegion As Region = Nothing 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以当前鼠标位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If

lishixinzhi/Article/program/ASP/201311/21755

关于vbnet编程实例和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。