سلام دوستان میخواستم بدونم چه طوری میشه تو انتخاب فایل در CommonDialog چند فایل رو همزمان بشه اتخاب کرد
مثلا من از این کد برای انتخاب ایستفاده میکنم فقط یه فایل همزمان انتخاب میشه
ممنون میشم روشی بگید که بیشتر از یه فایل همزمان انتخاب کردکد:CommonDialog1.Filter = "all files(*.*)|*.*"
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.FileName
یه سوال دیگه هم دارم من وقتی میخام از لیست یه چیزی رو حذف کنم یه دونه یه دونه حذف میشه و میخوام بدونم چه طوری میشه با انتخاب چند تاش حذف کرد
از این کد برای این کار انجام میدم
هرچند که Multi select =exended هست ولی بازم فقط یه دونه حذف میشهکد:List1.RemoveItem (List1.ListIndex)
ممنون
سلام
نقل قول:
ممنون میشم روشی بگید که بیشتر از یه فایل همزمان انتخاب کرد
کد:VB6
CommonDialog.Flags = 524800
VB7,8,9,10:
OpenFileDialog.Multiselect = True
حذف همه موارد انتخاب شده:نقل قول:
یه سوال دیگه هم دارم من وقتی میخام از لیست یه چیزی رو حذف کنم یه دونه یه دونه حذف میشه و میخوام بدونم چه طوری میشه با انتخاب چند تاش حذف کرد
کد:'VB6
Dim index As Integer
For index = Me.List1.ListCount - 1 To 0 Step -1
If (Me.List1.Selected(index)) Then Me.List1.RemoveItem (index)
Next
'VB7,8,9,10
For index As Integer = Me.ListBox1.SelectedIndices.Count - 1 To 0 Step -1
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(index))
Next
ممنون از لطفی که کردین اگه امکانش هست نحوه ی اضافه کردن به listbox رو هم توضیح بدین ممنون میشم:11:نقل قول:
نقل قول:
ممنون از لطفی که کردین اگه امکانش هست نحوه ی اضافه کردن به listbox رو هم توضیح بدین ممنون میشم
موفق باشی .کد:For i = 0 To 20
List1.AddItem i
Next i
باز هم سلامنقل قول:
ممنون از لطفتون ولی این جواب نداد
یعنی منظور من این بود که این کد قابلیت مولتی سلکت رو فعال میکنه
حالا میخوام بدونم چه طوری میشه اونیای رو که انتخاب کردیمو همشو یه جا به لیست اضافه کنیمکد:CommonDialog.Flags = 524800
ممنون
نوید جان ببخشید منظورتون رو خوب متوجه نشده بودم .
برو جوابت رو تو لینک زیر ببین :
موفق باشی .کد:http://www.------------.ir/showthread.php?tid=187&pid=748#pid748
سلام
حقیقتش درست متوجه نمیشوم منظورتان چیست!نقل قول:
یعنی منظور من این بود که این کد قابلیت مولتی سلکت رو فعال میکنه
یعنی میخواهید آیتم جدید را اضافه کنید و خودکار این آیتم جدید اضافه شده Select هم باشد؟؟؟
کد:'VB6
Me.ListBox1.AddItem ("Hello")
Me.ListBox1.Selected(Me.ListBox1.ListCount - 1) = True
'VB7,8,9,10
Me.ListBox1.SelectedIndices.Add(Me.ListBox1.Items.Add("Hello"))
نقل قول:
حالا میخوام بدونم چه طوری میشه اونیای رو که انتخاب کردیمو همشو یه جا به لیست اضافه کنیم
(کد:'VB6
Dim files() As String
Dim index As Integer
files = Split(Me.OpenFileDialog1.FileName, vbNullChar)
For index = LBound(files) To UBound(files)
Me.ListBox1.AddItem (files(index))
Next
'VB7,8,9,10
اضافه کردن با مسیر کامل هر فایل
Me.ListBox1.Items.AddRange(Me.OpenFileDialog1.FileNames)
اضافه کردن فقط نام خود فایل بدون مسیر
Me.ListBox1.Items.AddRange(Me.OpenFileDialog1.SafeFileNames)
کد VB6 اگر احیاناً کار نکرد به جای vbNullChar از vbNullString استفاده کنید.
درست یادم نیست ولی گمانم همین کد که اینجا نوشتم صحیح است
)
شب خوش.
با تشكر از دوستان اينم شكل كلي دستور
کد:Private Sub Command1_Click()
Dim X As Long, sFiles() As String
With CommonDialog1
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNFileMustExist
.Filter = "all files(*.*)|*.*"
.CancelError = True
' set other flags
End With
On Error GoTo ExitRoutine
CommonDialog1.ShowOpen
sFiles() = Split(CommonDialog1.FileName, vbNullChar)
For X = 1 To UBound(sFiles)
List1.AddItem sFiles(0) & "\" & sFiles(X)
Next
' sFiles(0) will be the path of the selected files
ExitRoutine:
End Sub