اضافه کردن چندین آیتم به طور همزمان در 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