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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سورس إظهار معلومات البرنامج (/showthread.php?tid=21998)

سورس إظهار معلومات البرنامج - fouadhdfouad - 06-10-17

السلام عليكم ورحمة الله وبركاته

اريد  سورس كود إظهار معلومات البرنامج المختار من openfiledialog

RE: سورس إظهار معلومات البرنامج - fouadhdfouad - 06-10-17

جمعة مباركة للجميع

هل من مجيب لسؤالي

RE: سورس إظهار معلومات البرنامج - سعود الشامان - 06-10-17

وعليكم السلام ورحمة الله وبركاته

والله يباركك بعمرك


تفضل سورس اظهار جميع البرامج مع امكانيات حذف اي برنامج

RE: سورس إظهار معلومات البرنامج - fouadhdfouad - 06-10-17

ربنا يبارك في عمرك اخي سعود على الرد السريع

ولكن قصدي اختار ان الملف بنفسي .. تابع صورة البرنامج

http://www10.0zz0.com/2017/10/06/20/650317452.jpg

RE: سورس إظهار معلومات البرنامج - سعود الشامان - 07-10-17

أعتذر منك اخي فهمتك خطأ

قم بعمل مشروع جديد :-

وضيف فيه :
OpenFileDialog1
Button1
Label1
Label2
Label3
Label4
Label5
Label6
Label7


والصق هذا الكود في حدث الضغط على الزر Button1

كود :
       OpenFileDialog1.Filter = "EXE files (*.exe)|*.exe"
       OpenFileDialog1.FileName = ""
       If OpenFileDialog1.ShowDialog = vbOK Then

           Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(OpenFileDialog1.FileName)

           If myFileVersionInfo.FileDescription <> "" Then
               Label1.Text = myFileVersionInfo.FileDescription
               Label2.Text = myFileVersionInfo.CompanyName
               Label3.Text = myFileVersionInfo.Language
               Label4.Text = myFileVersionInfo.FileVersion
               Label5.Text = myFileVersionInfo.LegalCopyright
               Label6.Text = myFileVersionInfo.LegalTrademarks
               Label7.Text = myFileVersionInfo.OriginalFilename
           End If

       End If
المشروع بالمرفقات


                Label1.Text = myFileVersionInfo.FileDescription  ' اسم الملف
                Label2.Text = myFileVersionInfo.CompanyName ' اسم الشركة
                Label3.Text = myFileVersionInfo.Language ' لغة الملف
                Label4.Text = myFileVersionInfo.FileVersion ' اصدار الملف
                Label5.Text = myFileVersionInfo.LegalCopyright
                Label6.Text = myFileVersionInfo.LegalTrademarks
                Label7.Text = myFileVersionInfo.OriginalFilename ' اسم الملف الاصلي

بعد الدوت تظهر كل الخيارات الخاصة بعلومات عن الملف



RE: سورس إظهار معلومات البرنامج - fouadhdfouad - 07-10-17

ربنا يبارك فيك اخي مسعود على الرد

الف شكرلك