[أبو نوره]

مرحبا اخى

مفهمتش عليك

تقصد ايه (بإختار كذا برنامج مع بعض)

[ابو روضة]

(20-09-17, 02:29 PM)أبو نوره كتب : مرحبا اخى

مفهمتش عليك

تقصد ايه (بإختار كذا برنامج مع بعض)

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

أيضا لا يتم الا اختيار برنامج واحد فقط انظر الصورة

[أبو نوره]

مرحبا اخى

فهمت عليك
اذا سنقرا الملفات من مصفوفة FileNames بدلا من FileName

PHP كود :

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
        For Each fn As String In OpenFileDialog1.FileNames
            Dim appName As String = IO.Path.GetFileNameWithoutExtension(fn)
            Dim appPath As String = fn

            Dim myicon As Icon = Icon.ExtractAssociatedIcon(fn)
            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)
        Next
    End If

End Sub 


[ابو روضة]

(20-09-17, 02:53 PM)أبو نوره كتب : مرحبا اخى

فهمت عليك
اذا سنقرا الملفات من مصفوفة FileNames بدلا من FileName

PHP كود :

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
        For Each fn As String In OpenFileDialog1.FileNames
            Dim appName As String = IO.Path.GetFileNameWithoutExtension(fn)
            Dim appPath As String = fn

            Dim myicon As Icon = Icon.ExtractAssociatedIcon(fn)
            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)
        Next
    End If

End Sub 


والله ما عارف ماذا اقول لك...

جزاك الله خيرى الدارين اخى ابو نوره وتشوف أولادك بأعلى المستويات دنيا وآخره.

معلش تعبتك معايا.♥