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 = 12}

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(10, 20)


    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 = 12}
        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