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
(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]
Dim strm As System.IO.Stream = IO.File.Create("myicon2.ico")
myicon.Save(strm)
strm.Close()
myicon.ToBitmap.Save("saveIconPath.ico", Imaging.ImageFormat.Icon)
(20-09-17, 07:58 AM)أبو نوره كتب : [ -> ]مرحبا اخى ابو روضه
الاداه CheckedListBox لها عناصر Items ولكل Item قيمه نصيه واحده وانت استخدمته لعرض اسم البرنامج بدون مساره
فكيف ستحفظ مسار البرنامج المضاف اسمه في الاداه
المساله تحتاج مشروع ياخذ وقت مع ملاحظه ان البرامج قم يتغير مسارها بعد حفظها فيحصل تعارض
الفكره التي تريدها لم استوعبها جيدا حتى افيدك بشكل مناسب.
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.ImageList1.ColorDepth = ColorDepth.Depth32Bit
Me.ImageList1.ImageSize = New Size(24, 24)
Me.ListView1.SmallImageList = Me.ImageList1
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "EXE files (*.exe)|*.exe"
If OpenFileDialog1.ShowDialog = vbOK Then
Dim appName As String = IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
Dim appPath As String = OpenFileDialog1.FileName
Dim myicon As Icon = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName)
Me.ImageList1.Images.Add(myicon)
Dim itm As New ListViewItem(appName)
itm.Tag = appPath
itm.ImageIndex = Me.ImageList1.Images.Count - 1
Me.ListView1.Items.Add(itm)
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
For Each itm As ListViewItem In Me.ListView1.CheckedItems
MsgBox(itm.Tag)
Next
End Sub
End Class
(20-09-17, 09:46 AM)أبو نوره كتب : [ -> ]مرحبا اخى
جرب مشروع جديد وضع فيه ListView مع تعديل خاصيه View الى Details وتفعيل خاصيه CheckBoxes واضف عمود واحد فقط
اضف ايضا ImageList مع تحديد حجم الصور فيها الى 24x24 ودقه الوانها Depth32Bit
ليكون الفورم مشابه لهذه الصوره
هذه مجرد تجربه لعلك تجد فيها ما يفيدك
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.ImageList1.ColorDepth = ColorDepth.Depth32Bit
Me.ImageList1.ImageSize = New Size(24, 24)
Me.ListView1.SmallImageList = Me.ImageList1
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "EXE files (*.exe)|*.exe"
If OpenFileDialog1.ShowDialog = vbOK Then
Dim appName As String = IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
Dim appPath As String = OpenFileDialog1.FileName
Dim myicon As Icon = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName)
Me.ImageList1.Images.Add(myicon)
Dim itm As New ListViewItem(appName)
itm.Tag = appPath
itm.ImageIndex = Me.ImageList1.Images.Count - 1
Me.ListView1.Items.Add(itm)
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
For Each itm As ListViewItem In Me.ListView1.CheckedItems
MsgBox(itm.Tag)
Next
End Sub
End Class
For I = 0 To ListView1.CheckedItems.Count - 1
Process.Start(ListView1.CheckedItems)
NextFor Each itm As ListViewItem In Me.ListView1.CheckedItems
Process.Start(itm.Tag)
Next
(20-09-17, 12:47 PM)أبو نوره كتب : [ -> ]مرحبا اخى
المسار موجود في Tag الخاص بItem
استخدم For Each افضل
PHP كود :
For Each itm As ListViewItem In Me.ListView1.CheckedItems
Process.Start(itm.Tag)
Next