تبليغاتX
آموزش ويژوال بيسيك و برنامه های موبایل
معرفي يك كنترل اكتيوايكس كاربردي
بنام خدا

 

در اين پست يكي از كنترل هاي اكتيوايكس (كه به اشتباه و  بخاطر پسوندشون به Ocx  معروفند) را معرفي مي كنم و در پايان با يك سورس ساده چگونگي كار با آن را آموزش مي دهم .

 

ابتدا تصوير زير را ببينيد :

 

 

                               

 

 بله اين همان كادر محاوره اي است كه در ويندوز بسيار ديده ايد . اين كنترلي كه از آن صحبت مي كنيم كارش نمايش اين كادر محاوره اي است كه با استفاده از آن مي توان آدرس پوشه اي را كه كاربر معرفي مي كند بدست آورد .

نكته جالب اين كنترل اين است كه كاربر ميتواند در مسيري كه مي خواهد نسبت به ساختن پوشه جديد اقدام كند (كه در Setup  برنامه هاي مختلف زياد ديديد) .

 

اين كنترل را مي توانيد از این لینک دريافت نماييد .

پسورد فايل  www.skrsoft.blogfa.com  است .

 

در ضمن اين كنترل هم كاملا رايگان است و هم حجم بسيار ناچيزي (فقط 32 كيلوبايت) دارد پيشنهاد مي كنم حتما دانلود كنيد .

 

اما چگونگي استفاده از اين كنترل .

 

ابتدا فايلي را كه دريافت نموده ايد از حالت فشرده خارج نماييد  (درون فايل فشرده فقط يك فايل با نام FolderBrowser.ocx  وجود دارد ) .

 

سپس وارد محيط ويژوال بيسيك شده و يك پروژه جديد ايجاد نماييد . حالا از منوي Project  گزينه  Components  را انتخاب نماييد . برروي دكمه Browse  كليك كرده و فايل FolderBrowser.ocx  را انتخاب كنيد . در پايان هم برروي Ok كليك كنيد تا به محيط پروژه برگرديد . مي بينيد كه يك كنترل جديد به جعبه ابزار افزوده شده است . يك كنترل  

FolderBrowser به فرم بيفزاييد و نام آن را به FB1   تغير دهيد  . بهتر است خاصيت Visible  آن را برابر False  قرار دهيد تا در موقع اجرا ديده نشود . يك كنترل Command Button  با نام CmdBrowse  و يك كنترل TextBox  با نام TxtAddress بر روي فرم قرار دهيد . حال بر روي  CmdBrowse  دابل كليك كنيد و در رويداد Click  آن دستور زير را اضافه كنيد :

 

TxtAddress.Text = FB1.BrowseForFolder(Me.hWnd, "Your Message", MI_SystemBrowser + MI_Validate)

 

كه به جاي Your Message  پيام دلخواه خود را قرار دهيد (اين پيام به كاربر نمايش داده خواهد شد).

 

تمام شد به همين راحتي !!!!

 

حالا برنامه را اجرا كنيد و بر روي  CmdBrowse  كليك كنيد مي بينيد كه كادر محاوره اي Browse For Folder نمايش مي يابد و هر پوشه اي را كه انتخاب نماييد آدرس كامل آن در  TxtAddress  نمايش مي يابد .

 

اميدوارم كه از اين مطلب استفاده كافي برده باشيد .

 

اگر به كنترل يا سورس و يا هر آموزشي علاقه ( و يا نياز ) داريد بيان كنيد حتما به آن رسيدگي مي شود .

 

موفق باشيد .

 

                            لطفا نظرات سازنده خود را بيان نماييد.

 

 

/ نوشته شده در پنجشنبه نوزدهم مهر 1386 و ساعت 15:10 در ارتباط با موضوع ویژوال بیسیک |