vb点虐 调用自建类 vbnet single

vb点虐 如何引用自定义类库

在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。

创新互联公司2013年开创至今，是专业互联网技术服务公司，拥有项目成都网站建设、网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元綦江做网站,已为上家服务,为綦江各地企业和个人服务,联系电话:18980820575

vb点虐 自建类生成类e似xx.item(0).value或者xx.Name("zhangshan").Value

'这是数组的一个方法了，可是可以给数组定义扩展方法来实现这种形式。不过要给Item每个成员能动态生成相应方法，想不出其它简单点的办法，只能一个一个的添加扩展方法。

Namespace 测试

Public Class Item

Public Number() As String

Public Name As String

Public Symbol As String

Public Value As Single

Public Unit As String

Public Description As String

Public Remarks As String

End Class

Public Class XX

Public tty() As Item

Public Sub New()

tty(0).Name = "Women"

tty(0).Value = 198000

tty(1).Name = "temen"

tty.Name("temen").Value = 99999

End Sub

End Class

Public Module Module1

System.Runtime.CompilerServices.Extension() _ 

Public Function Name(ByVal she As Item(), ByVal key As String) As Item '定义扩展方法功能 在net.3.5前的版本像似没有。

For Each it In she

If it.Name = key Then

Return it

End If

Next

Return Nothing

End Function

End Module

End Namespace

vb点虐 如何在一个项目中创建类，并且使用他?

在任意form类或模块中都可以创建类，跟建立函数和过程一样。

示例：

public class form1

‘创建一个属于form的子类，名称为【类名】。

public class 类名

’定义类成员text

public text as string

end class

‘定义一个【类名】类的公共变量。

dim 类名1 as 类名

’定义一个过程，使用【类名】类的text成员

public sub 过程

‘实例化【类名1】

类名1=new 类名

类名1.text=“赋值”

’定义一个【新类】类的私用变量，并实例化。

dim 新类1 as new 新类

新类1.name=“一个字符串”

新类1.age=12

end sub

end class

‘’‘创建一个与form同级的类，名称为【新类】

public class 新类

public sub new（）

end sub

public name as string

public age as integer

end class

在模块中使用：

public class module1

dim a as new form1.类名

end module