Type Of اپراتور

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

TypeOf ControlName Is ControlType

مثال:كنترلي از نوع فايل بوكس رابه تايع زير مي فرستيم يراي تعيين عضو انتخاب شده

Private Function GetSelectItem(LST as Contol) as String

if TypeOf lst is listbox then

GetselectItem=Lst.text:Exit Function

else :GetselectItem=Lst.FileName:Exit Sub

End if

در خط يك تابع با آرگومان يك ليست از نوع كنترل تعريف مي شود خروجي تايپ آف به صورت يك منو مانند تعريف متغيير هنگام كد نويسي ظاهر مي شود كه شما مي توانيد نو ع كنترل خود را از داخل آن انتخاب كنيد.توجه كنيد بين تايپ و آف نبايد فاصله بيفتد واگر نه با خطاي كامپايل مواجه مي شويد.

DoEventsاپراتور

اين اپراتور براي ارجاع تمام عملييات به سي پي يو براي انجام مي باشد.اكثرآ از اين اپراتور براي مواقعي استفاده مي گردد كه يك عمليات وقتگير در حال انجام است مانند اعمال افكت روي تصوير و حلقه هاي تكرار طولاني. اين اپراتور در درون حلقه قرار گرفته و كامپايل نمي شود مانند رهنمود ها در پاسكال عمل مي كندوبه سي پي يو مي گويد تمام كارهيت را به صورت يكسان انجام بده واز اولويت ها صرف نظر كن .در برنامه هايي كه يك عمليات در درون يك حلقه هر دور انجام مي شود آكثرآ باعث هنك كردن آن برنامه تا پايان عمليات مي شود.چون برنامه بين واكنش به تكان خوردن موس -جابه جاكردن برنامه يا بزرگ و كوچك كردن برنامه وپردازش روي عمليات مورد نظر(مثلآ كپي فايل)عمليياتي كه داراي اولويت پردازش است را انتخاب مي كند.اين اپراتور در چنين مواقعي بسيار مفيد است وباعث مي شود كاربر گمان نكند كه برنامه هنك كرده و آن را ببندد.مثال:ِ

For i=0 to list1.listCount -1

