Public Structure good '定义一个名为good的结构语句块
Public di As String '声明此结构的成员，此成员为字符串形
Public ei As Integer '声明此结构的成员，此成员为整数形
End Structure
----------------------------------------------------------------------------------------------------
Public Class Form1
Public Sub objGood(ByVal FIND As good) '创建一个objGood方法(也称为函数），同时为GOOD结构创建了一个按值传递的变量FIND。
'也就是说此函数传入的参数是结构GOOD的一个变量，名称是：FIND,它包含了GOOD结构下的所有成员，在本列中为：di,ei.
txtB1.Text = FIND.di '给第一个文本框赋值，其值为find变量内的di值。
txtB2.Text = FIND.ei.ToString '同上。
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim LI As good '声明LI是good结构的变量。其同样包含了GOOD结构下的所有成员。
LI.ei = 123456 '为变量li内的ei赋值。
LI.di = "lihaigen" '原理同上。
objGood(LI) '把good结构的变量LI及相对应成员的值作为参数传递给我objGood方法(自定义函数)，此时变量LI=变量FIND.
'传入后相当于 txtB1.Text = LI.di
' txtB2.Text = LI.ei.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
Dim WAN As good '在这个事件当中又定义了另一个变量WAN为good结构的变量。其赋值和传递原理同上。
WAN.ei = 888888
WAN.di = "wangbaojun"
objGood(WAN)
End Sub
'由此可见，结构成员可以包含给它的任何一个变量并变为这些变量的成员，并可以对这些变量当中的成员赋值，虽然这些变量都同属于一个结构，但互不影响。
End Class
原文地址：https://www.jb51.cc/vb/262766.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
