本文整理汇总了VB.NET中System.Management.ManagementClass.GetRelatedClasses方法的典型用法代码示例。如果您正苦于以下问题：VB.NET ManagementClass.GetRelatedClasses方法的具体用法？VB.NET ManagementClass.GetRelatedClasses怎么用？VB.NET ManagementClass.GetRelatedClasses使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了ManagementClass.GetRelatedClasses方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Sample
' 导入命名空间
Imports System.Management
Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim c As ManagementClass
c = New ManagementClass("CIM_LogicalDisk")
For Each r As ManagementClass In c.GetSubclasses()
Console.WriteLine( _
"Instances of {0} are sub-classes", _
r("__CLASS"))
Next
For Each r As ManagementClass In c.GetRelationshipClasses()
Console.WriteLine( _
"{0} is a relationship class to " & _
c.ClassPath.ClassName, _
r("__CLASS"))
For Each related As ManagementClass In c.GetRelatedClasses( _
Nothing, r.ClassPath.ClassName, "Association", Nothing, _
Nothing, Nothing, Nothing)
Console.WriteLine( _
"{0} is related to " & c.ClassPath.ClassName, _
related.ClassPath.ClassName)
Next
Next
End Function
End Class示例2: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Shared Function Main(ByVal args() _
As String) As Integer
Dim c As New ManagementClass("Win32_LogicalDisk")
Dim r As ManagementClass
For Each r In c.GetRelatedClasses()
Console.WriteLine( _
"Instances of {0} may have relationships " _
& "to this class", r("__CLASS"))
Next r
Return 0
End Function
End Class