drag and drop در listview با آرایه ها

[tondar2008]

خسته نباشید به همه عزیزان

من یه listview دارم که با درگ و دراپ یکی یا تعدادی فایل رو واردش میکنم هربار برای هر کدوم از فایلها یک پنجره باز میشه و باید اسم جدیدی برای فایل انتخاب کنم. فکر کنم باید با ارایه ها درستش کنم ولی هر کاری کردم نتونستم. ممنون میشم کمک کنید
95152

[asghar2008]

سلام
برنامه ات اشکال داره!
Form1 تو پروژه ات نیست.

[mohanad1993]

فرم 1 نداره پروژتون که!؟

[tondar2008]

درستش کردم

[xxnagin]

سلام


هربار برای هر کدوم از فایلها یک پنجره باز میشه و باید اسم جدیدی برای فایل انتخاب کنم

اسم فایل رو برای چی میخواهید عوض کنید
پرژه تون داره درست کار میکنه دیگه
تو فرم 2 هم شما هیچ کدی وارد هم نکردید
این کد ته پروژه اضافه هستش

Dim formfilename As New Form2
formfilename.ShowDialog()

[tondar2008]

سلام

اسم فایل رو برای چی میخواهید عوض کنید
پرژه تون داره درست کار میکنه دیگه
تو فرم 2 هم شما هیچ کدی وارد هم نکردید
این کد ته پروژه اضافه هستش

Dim formfilename AsNewForm2
formfilename.ShowDialog()





خوب برنامه طوریه که باید اسم دوم بگیره . اون بخش کد ها رو حذف کردم چون درست کار نمیکردن فقط برا تک فایل کار میکرد

من تو وارد کردن چنتائی فایل مشکل دارم مثلا تو لیست از قبل 2 تا فایل هست من میام سه تا فایل رو دروپ میکنم تو لیست برنامه باید 3 بار فورم 2 رو برا گرفتن اسم این سه تا بیاره و اسم ها رو بزاره برا sub name هرکدوم . ممکنه کاربر برا 2 تا اسم بزاره برا سومی فورم 2 رو کنسل کنه برنامه باید فایل 3 رو نزاره تو لیست.

[xxnagin]

این اسم دوم چیکار میکنه

شما میتونی از این کد استفاده کنی

For i = 0 To inputfiles.Length - 1
Dim fi As New IO.FileInfo(inputfiles(i))
Dim item As New ListViewItem
item.Text = fi.Name
item.SubItems.Add(fi.FullName)
ListView1.Items.Add(item)
Next i

[xxnagin]

شما میخواهید که sub item را توسط فرم دوم اضافه کنید درسته
اولا شما این مربوط به فرم دوم
Dim formfilename AsNewForm2
formfilename.ShowDialog()
را داخل حلقه for یعنی ته حلقه که هر بار فایلی اضافه میشه برای هر فایل فرم دوم باز بشه
و اگر نه برای 2 تا فایل هم یه بار باز میشه و یکیش خالی میمونه که دومی میگیره یعنی هر چند تا فایل رو دروپ کنی اخرین فایل اسم میگیره نه همه sub item ها
بعد تو فرم 2 کد زیر را وارد کن


For i = 0 To Form1.ListView1.Items.Count - 1
Form1.ListView1.Items(i).SubItems.Add(TextBox1.Tex t)

Next
Me.Close()

[tondar2008]

شما میخواهید که sub item را توسط فرم دوم اضافه کنید درسته
اولا شما این مربوط به فرم دوم
Dim formfilename AsNewForm2
formfilename.ShowDialog()
را داخل حلقه for یعنی ته حلقه که هر بار فایلی اضافه میشه برای هر فایل فرم دوم باز بشه
و اگر نه برای 2 تا فایل هم یه بار باز میشه و یکیش خالی میمونه که دومی میگیره یعنی هر چند تا فایل رو دروپ کنی اخرین فایل اسم میگیره نه همه sub item ها
بعد تو فرم 2 کد زیر را وارد کن


For i = 0 To Form1.ListView1.Items.Count - 1
Form1.ListView1.Items(i).SubItems.Add(TextBox1.Tex t)

Next
Me.Close()







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

[tondar2008]

درست شد .چو معما حل شود اسان شود:لبخندساده: الکی با ارایه ها ور رفتیم:اشتباه:

ممنون جناب xxnagin (http://barnamenevis.org/member.php?92792-xxnagin)