if list1.list(i)<>"" then call Copy(list1.list(i),App.path+"\")

DoEvents

Next

در خط اول حلقه اي از صفر تا تعداد اعناصر موجود در ليست اغازمي شودو در هر درو فايل درون ليست در صورت وجود كپي مي شود .اگر فايل هاي مازياد باشد DoEventsو اپراتور را ننويسيم حتمآ برنامه ما هنك مي كند.بايد ياد آور شد استفاده نابجا و بيش از اندازه اين اپراتور موجب كاهش سرعت برنامه مي شود.ِالبته

استفاده مي كنندSleepبه نام APIباعث كاركرد زياد وشديد سي پي يو مي شود وبرخي ترجيح مي دهند از آن استفاده نكنند ويه جاي ان از يك

فرق مي كند. اسليپ باعث ميشود سي پي يو تمام كار هاي در حال اجرا را رها كند وبه مدت زماني كه جلويDoEventsبايد گفت كاركرد اسليپ به طور كلي با

آن نوشته مي شود به استراحت بپردازد.ِ

sleep با توجه به زماني كه براش تعيين ميكني در وسط كار برنامه مكث ايجاد ميكنه و در آن زمان هيچ خطي از كد برنامه اجرا نميشه و همان طور كه از اسم تابع .مشخصه برنامه در آن زمان به خواب ميره
اسليپ زماني كه با محيط خارج از برنامه در ارتباطي خيلي مفيده. چون معمولا وقتي دستوري در وي بي مثل اجراي فلان فايل مدتي طول مي كشد و تو اين مدت دستورات بعدي سريع اجرا مي شوند كه ممكن است نتيجه اش به اجاي فايل بستگي داشته با شه.اسليپ باعث ميشه به ويندوز فرصت بدي ساير دستورات فرستاده شده به خارج برنامه رو اجرا كنه. البته گاهي اوقات هم نميدونيم چند ثانيه مكث كنيم و ممكنه مجبور شيم براي احتياط زمان زيادي مكث كنيم كه سرعت برنامه مياد پايين پس تا مي تونيم از دستورات خود وي بي استفاده كنيم تا بر نامه هاي خارجي.ِ

Shellدستور

توسط اين دستور مي تونيد فايلي را در وي بي اجرا كنيد .آدرسي كه جلوي اين دستور نوشته مي شه اجرا ميشه .شكل اين دستور به اين صورت است:ِ

Shell ProgramPath,RunModel

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

vbHide=0 vbMaximizedFocus=1 vbMinimizedFocus=2 vbMinimizedNoFocus=3 vbNormalFocus=4 vbNormalNoFocus=5

در مدل صفر برنامه به صورت پنهان ظاهر مي شود.براي مواقعي كه مي خواهيم عمل اجرا را از ديد كاربر پنهان كنيم .در مدل 2 برنامه اجرا مي شود به صورت كمينه(روي منوي استارت-مينيمايز شده)وفاكس هم روي ان مي رود يعني اين كه بعد از اجرا هي زرد و آبي مي شود تا كار بر روي آن كليك كند.مدل 3برنامه به

صورت ينيمايز -كمينه اجرا مي شود زرد وآبي نمي شود (معمولي-فاكس رويش نمي رود).مدل 1برنامه به صورت تمام صفحه اجرا شده فاكس هم روي آن مي رود(زرد و ابي مي شود).در مدل 4برنامه با اندازه پيش فرض اجرا مي شودوفاكس را هم مي گيرد.درمدل 5برنامه با اندازه معمولي اجرا شده و فاكس نمي گيرد

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

Shell "NotPath.Exe"+" C:\Text1.txt" ,4

بزنيدOpen New windowsبراي دانلودروي نام سايت راست كليك كرده و

آدرس	حجم	كتابخانه	نام كتاب
http://www.parstech.org/detail.php?id=1267	1.31MB	(سایت Dev.ir)	مجموعه مقالات برنامه‌نویسی
http://hadinik.persiangig.com/document/jok.pdf	453KB	-هادی نیکخواه	کتاب جوکهای اینترنتی
http://www.parstech.org/detail.php?id=1254	236KB	Parstech.org	گلستان سعدی
http://www.parstech.org/detail.php?id=1259	-	Parstech.org	(مقاله (برنامه‌نویسی شبکه تحت VB
http://www.etvto.ir/ostadonline/courses.asp?a=18	-	ostadonline	مفاهیم پایه فن آوری اطلاعات - مهارت اول از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=20	-	ostadonline	آموزش سیستم عامل ویندوز 98 - مهارت دوم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=21	-	ostadonline	آموزش Word - مهارت سوم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=29	-	ostadonline	آموزش Excel2000 - مهارت چهارم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=25	-	ostadonline	شنایی با Access - مهارت پنجم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=22	-	ostadonline	آموزش Power Point -مهارت ششم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=1	-	ostadonline	آموزش اینترنت - مهارت هفتم از ICDL
http://www.etvto.ir/ostadonline/courses.asp?a=26	-	ostadonline	آموزش Flash-MX ( مقدماتي)
p30worldarticle.persiangig.com/PDF/Tips%20and%20Track.pdf	-	p30worldarticle	160ترفنددرويندوز و رجيستري ويندوز
emarketingway.ir/member/emarketingway-ebook-01.pdf	-	emarketingway	راههاي بالابردن ترافيك سايت وجذب بيننده
http://www.parstech.org/detail.php?id=1139	-	Parstech.org	خسرو وشيرين-نظامي گنجوي
http://www.parstech.org/detail.php?id=1143	-	Parstech.org	ليلي ومجنون-نظامي گنجوي
http://www.satsat.net/attachment.php?attachmentid=644	-	satsat.net	وبلاگ نويسي-سعيد شمس
groups.yahoo.com/group/farsi_e_liberary/files/mosafer-sepehri.pdf	-	farsi_e_liberary	مسافر-سهراب سپهري
http://groups.yahoo.com/group/farsi_e_liberary/files	-	farsi_e_liberary	صداي پاي آب-سهراب سپهري
http://www.maniha.com/vahidziaiketabeElekteroniki.pdf	-	وحيد ضيايي	مجموعه 33 شعر عاشقانه
http://www.barnamenevis.org/forum/viewtopic.php?p=102414	-	barnamenevis.org	آموزش فارسي توابع VB NETوVB.0.6
http://www.persique.persianblog.com	-	persique.persianblog	خليج فارس نامي كهن تر از تاريخ
http://www.sharemation.com/ghkmn/CAD14.pdf	-	sharemation	آموزش نرم افزار اتوكد 14
http://yaghin.50megs.com/ketab/molavi.html	-	yaghin.50megs.com	align="rightرباعيات كامل مولانا(مولوي)