[ابو روضة]

(19-09-17, 01:12 PM)أبو نوره كتب : مرحبا اخى

لمعرفه ايقونه البرنامج استخدم الداله ExtractAssociatedIcon
ولمعرفه معلومات الملف من اسم واصدار استخدم FileVersionInfo ولكن بعض الملفات لا تتضمن معلومات

PHP كود :

OpenFileDialog1.Filter = "EXE files (*.exe)|*.exe"
If OpenFileDialog1.ShowDialog = vbOK Then

    Dim myicon As Icon = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName)
    PictureBox1.Image = myicon.ToBitmap

    Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(OpenFileDialog1.FileName)
    If myFileVersionInfo.FileDescription <> "" Then
        Label1.Text = myFileVersionInfo.FileDescription
    Else
        Label1.Text = IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
    End If

End If
[align=center][b][color=#ff3366][/color][/b][/align] 


ماشاء الله ولا حول ولا قوة الا بالله...

رزقك المولى جنة عرضها كعرض السموات والارض اخى أبو نوره...

لو تكرمت اريد طلب بسيط وهو اريد جلب كذا برنامج مع بعض ووضعهم

داخل CheckedListBox لكى اختار من بينهم ما سيتم تصطيبه على الجهاز 

ويتم حفظ كل هذه البرامج داخل CheckedListBox حين فتحه فى المرات القادمة..

اعتذر لك اخى .