ساختن یک کنابخانه

[vbapr2005]

با سلام
من تا الان هیچ پروزه ی عملی یی با VB.Net ننوشتم.
به هر حال میخوام با کمک شما این برنامه رو بنویسم:
فعلا صورت مسئله اینه:
ما چند تا کتاب داریم که میخوایم اطلاعات اونا رو به کامپیوتر بدیم تا اونا رو بهتر دسته بندی کنیم، بهتر Search و Sort کنیم و ... (بدون شک این برنامه باید یتونه تعداد نامحدودی کتاب رو بگیره، اضافه کنه، پاک کنه و کارای اینجوری...)
حالا ما میایم در ساده ترین حالت این فرم رو میسازیم:

متاسفانه نتونستم عکس رو اینجا بذلرم و اون آپلود کردم. یه نگاهی به عکسه هم بندازید.
من با راهنمایی های آقای هاشم آل طه (Titba soft) تونستم یه کلاس کتاب درست کنم
به این شکل:

Public Class Book
Private mName As String
Public Property Name() As String
Get
Return mName
End Get
Set(ByVal Value As String)
mName = Value
End Set
End Property

Private mWriter As String
Public Property Writer() As String
Get
Return mWriter
End Get
Set(ByVal Value As String)
mWriter = Value
End Set
End Property

Private mBookNumber As Integer
Public Property BookNumber() As Integer
Get
Return mBookNumber
End Get
Set(ByVal Value As Integer)
Value = mBookNumber
End Set
End Property

End Class

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

[vbapr2005]

راستی یه چیزیو هم بگم :
من اولش میخواستم جواب سوالم رو از تاپیک "پیشنهاد انجام یک پروزه" ی آقای بابک زواری بگیرم اما من 6، 7 صفحه رو مرور کردم ولی خبری از شروع کردن نوشتن اون برنامه نبود و دیگه خسته شدم. بخاطر همینه که یه تاپیک جدید درست کردم.
***
به هر حال اجازه بدید ادامه ی کارایی رو که کردم شرح بدم:
همونطور که دیدید یه کلاس کتاب با سه تا پراپرتی Name (که نام کتابه) ، Writer (که اونم نویسنده ی کتابه) و BookNumber (که یه شماره ی اختصاصی برای کتابه و بیشتر به درد ما میخوره تا کاربر) ساختم.
حالا برای اینکه یه کلکسیون از کتاب هم بسازیم نیاز به یه کلاس جدید داریم که اسمشو میذاریم : Books و اینجوری به وجود میاریمش:

Public Class Books
Inherits System.Collections.CollectionBase
End Class
راستشو بخواهید من خودم فقط برای همین کار (ساختن کلکسیون از یک شی ) بلدم از Inherits استفاده کنم (یعنی خودمونیم: من این خط رو حفظ کردم) و لطفا راجع به CollectionBase و چیزهای دیگه ای که میتونست بجای اون باشه برام توضیح بدین

بعد برای اینکه بتونیم یه عضو به این کلکسیون اضافه کنیم مینویسیم:

ublic Sub AddBook(ByVal Book As Book)
Me.InnerList.Add(Book)
End Sub
حالا نمبدونم چجوری یه کاری بکنم که اعضای این کالکشن با اعضای اون لیست باکسی که توی فرم اصلی هست و میتونید اونو ببینید همخوانی پیدا کنن

راستی اینو هم بگم که فرض کنید اسامی کنترل های روی فرم اصلی اینا هستن:
txtName, txtWriter, lstName,btnAdd, btnRemove و frmMain
البته یه کمی چیز هست که تو برنامه ام گذاشتم اما نگفتم.