اضافه کردن چندین آیتم به طور همزمان در Listview1

[karem2074]

با سلام
دوستان من میخوام با استفاده از قابلیت Multiselect که در OpenFileDialog1 هست چندین آیتم را به طور همزمان وارد ListView1 بکنم.

بعد از آن میخوام وقتی که در OpenFileDialog گزینه Cancel رو زدم هیچ آیتمی اضافه نشه.که الان اضافه میشه.
ممنون میشم راهنمای کنین.

[Hossis]

این خیلی راحته

If OFD.showdialog=ok Then

listview1.items.addrange(OFD.FileNames)

End If

[karem2074]

این خیلی راحته

If OFD.showdialog=ok Then

listview1.items.addrange(OFD.FileNames)

End If

دوست عزیز این برا اضافه کردن چند آیتم بود؟
یا اگه cancel رو زدی آیتمی رو اضافه نکنه؟
به هر حال کار نکرد.ممنون میشم یک کد دیگه بذارین.

[mehdi_black_hat]

نیازی نیست برای کنسل کد خاصی بنویسی ، کد ایشون هم درسته ... من کامل تر میزارم شاید مشکلت بر طرف شه ....

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()

    End Sub
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
    End Sub
End Class

[kiarashk]

من می خوام از وقتی کاربر از لیست(عمودی) اولم یه ایتم رو انتخاب می کنه متن اون ایتم رو برابر مسیر مدیا پلیر قرار بدم حتی اگه بگید چه جوری متنش رو بدست بیارم ممنون می شم؟؟؟؟؟

[mehdi_black_hat]

من می خوام از وقتی کاربر از لیست(عمودی) اولم یه ایتم رو انتخاب می کنه متن اون ایتم رو برابر مسیر مدیا پلیر قرار بدم حتی اگه بگید چه جوری متنش رو بدست بیارم ممنون می شم؟؟؟؟؟

کد شما در صورت استفاده از Listview به جای Listbox به این شکل میشه :

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        For i = 0 To OpenFileDialog1.FileNames.Length - 1

            Dim lsi As New ListViewItem

            lsi.Text = OpenFileDialog1.FileNames(i).ToString

            ListView1.Items.Add(lsi)

        Next

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

        For Each c As ListViewItem In ListView1.SelectedItems

            MsgBox(c.Text)

        Next

    End Sub

[pouyansaraf]

این دستورات برای اینکه اگر cancle را زد از تابع باز کننده فایل ها بیرون بیاید

 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then

            Exit Sub

 

        End If

این دستور برای اینکه آدرس چندین فایلی که در OpenFileDialog انتخاب کرده اید به آرایه str برمیگرداند
البته multiselect آن را باید فعال کنید

Dim str() As String = OpenFileDialog1.FileNames

این هم برای اضافه کردن لیست انتخابی به مدیا پلیر

 For i = 0 To str.GetUpperBound(0)

            AxWindowsMediaPlayer1.currentPlaylist.appendItem(A  xWindowsMediaPlayer1.newMedia(str(i)))

        Next