multi select در ابزار Common Dialog

[morika]

سلام
چه جوری میشه multi select رو تو common dilog فعال کرد
چه جوری میشه فایلهای انتخابی رو تو listbox نشون داد
ممنون

[win2anp]

سلام به دوستان
درسته که تایپکت قدیمی رو بالا آوردم ولی این مشکل خیلی وقته که من دارم و نمیتونم درست کنم
اگه میشه کمک کنید
خیلی لازمه
خیلی خیلی

[mostafag]

سلام دوست عزيز
از اين کد استفاده کنيد:



With CommonDialog1
.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNAllowMultiselect Or cdlOFNExplorer
.ShowOpen
End With


فقط يک دکمه و يک common dialog قرار بديد و بعد اين رو کد رو داخل دکمه قرار بديد.
به همين راحتي

[win2anp]

ممنون دوست عزیز
ول مشکل اینه که چطوری بزنم تو لیست باکس
میخوام دونه دونه اسم فایل ها بره تو لیست باکس مشکل اونه

[ali.rezaei7]

درود. كد زير نام فايل هاي انتخاب شده را تو يه ليست اضافه مي كنه.


Dim s() As String

CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.Filter = "Ali files|*.*"
CommonDialog1.ShowOpen

s = Split(CommonDialog1.FileName, Chr(0))
List1.Clear

If UBound(s) > 0 Then
For i = 1 To UBound(s)
List1.AddItem s(i)
Next i
Else
List1.AddItem CommonDialog1.FileTitle
End If
ويژگي cdlOFNAllowMultiselect قابليت چند انتخابي رو به ديالوگ اضافه مي كنه و ويژگي cdlOFNExplorer حالت explorer ديالوگ رو پابرجا نگه ميداره.
اگه كاربر بيشتر از يك فايل رو در ديالوگ انتخاب كرده باشه، اين فايل ها بوسيله كاركتر Chr 0 در خاصيت FileName از هم جدا مي شن. و مي تونيم به وسيله تابع Split نام فايل ها رو داخل آرايه انتقال بديم. بايد توجه داشته باشي كه هميشه مقدار اولين عنصر آرايه مسير قرار گيري فايل ها مي باشد و از عنصر يك به بعد نام فايل ها ذخيره شده.