[ابو روضة]

السلام عليكم اخوتى

ازاى اجلب برنامج من جهازى exe وأجلب معه الأسم والايقونة بتاعتو ؟

يعنى مثلا لو حبيت أجلب جوجل كروم من جهازى واجعله داخل الليست بوكس

فازاى لما اجلبه يكون بالاسم والايقونة هكذا ؟

الله يكرمكم الموضوع ده مغلبنى من فترة والله

[أبو نوره]

مرحبا اخى

لمعرفه ايقونه البرنامج استخدم الداله 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 


[سعود الشامان]

مداخلة بسيطة إن سمحتم

لو أردنا وضع زر ( حفظ ) ليقوم بحفظ الصورة بصيغة ico

ماهو الكود المناسب ؟

[ابو روضة]

مرحبا اخى

لمعرفه ايقونه البرنامج استخدم الداله 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 حين فتحه فى المرات القادمة..

اعتذر لك اخى .

[أبو نوره]

مرحبا اخى سعود

بالنسبه ل(لو أردنا وضع زر ( حفظ ) ليقوم بحفظ الصورة بصيغة ico) هناك موضوع بالمنتدى يشرح استخراج الايقونات من البرامج وحفظها
لان الحفظ العادي لا يتم بالالوان الكامله مثل هذا الكود

PHP كود :

Dim strm As System.IO.Stream = IO.File.Create("myicon2.ico")
myicon.Save(strm)
strm.Close()
myicon.ToBitmap.Save("saveIconPath.ico", Imaging.ImageFormat.Icon) 


---

مرحبا اخى ابو روضه

الاداه CheckedListBox لها عناصر Items ولكل Item قيمه نصيه واحده وانت استخدمته لعرض اسم البرنامج بدون مساره
فكيف ستحفظ مسار البرنامج المضاف اسمه في الاداه

المساله تحتاج مشروع ياخذ وقت مع ملاحظه ان البرامج قم يتغير مسارها بعد حفظها فيحصل تعارض

الفكره التي تريدها لم استوعبها جيدا حتى افيدك بشكل مناسب.

[ابو روضة]

مرحبا اخى ابو روضه

الاداه CheckedListBox لها عناصر Items ولكل Item قيمه نصيه واحده وانت استخدمته لعرض اسم البرنامج بدون مساره
فكيف ستحفظ مسار البرنامج المضاف اسمه في الاداه

المساله تحتاج مشروع ياخذ وقت مع ملاحظه ان البرامج قم يتغير مسارها بعد حفظها فيحصل تعارض

الفكره التي تريدها لم استوعبها جيدا حتى افيدك بشكل مناسب.

بارك الله فيك اخى الغالى وجزاك كل خير وسعادة....
انا جلبت كل البرامج لكن المشكلة انها بتظهر بالمسار هكذا "D:\WPI\Install\ChromeSetup.exe" وانا اريد فقط الأسم الذى يظهر واخفاء المسار هكذا  ChromeSetup.exe 
لو ينفع الله يكرمك أفدنى بها وإن لم ينفع  اخفاء مسار الملف فخلاص مش مهم وبارك الله 

[أبو نوره]

مرحبا اخى

جرب مشروع جديد وضع فيه 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 


[ابو روضة]

مرحبا اخى

جرب مشروع جديد وضع فيه 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 


جميل جدا والله ونفعت فعلا لكن ينقصها أشياء بسيطة جدا وأعتذر تعبتك معايا...

1 - اختيار كذا برنامج لانى حينما فعلت خاصية OpenFileDialog1.Multiselect = True ايضا لم

يتم الا برنامج واحد فقط.....

2 - فى الزر الثانى اريد بدل هذه الرسالة  MsgBox(itm.Tag) كود ليجعل البرامج تعمل جربت هذا ولم يفلح

كود :

For I = 0 To ListView1.CheckedItems.Count - 1
           Process.Start(ListView1.CheckedItems)
       Next

...

هذا فقط ما أحاول فيه لانى احتاجه

[أبو نوره]

مرحبا اخى

المسار موجود في Tag الخاص بItem
استخدم For Each افضل

PHP كود :

For Each itm As ListViewItem In Me.ListView1.CheckedItems
    Process.Start(itm.Tag)
Next 


[ابو روضة]

مرحبا اخى

المسار موجود في Tag الخاص بItem
استخدم For Each افضل

PHP كود :

For Each itm As ListViewItem In Me.ListView1.CheckedItems
    Process.Start(itm.Tag)
Next 


الله على إبداعاتك اخى العزيز أبو نوره

فعلا نجحت + إكسب فيا ثواب وكمل جميلك بإختار كذا برنامج مع بعض