منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا اخى

مفهمتش عليك

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

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

مفهمتش عليك

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

مرحبا اخى

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

(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