ویرایش در list box

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

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

مرسی فقط زودتر جوابشو بدین ممنون میشم

ایول منم خودم تو این مسابقات بودم البته فقط تا مرحله استانی:5:
مرحله کشوری هستی دیگه نه؟
اما سوالت...
این کد برنامه ای که میخوای، البته اگه نام و نام خانوادگی هردو در یک لیست باشند:

این برنامه ای که من نوشتم دو دکمه add و edit داره و یه لیست باکس و یه تکست باکس

کد:

---

Dim number As Integer

Private Sub Form_Load()
number = -2
End Sub

Private Sub add_Click()
If number <> -2 Then List1.RemoveItem (number)
List1.AddItem Text1.Text
number = -2
Text1.Text = ""
End Sub

Private Sub edit_Click()
Text1.Text = List1.Text
number = List1.ListIndex
End Sub

---

اگه مشکلی بود بگو
درخدمتیم:5:

نقل قول:

---

نوشته شده توسط sadeghbarout [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ایول منم خودم تو این مسابقات بودم البته فقط تا مرحله استانی:5:
مرحله کشوری هستی دیگه نه؟
اما سوالت...
این کد برنامه ای که میخوای، البته اگه نام و نام خانوادگی هردو در یک لیست باشند:

این برنامه ای که من نوشتم دو دکمه add و edit داره و یه لیست باکس و یه تکست باکس

کد:

---

Dim number As Integer

Private Sub Form_Load()
number = -2
End Sub

Private Sub add_Click()
If number <> -2 Then List1.RemoveItem (number)
List1.AddItem Text1.Text
number = -2
Text1.Text = ""
End Sub

Private Sub edit_Click()
Text1.Text = List1.Text
number = List1.ListIndex
End Sub

---

اگه مشکلی بود بگو
درخدمتیم:5:

---

سلام مرسی از پاسخت دوست عزیز ..برای کشوری نمیخونم یعنی فعلا نه ایشالا بعدا این کارو میکنم:5:
اما پاسخ شما اون قسمت رو که علامت زدم رو مرتب ارور میده

من بیشتر نظرم این بود که دو تا تکست جدا باشن اما با هم تو لیست اضافه بشن و بعد تغییرات روی هر کدومشون توی لیست معلوم بشه یعنی جایگزین قبلی بشه مثل اینی که گذاشتم

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

Private Sub add_Click()
List1.AddItem Text1.Text + " " + Text2.Text
End Sub

Private Sub delete_Click()
List1.RemoveItem List1.ListIndex
End Sub

Private Sub List1_Click()

End Sub

Private Sub removeall_Click()
List1 = Clear
End Sub

---

:46:

کسی جوابمو نمیدونه خیلی عجله دارم....

نقل قول:

---

نوشته شده توسط red moon [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کسی جوابمو نمیدونه خیلی عجله دارم....

---

درست منظورتون رو متوجه نشدم...!

ولي... من اينو نوشتم...! ببينيد مي تونه كمكتون كنه...؟!

کد:

---

http://up.--------.com/Files/4f7b33f71403477e8b89.zip

---

اميدوارم مشكلتون حل شده باشه...!

موفق باشيد...!