VS2010环境下使用VB开发网络编程（WinHttp）

首先点项目——>添加引用——>COM选项卡——>Microsoft WinHttp Services，version 5.1，然后点确定就可以添加Winhttp到项目引用中。

1、如何定义一个类型：项目——>添加类——>输入类名——>确定：

完成新建类后，输入以下代码：

 Public Class Class1
     Public name As String
     Public age As Integer
 End Class

2、用刚新建好的类创建一个对象；

 '定义一个Class1类的实体变量myclassobj，在定义的时候完成给实体的两个属性赋值，赋值放在{}中，使用.属性的方法调用属性
         Dim myclassobj = New Class1 With {.name = "sdfsf", .age = }

3、Form1完整的代码段如下：

 Public Class Form1

     '定义一个常用的函数，在这里以两个数求和为例，返回两个参数的和
     Public Function addTwoNumber(ByVal int1 As Integer, ByVal int2 As Integer)

         Return int1 + int2

     End Function

     '无返回的函数定义
     Public Function addTwoNumber1(ByVal int1 As Integer, ByVal int2 As Integer) As Integer

         addTwoNumber1 = int1 + int2
         Return addTwoNumber1

     End Function

     '按钮点击后触发两个数求和的方法，让label1显示两个数的和
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

         Label1.Text = addTwoNumber1(, )

     End Sub

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

         '定义一个Class1类的实体变量myclassobj，在定义的时候完成给实体的两个属性赋值，赋值放在{}中，使用.属性的方法调用属性
         Dim myclassobj = New Class1 With {.name = "sdfsf", .age = }
         Label2.Text = myclassobj.name

     End Sub
 End Class

也可以在定义一个类的时候给类的属性添加set方法和get方法，这一点和ios中的类是一样的：

 Public Class Class1
     '定义一个name属性，这个属性有两个方法，一个是set方法，也就是给name设置值，一个是get方法，也就是读取name属性的值
     Public Property name As String
         Get

         End Get

         Set(ByVal value As String)

         End Set
     End Property

     Public Property age As Integer
         Get

         End Get
         Set(ByVal value As Integer)

         End Set
     End Property

 End Class