如何在多个类中使用只读属性

Question

我在class1中创建了一个只读属性（名称）。我如何在class2中使用这个名称属性？

Public Class Class1 
ReadOnly Property name() As String 
    Get 

     Return System.IO.path.GetFileName("C:\Demo\Sample1") 

    End Get 
End Property 

我可以直接将这个名称变量值带入class2吗？需要建议。

Answer 1

通过Class1的

Public Class Class2 

     Sub New() 
      Dim o As New Class1 
      Dim s As String = o.Name 

     End Sub 

    End Class 

Here的一个实例是值得的班念。

Answer 2

您的Readonly属性仍然是一个实例成员，如果没有实例化Class1并查看属性定义，它可以是Shared。你可以让你的财产Shared和Class2中使用它

Public Class Class1 
Shared Property name() As String 
    Get 

     Return System.IO.path.GetFileName("C:\Demo\Sample1") 

    End Get 
End Property 

和Class2中，你可以叫

Dim class1Name = Class1.name 

Answer 3

，你必须Class1类型的对象的引用，你到处都可以访问此属性。所以如果你的Class2对象有引用，他们可以使用它。

例如：

Class Class2 
    Property cls1 As New Class1 

    Function getClass1Name() As String 
     Return cls1.Name 
    End Function 
End Class 

另一种选择是使财产共享的，因为它是独立于有意义的Class1任何实例的值。

然后你就可以通过类名无Class1实例访问：

Class Class1 
    Public Shared ReadOnly Property Name As String 
     Get 
      Return System.IO.Path.GetFileName("C:\Demo\Sample1") 
     End Get 
    End Property 
End Class 

Class Class2 
    Function getClass1Name() As String 
     Return Class1.Name 
    End Function 
End Class