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

转载于:https://www.cnblogs.com/jiwangbujiu/p/5510906.html

• 点赞
• 收藏
• 分享
• 文章举报