سلام از این به بعد هم آموزش ميزارم و هم سورس کد هرچی گييرم بياد.
Printable View
سلام از این به بعد هم آموزش ميزارم و هم سورس کد هرچی گييرم بياد.
بسم الله الرحمن الرحیم
با سلام
عنصر Line : از اين عنصر براي ساخت خط راست، استفاده ميشود:
خصوصيات X ها و Y ها : عنصرLine براي تعيين مختصات خط ترسيمي، از چهار مقدار استفاده ميكند. X1, Y1 براي تعيين مختصات نقطه ي ابتدايي خط و X2, Y2 براي تعيين مختصات نقطه ي انتهايي خط ميباشد. كه X1 و X2 تعيين دو نقطه ي ابتدايي و انتهايي نسبت به بالا (Top) و Y1 و Y2 اين دو نقطه را نسبت به چپ (Left) فرم مشخص ميكنند.
خاصيت BorderWidth :اين خصيصه همانند عنصر Shape ضخامت حاشيه را تعيين ميكند، با اين تفاوت كه محدوده ي ضخامت از 1 تا Pixel 32767 ميباشد.
خاصيت BorderStyle : نحوه ي نمايش حاشيه را تعيين ميكند و داراي 7 حالت زير ميباشد:
0-Transparent : در اين حالت خط كاملا شفاف بوده و قابل روئيت نميباشد.
1-Solid : خط بصورت توپر است.
2-Dash : خط به صورت خط چين بلند نمايش داده ميشود
3-Dot : به شكل خط چين كوتاه به نمايش در مي آيد.
4-Dash-Dot : تركيبي از دو حالت فوق ميباشد
5-Dash-Dot-Dot : همانند قبلي با اين تفاوت كه بجاي يك خط كوتاه، يك خط كشيده و دو خط كوتاه به نمايش در مي آيد.
6-InsideSolid : در اين حالت درون خط بصورت توپر خواهد شد.
عنصر HScrollBar : اين عنصر نوار اسكرول افقي ميباشد. حرف H سرحرف Horizontal و به معناي افقي ميباشد:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
عنصر VscrollBar : همانند عنصر قبلي ميباشد با اين تفاوت كه بصورت ستوني خواهد بود. حرف V نيز در اينجا سرحرف Vertical است:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تمامي خصوصيات و متدهاي اين دو عنصر با يكديگر برابر هستند و تنها تفاوت آنها در سطري و ستوني بودنشان ميباشد.
خصوصيات Max, Min : همان طوري كه از نامشان پيداست، مقدار حداقل (Min) و مقدار حداكثر (Max) را مشخص مينمايند. حداقل مقداري كه اين دو عنصر براي خصوصيت Min مي پذيرند برابر با منفي 32768 و حداكثر مقدار براي خصوصيت Max برابر مثبت 32767 ميباشد.
خصيصه ي LargeChange : مقدار پرش بزرگ در نوار اسكرول را معين ميكند. يعني هرگاه شما در بخشي خالي از نوار اسكرول (يعني به غير از دو دكمه ي جهت دار و خود نوار لغزنده) كليك كنيد به چه مقدار نوار اسكرول حركت كند:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
خصيصه ي SmallChange : اين خصوصيت همانند خصوصيت LargeChange بوده، با اين تفاوت كه ميزان پرش براي كليك بر روي دو دكمه ي كناري نوار اسكرول را تعيين ميكند. يعني هرگاه كاربر بر روي هر يك از دو دكمه ي ابتدايي و يا انتهايي كليك كند، چند واحد لغزنده جابجا شود.
خصيصه ي Value : اين خصوصيت مقدار نوار اسكرول را تعيين ميكند و در طول اجراي برنامه ميتوان به كمك اين خصوصيت وضعيت لغزنده ي نوار را كنترل نمود. اما اگر به اين خصوصيت مقدار اوليه نسبت دهيم، هنگام اجراي برنامه لغزنده توسط برنامه نويس تعيين شده است، در غير اين صورت بطور پيشفرض در مركز نوار قرار ميگيرد.
حال فرض كنيد ميخواهيم هنگامي كه كاربر با نوار اسكرول كار ميكند مقدار آن تغيير يابد. براي اين كار در رويداد Change عنصر ScrollBar مينويسيم:
HScroll1.Value = HScroll1.Value
و فرضا ميخواهيم مقدار اوليه ي 100 را به آن نسبت دهيم، مي نويسيم:
HScroll1.Value = 100
كه در اينجا عنصر ما يك نوار اسكرول افقي ميباشد. براي نوارهاي اسكرول عمودي نيز همين گونه عمل ميكنيم.
جلسه ي بعد با چند دستور و تابع آشنا ميشويد.
موفق وسربلند باشید.
آموزش ويژوال بيسيک۶ متوسطه (بخش۷)
بسم الله الرحمن الرحیم
طبق قرار جلسه قبل شما امروز با چند تابع و دستور آشنا خواهيد شد. در ابتدا شما را با يك كلاس مهم و پركاربرد به نام ClipBoard آشنا ميكنم.
كلاس ClipBoard : اين كلاس دستيابي ما را به حافظه ي موقت Clip Board فراهم ميسازد. اين كلاس داراي 6 متد ميباشد كه به هر يك از آنها اشاره خواهيم كرد:
متد Clear : اين متد همان گونه كه از اسم ظاهري اش پيداست، اطلاعات موجود در ClipBoard را پاك ميكند. با اين عمل ميتوان حافظه ي ClipBoard را خالي نموده كه استفاده هاي زيادي دارد. به عنوان مثال شما ميتوانيد از يك تايمر استفاده كرده و در مدت زمان كوتاهي مانند 500 ميلي ثانيه، حافظه ي كليپ برد را پاكسازي نماييد، در اين حالت كاربر نميتواند از برنامه ي شما اطلاعاتي را كپي نمايد. مثلا كاربر نميتواند از فرمهاي برنامه ي شما عكس بگيرد! شكل دستوري آن بصورت زير ميباشد:
Clipboard.Clear
متد GetData : از داده اي مانند تصوير كه در حافظه ي كليپ برد موجود ميباشد استفاده ميكند. به عنوان مثال اگر تصويري در كليپ برد باشد شما ميتوانيد آن تصوير را به عنوان تصوير عنصري مثل فرم تخصيص دهيد.
نكته : دقت داشته باشيد كه تصوير در حافظه باشد و نه آدرس آن. به عنوان مثال اگر شما فايلي تصويري در درايو C داشته باشيد و در مرورگري مانند WindowsExplorer خود آن را كپي نماييد، شما تنها آدرس آن فايل را كپي نموده ايد. اما اگر فايل تصويري را در ويرايشگر تصوير مانند MSPaint بازكرده و كل تصوير يا بخشي از آن را انتخاب (Select) و سپس كپي نماييد خود تصوير در حافظه ي كليپ برد قرار خواهد گرفت و منظور ما حالت دوم ميباشد. مثال:
Form1.Picture = Clipboard.GetData
متد GetFormat : اين متد حالت دو وضعيتي (Boolean) دارد و تنها وقتي كه عدد 1 ورودي باشد جواب True خواهد بود. مثلا :
Clipboard.GetFormat (1)
متد GetText : از متن موجود در كليپ برد استفاده ميكند. مثلا:
Form1.Caption = Clipboard.GetText
متد SetData : از اين متد براي تخصيص داده اي مانند تصوير به كليپ برد استفاده مينماييم. مثال:
Clipboard.SetData LoadPicture("e:\djcsaeed.jpg")
و جهت استفاده مينويسيم:
Form1.Picture = Clipboard.GetData
كه در دستور اول فايلي تصويري را به حافظه ي كليپ برد منتقل نموده و سپس آن را توسط دستور دوم به عنوان تصوير پس زمينه ي فرم تخصيص داديم.
متد SetText : همانند متد قبلي ميباشد با اين تفاوت كه اين بار متني را به ClipBoard منتقل ميكنيم :
Clipboard.SetText ("www.computer.persianblog.com")
و جهت استفاده از آن :
Form1.Caption = Clipboard.GetText
البته در دستور اول ميتوانيم از متني در مكان دلخواه بهره بگيريم. مثلا ميخواهيم زمان جاري را نسبت دهيم مينويسيم:
Clipboard.SetText (Time$)
توابع Time$ و Time : تابع Time& زمان جاري سيستم را برميگرداند و تابع Time زمان جاري سيستم را تعيين مينمايد. مثال :
Form1.Caption = Time$
Time = "11:43"
توابع Date$ و Date : همانند دو تابع قبلي عمل ميكنند با اين تفاوت كه تاريخ جاري سيستم را برميگردانند. مثال :
Form1.Caption = Date$
Date = "08/04/1986"
تابع Now : اين تابع تاريخ و زمان جاري سيستم را برميگردان، مثال:
Form1.Caption = Now
تابع Beep : اين تابع يك بار صداي بوق سيستم عامل را به صدا در مي آورد و بصورت زير نوشته ميشود:
Beep
جلسه ي بعد نيز با چند دستور و تابع آشنا خواهيد شد.
موفق وسربلند باشید.
آموزش ويژوال بيسيک۶ متوسطه (بخش ۸)شنبه، 15 اردىبهشت، 1386بسم الله الرحمن الرحیم
كلاس APP : اين كلاس مخفف Application يا كاربردي ميباشد و داراي خصيصه هايي جهت كنترل برنامه ي كاربردي ما ميباشد. اكنون به چند خصيصه آن اشاره خواهيم نمود.
App.Title : اين خصيصه عنوان برنامه ي كاربردي ما را تعيين مينمايد و همانند خصوصيت Caption مقداري از نوع رشته مي پذيرد:
App.Title = "My Application"
شما ميتوانيد اين عنوان را در TaskManager مشاهده نماييد. دقت داشته باشيد كه اگر شما بجاي رشته عددي را وارد كنيد برنامه با خطا مواجه نميشود، زيرا بطور خودكار آن عدد به رشته تبديل خواهد شد، و اين نكته در موارد مشابه نيز صدق ميكند.
App.Path : مسير جاري برنامه را برميگرداند:
Me.Caption = App.Path
App.EXEName : نام فايل اجرايي برنامه را برميگرداند:
Me.Caption = App.EXEName
App.TaskVisible : وضعيت نمايش برنامه در TaskManager را تعيين ميكند.
App.TaskVisible = False
موجب ميشود كه برنامه ي شما در TaskManager قابل مشاهده نباشد.
App.CompanyName : نام شركت سازنده ي برنامه را برميگرداند.
Me.Caption = App.CompanyName
App.Comments : توضيحات برنامه را برميگرداند.
Me.Caption = App.Comments
App.LegalCopyright و App.LegalTrademarks : اطلاعات مربوط به كپي رايت و مارك تجاري را بر ميگرداند.
توجه :تنظيمات مربوط به كپي رايت، مارك تجاري، نام شركت و ... را در جلسات آتي فرا خواهيد گرفت.
تابع Iif :اين تابع يك دستور شرط يك خطي است و در موارد ساده و كوچك مورد استفاده قرار ميگيرد. عملكرد اين تابع همانند If .. Else ميباشد:
IIf (Condition, Run Commands If Condition is True, Else)
مثال :
Dim max, a, b As Integer
a = 5
b = 10
max = IIf(a < b, b, a)
Me.Caption = max
تابع MsgBox : از اين تابع جهت نمايش يك پيغام استفاده ميگردد. ساده ترين حالت آن كه تنها يك رشته را به نمايش در آورده و پنجره اي داراي دكمه Ok ميباشد بصورت :
MsgBox "Hello World"
ميباشد. ملاحظه نموديد كه بسيار ساده ميباشد، اما اين تابع داراي پارامترهاي ديگري نيز جهت گسترش است. بنابر اين بقيه ي پارامترها اختياري ميباشند. ساختار كلي آن بصورت :
MsgBox( Notes [,Buttons] [,Title] [,HelpFile] [Contex])
ميباشد. فرض كنيد ميخواهيم يك پيغام نمايش دهد با متن My Message با عنوان Message داراي دو دكمه ي Yes و No مينويسيم:
MsgBox "My Message", vbYesNo, "Message"
حال اگر بخواهيم بر فرض يك آيكن اخطار نيز در كنار آن نمايش دهد. براي اين كار و يا افزودن موارد اضافي ديگر از + استفاده مينماييم، پس مينويسيم :
MsgBox "My Message", vbYesNo + vbExclamation, "Message"
توضيح آيكن هاي پيغام : همراه با آيكن هاي پيغام صداي پخش شده نيز تغيير ميكند. بطور كلي در ويژوال بيسيك ميتوان 5 حالت آيكن ايجاد نمود:
بدون آيكن : اگر هيچ دستوري مبني بر افزودن آيكن ننويسيم، آيكني نيز همراه پيغام نمايش داده نخواهد شد.
آيكن سوال : مقدار vbQuestion را نسبت ميدهيم كه بصورت زير خواهد شد :
آيكن اطلاعات :مقدار vbInformation را تخصيص ميدهيم :
آيكن اخطار : مقدار vbExclamation را تخصيص ميدهيم :
آيكن خطا : مقدار vbCritical را اختصاص ميدهيم :
موفق وسربلند باشید.
خب دوستان اميدوارم تونسته باشم کمکی به شما ها کرده باشم ديگه تو این تاپيک مقاله ای نميزارم و بيشتر رو زمينه هک کار خواهم کرد
سلام.
بهتره مطالب ارسالی با موضوع تاپیک ارتباط داشته باشه. فکر نمیکنم هک ارتباطی به آموزش ویبی داشته باشه.
همه رو بلد بودم ولی در کل جالب بود
منظورم تو همون تاپيک هک بود نه اینجا.اگر چيزه بهتری برايه آموزش پيدا کردم اینجا ميزارمنقل قول:
سلام
هرچند سالهاست گذشته ولی ....
اولا می فرمایید به ویژوال بیسیک ربطی نداشت پس به چی ربط داشت
ضمنا دوست گرامی که این مطالب رو میگذارید، بد نیست منبع رو ذکر کنید.
منبع گروه کامپیوتر پرشین بلاگ در سالهای 1385 و بعد
نویسنده سید سعید فرزاد (خود بنده)
موفق و پیروز باشید.
حق نشر آموزش رو حفظ بفرمایید.
---------- Post added at 08:53 PM ---------- Previous post was at 08:52 PM ----------
خیلی عالیه ولی کل این مسائل آغاز برنامه نویسی شیء گرا با VB6 بودنقل قول:
:20:
سلام.
بعد این همه سال تاپیک رو کشیدی بالا که بگی به چی ربط داشت؟
احتمالا منظور گذاشتن سورس ها بوده.