تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف تحصل علي إصدار الدوت الموجود علي جهاز الكمبيوتر
#1
كاتب الموضوع : 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
أخوكم عمر
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لدي مشكلة في عرض تقارير الكريستال ريبورت في جهاز العميل Adel27213 0 124 13-12-23, 12:48 AM
آخر رد: Adel27213
  [مقال] تعرف علي جهاز ايرتاج AirTags للعثور علي الاشياء المفقودة حلمي بكر 0 733 15-05-21, 09:39 PM
آخر رد: حلمي بكر
  [مقال] لابُدّ من تحمّل المشقة حتى تحصل على !!!! ابو روضة 0 915 22-06-20, 07:18 AM
آخر رد: ابو روضة
Thumbs Up [مقال] كيف تحصل على صور و ادوات لمشروعك ؟ CLARO 3 2,360 08-09-19, 02:31 PM
آخر رد: ابراهيم ايبو
Star محاكاة جهاز الحاسوب من سيسكو محمدالملك 0 1,573 13-01-18, 11:23 AM
آخر رد: محمدالملك
  [مقال منقول] مشروع Mono : شغل الدوت نت على اللينكس أو أي نظام تشغيل تحلم به الشاكي لله 6 5,448 13-03-14, 02:02 AM
آخر رد: الشاكي لله
  بشرى! دوت نت عربي- DotNetArabi لقاءات صوتية مع مبرمجين محترفين في الدوت نت RaggiTech 0 2,035 27-10-12, 04:50 PM
آخر رد: RaggiTech
  كيف تحصل علي إصدار الدوت الموجود علي جهاز الكمبيوتر RaggiTech 2 2,415 27-10-12, 04:31 PM
آخر رد: RaggiTech
  كيفيه اداره الاحداث فى بيئه الدوت نت الجزء الثالث how To Handle Events in.net Part 3 RaggiTech 0 1,955 09-10-12, 05:22 PM
آخر رد: RaggiTech
  كيفيه اداره الاحداث فى بيئه الدوت نت الجزء الثانى how To Handle Events in .net Part 2 RaggiTech 0 1,963 09-10-12, 05:21 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم