27-10-12, 04:30 PM
كاتب الموضوع : silverlight
كيف تحصل علي إصدار الدوت نت الموجود علي جهاز الكمبيوتر ؟؟يمكنك إضافةالكلاس التالي الي مشرعك
كود :
Imports System.Text.RegularExpressions
Imports System.Security
Imports System.IO
Imports System
Public Class SystemInfoDotNetVersion
Private Const FRAMEWORK_PATH As String = "\Microsoft.NET\Framework"
Private Const WINDIR1 As String = "windir"
Private Const WINDIR2 As String = "SystemRoot"
Private Shared Function GetHighestVersion(ByVal installationPath As String) As String
Dim versions As String() = Directory.GetDirectories(installationPath, "v*")
Dim version As String = "Unknown"
For i As Integer = versions.Length - 1 To 0 Step -1
version = extractVersion(versions(i))
If isNumber(version) Then
Return version
End If
Next
Return version
End Function
Private Shared Function extractVersion(ByVal directory As String) As String
Dim startIndex As Integer = directory.LastIndexOf("\") + 2
Return directory.Substring(startIndex, directory.Length - startIndex)
End Function
Private Shared Function isNumber(ByVal str As String) As Boolean
Return New Regex("^[0-9]+\.?[0-9]*$").IsMatch(str)
End Function
Public Shared ReadOnly Property NetFrameworkInstallationPath() As String
Get
Return WindowsPath + FRAMEWORK_PATH
End Get
End Property
Public Shared ReadOnly Property WindowsPath() As String
Get
Dim winDir As String = Environment.GetEnvironmentVariable(WINDIR1)
If [String].IsNullOrEmpty(winDir) Then
winDir = Environment.GetEnvironmentVariable(WINDIR2)
End If
Return winDir
End Get
End Property
Public Shared ReadOnly Property FrameworkVersion() As String
Get
Try
Return GetHighestVersion(NetFrameworkInstallationPath)
Catch generatedExceptionName As SecurityException
Return "Unknown"
End Try
End Get
End Property
End Class
كود :
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
End Sub
End Class