منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف تحصل علي إصدار الدوت الموجود علي جهاز الكمبيوتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الاقسام الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=74)
+--- قسم : قسم المقالات العام (http://vb4arb.com/vb/forumdisplay.php?fid=85)
+--- الموضوع : كيف تحصل علي إصدار الدوت الموجود علي جهاز الكمبيوتر (/showthread.php?tid=5455)



كيف تحصل علي إصدار الدوت الموجود علي جهاز الكمبيوتر - RaggiTech - 09-10-12

كاتب الموضوع : 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
أخوكم عمر