正文

vb.net如何创建类 vbnet ini

IP云
IP云V管理员/4 阅读
03/15
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net 自建类生成类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

相关问答

Q1: vb.net中怎么使用createobject添加类呢，就好像vb中一样

应该是一样的vb.net如何创建类，createobject（“”）

不过vb.net如何创建类你还是要添加引用的vb.net如何创建类，否则那个调用对象是不行的。

建议你还是引用的好vb.net如何创建类，这样容易查错，object对象无法继承，所以就没有下拉菜单的索引帮助。这样往往运行时才会引发错误，且这种错误不方便查询定位。

Q2: vb.net怎么添加类

模块：相当于全局级变量。

类：可以实例化，继承等。

对于你这样的初学者来说，可以视作 模块变量=类的public shared变量。

最好的方法是：项目-添加-类-粘贴代码。

Q3: vb.net中创建类

不熟悉VB,如有不妥的地方请包涵!

Public Class Stack

Dim aryData() As Integer

Sub New(ByVal Num As Integer)

Dim aryData(Num) As Integer

End Sub

Function Pop() As Integer

If (aryData.Length = 0) Then

Return 0

Else

Dim a As Integer

a = aryData(aryData.Length)

aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)

Return a

End If

End Function

Sub Push(ByVal n As Integer)

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

aryData(i) = n

End

Else

Continue For

End If

Next

End Sub

Sub PrintStack()

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

End

Else

Print(aryData(i))

End If

Next

End Sub

End Class

vb.net如何创建类的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet ini、vb.net如何创建类的信息别忘了在本站进行查找喔。