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

Posted 2020-07-08 jiwangbujiu

首先点项目——>添加引用——>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