استفاده از Property Pages

[M.T.P]

با تقدیم احترام...
چندین سال هست که دارم با ویژوال بیسیک 6 کار میکنم اما همواره Property Pages برام ناشناخته بوده :افسرده: و هرگز دنبالش نبودم که ببینم کارش چیه و چیکارس؟!!! :خجالت:
حتی تو آموزش ها و Pdf ها هم اسمی ازش برده نمیشه. !
دوستان ارجمند هرگونه اطلاعاتی در این زمینه دارین دریغ نکنید. :چشمک:
http://barnamenevis.org/forum/attachment.php?attachmentid=56966&stc=1&d=1285252783

[vbhamed]

سلام

بعضي از كنترل ها مثلا همين ADO معروف خودمون تو پنجره Properties ويژوال بيسيك خاصيتي به نام (Custom) دارن كه اگر اونو دابل كليك كنيم، يك فرم باز ميشه و در اون فرم مي تونيم خواص كنترل رو به صورت راحت تري نسبت به حالت معمول تنظيم كنيم

براي ساخت چنين فرمهايي در اكتيوايكسهايي كه توسط خودمون ايجاد ميشه (User Control) از Property Page استفاده ميشه

خوبي اين فرمها اينه كه ميشه براش برنامه نويسي كرد مثلا همين ADO براي ساخت خاصيت Connection String يك صفحه درست كرده كه پارامترهاي مربوط به اين خاصيت از قبيل نام بانك و ... رو تو اون صفحه ميشه به راحتي تنظيم كرد در صورتيكه در حالت معمول و از خود پنجره Properties اين كار مشكل تره و بايد همه عبارات تايپ بشه و ضمنا كلمات كليدي رو حفظ باشيم

[parselearn]

اما براي ساخت گزينه Add Property Page را در منوي Project انتخاب كنيد
سپس در پنجره باز شده برروي VB Property Page Wizard كليك سپس open
در پنجره باز شده بر روي بعدي سپس در اين صفحه شما بايد ليست تبهاي مورد نظر يا دسته بندي را انجام دهيد
مثلا تبي براي ورود رشته ها، عددها،رنگها و ...
براي اين كار برروي كليد add كليك كنيد
در صفحه بعد بايد پرورپرتي هاي مورد نظر را به دسته ها اضافه كنيد
و تمام.


اما كدنويسي
مثلا پروپرتي به نام Value داريم كه مقدار عددي ميگيره
صفحه كد را كه باز كنيم
در رويداد جعبه متني كه براي اين مقدار در نظر گرفته شده متغييري را True كرده به اين معني كه تغييراتي انجام شده


Private Sub txtValue_Change()
Changed = True
End Sub


براي فراخواني اطلاعات رويدادي داريم به نام PropertyPage_SelectionChanged كه هنگامي كه شما كنترلي كه داراي پروپرتي باشد را انتخاب كنيد اين رويداد رخ ميدهد


Private Sub PropertyPage_SelectionChanged()
txtValue.Text = SelectedControls(0).Value
End Sub

و هنگامي كه شما تغييري در مقادير ميدهيد رويداد PropertyPage_ApplyChanges رخ ميدهد


Private Sub PropertyPage_SelectionChanged()
txtValue.Text = SelectedControls(0).Value
End Sub



بعد از يادگيري كدنويسي براي اين صفحه خودتون ميتوانيد به صورت دستي آن را ايجاد كنيد.