06-10-17, 01:18 AM
06-10-17, 05:21 PM
06-10-17, 05:34 PM
06-10-17, 09:20 PM
07-10-17, 09:26 AM
أعتذر منك اخي فهمتك خطأ
قم بعمل مشروع جديد :-
وضيف فيه :
OpenFileDialog1
Button1
Label1
Label2
Label3
Label4
Label5
Label6
Label7
والصق هذا الكود في حدث الضغط على الزر Button1
المشروع بالمرفقات
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 ' اسم الملف الاصلي
بعد الدوت تظهر كل الخيارات الخاصة بعلومات عن الملف
قم بعمل مشروع جديد :-
وضيف فيه :
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 ' اسم الملف الاصلي
بعد الدوت تظهر كل الخيارات الخاصة بعلومات عن الملف
07-10-17, 07:00 PM