VS2010环境下使用VB开发网络编程（WinHttp）
首先点项目——>添加引用——>COM选项卡——>Microsoft WinHttp Services，version 5.1，然后点确定就可以添加Winhttp到项目引用中。
1、如何定义一个类型：项目——>添加类——>输入类名——>确定：
完成新建类后，输入以下代码：
1 Public Class Class1 2 Public name As String 3 Public age As Integer 4 End Class
2、用刚新建好的类创建一个对象；
1 '定义一个Class1类的实体变量myclassobj，在定义的时候完成给实体的两个属性赋值，赋值放在{}中，使用.属性的方法调用属性 2 Dim myclassobj = New Class1 With {.name = "sdfsf", .age = 12}
3、Form1完整的代码段如下：
1 Public Class Form1 2 3 '定义一个常用的函数，在这里以两个数求和为例，返回两个参数的和 4 Public Function addTwoNumber(ByVal int1 As Integer, ByVal int2 As Integer) 5 6 Return int1 + int2 7 8 End Function 9 10 '无返回的函数定义 11 Public Function addTwoNumber1(ByVal int1 As Integer, ByVal int2 As Integer) As Integer 12 13 addTwoNumber1 = int1 + int2 14 Return addTwoNumber1 15 16 End Function 17 18 '按钮点击后触发两个数求和的方法，让label1显示两个数的和 19 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 20 21 Label1.Text = addTwoNumber1(10, 20) 22 23 24 End Sub 25 26 27 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 28 29 '定义一个Class1类的实体变量myclassobj，在定义的时候完成给实体的两个属性赋值，赋值放在{}中，使用.属性的方法调用属性 30 Dim myclassobj = New Class1 With {.name = "sdfsf", .age = 12} 31 Label2.Text = myclassobj.name 32 33 End Sub 34 End Class
也可以在定义一个类的时候给类的属性添加set方法和get方法，这一点和ios中的类是一样的：
1 Public Class Class1 2 '定义一个name属性，这个属性有两个方法，一个是set方法，也就是给name设置值，一个是get方法，也就是读取name属性的值 3 Public Property name As String 4 Get 5 6 End Get 7 8 9 Set(ByVal value As String) 10 11 End Set 12 End Property 13 14 Public Property age As Integer 15 Get 16 17 End Get 18 Set(ByVal value As Integer) 19 20 End Set 21 End Property 22 23 End Class
