27-10-12, 04:31 PM
كاتب المشاركة : silverlight
أعتقد أنه من الممكن إضافة Property التاليه الي الكلاس SystemInfoDotNetVersion كود :
Public Shared ReadOnly Property InstalledCLR() As ArrayList
Get
Dim s As New ArrayList()
Dim componentsKeyName As String = "SOFTWARE\Microsoft\Active Setup\Installed Components", friendlyName As String, version As String
Dim componentsKey As RegistryKey = Registry.LocalMachine.OpenSubKey(componentsKeyName)
Dim instComps As String() = componentsKey.GetSubKeyNames()
For Each instComp As String In instComps
Dim key As RegistryKey = componentsKey.OpenSubKey(instComp)
friendlyName = DirectCast(key.GetValue(Nothing), String)
If friendlyName IsNot Nothing AndAlso friendlyName.IndexOf(".NET Framework") >= 0 Then
' get any version information that's available
version = DirectCast(key.GetValue("Version"), String)
If version IsNot Nothing AndAlso version.Split(","c).Length >= 4 Then
S.Add(friendlyName + (If(version IsNot Nothing, (" (" & version & ")"), "")))
End If
End If
Next
Return s
End Get
End Propertyكود :
Public Class Form1
Private DotNetVersion As String = String.Empty
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DotNetVersion = "Dot Net Version is " & SystemInfoDotNetVersion.FrameworkVersion
Me.Text = DotNetVersion
For i As Integer = 0 To SystemInfoDotNetVersion.InstalledCLR.Count - 1
ListBox1.Items.Add(SystemInfoDotNetVersion.InstalledCLR(i))
Next
End Sub
End Classعموما الأمر متروك لكم لكي تتلاعبوا بالكود قليلا لكي تحصلوا علي ما تريدون
