You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
958 B
32 lines
958 B
Imports Microsoft.VisualBasic.ComputingServices.TaskHost
|
|
|
|
Namespace StorageTek
|
|
|
|
''' <summary>
|
|
''' 实体对象
|
|
''' </summary>
|
|
Public Class EntityProvider : Inherits TypeInfo
|
|
|
|
''' <summary>
|
|
''' 存储的方法
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
Public Property Tek As StorageTeks
|
|
''' <summary>
|
|
''' 映射的实际的存储位置
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
Public Property MapFileIO As String
|
|
|
|
Public Function GetRepository() As IEnumerable
|
|
Dim api As IRepository = StorageTek.API.InternalAPIs(Tek)
|
|
Dim type As Type = Me.GetType
|
|
Dim source As IEnumerable = api(MapFileIO, type)
|
|
Return source
|
|
End Function
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return $"[{Tek.ToString}] {MapFileIO} //{MyBase.ToString}"
|
|
End Function
|
|
End Class
|
|
End Namespace |