این دفعه امدیم تا به شما ویژوال بیسیک رویاد بدیم
ایندفعهمیخوامدرموردبعضیازخاصیتهای textbox کهدرپنجرهیproperties وجوددارهتوضیحبدم.
=Nameاینروکهحتمامیدونیدکهاسماونهستشولینکتهایکهبایدبهاونتوجهکرداینهکهبرنامهنویسهایحرفهایدراولاسم textbox ها txt روهممینویسندمثلاtxtdisplayیاtxtname.
=Alignmentاینخاصیتنحوهترازشدنمتنرودر textbox رونشونمیده (وسطچین،چپچین،راستچین).
=Appearanceاینخاصیتبهشکلوشمایلاونمربوطمیشهاگر flat روانتخابکردید textbox بهصورتتختدرمیادولیاگر 3d روانتخابکنیدبهصورتسهبعدیوتورفتهدرمیاد.
=Backcolorایهممربوطمیشهبهرنگداخل textbox.
=enableهممربوطمیشهبهفعالیاغیرفعالبودن.
=Forecolorاینهمرنگمتنداخلشرومشخصمیکنه.
=Lockedاینخاصیتمشخصمیکندکهآیاکاربرمیتواندمتنداخلانراعوضکندیانه.
=Maxlenghtاینخاصیتحداکثرتعدادکاراکترهاییراکهمیتواندرون textbox واردنمودمشخصمیکند.
=Multilineچنانچهاینخاصیت true باشدوقتیدر textbox درحالتایپکردنهستیداگراینتررافشاردهیدبهخطبعدمیرویدومیتوانیدمتنرادربیشترازیکخطبنویسیدولیاگراینخاصیتfalse باشدفقطمیتوانیددریکخطمتنراواردکنید.
=Passwordcharحتمادیدیدکهوقتیدرحالتایپکردنپسوردهستیدهرچیتایپمیکنیدبهجاشیهعلامتستارهتایپمیشهکهبهخاطراینهکهمتنبهصورتمحرمانهباشهوکسینتونهببینه.حالاشمادرمقابلاینخاصیتهرکاراکتریروواردکردیبهجایمتناونکاراکترنشوندادهمیشه.مثلااگر 3 روواردکردید،هرچیتایپکردیدبجایاون3 میبندید.
=RightToLefاینخاصیتمشخصمیکنهمتنازچپبهراستنوشتهشودیاازراستبهچپ.
=scrollbarچنانچهبخواهیدمیلههایمروررویجعبهمتنظاهرشوندونیزبرایتعیینتعدادانهابایدازاینخاصیتاستفادهکنید.مقدار0-None ازظاهرشدنمیلههایمرورجلوگیریمیکند.مقدار 1-Horizontal فقطیکمیلهمرورافقینشانمیدهد.مقدار 2-vertical اجازهنمایشمیلهمرورعمودیرامیدهد..مقدار 3-both هردومیلهمرورافقیوعمودیرانشانمیدهد.
=Textاینخاصیتمتناولیه(مقدارپیشفرض) راکهدرونجعبهمتنظاهرمیشودرانشانمیدهد. بازمبرمیگردمنظریادتوننره

وحالابراتونازبعضیخواصفرمهابگم
=appearanceاینخاصیتمشخصمیکندکهفرمبهصورتسهبعدی (3D) باشدیاتخت (flat)
=Back Colorاینخاصیترنگزمینهفرمرامشخصمیکند
=Border styleاینخاصیتاگربرروی(0-None)باشدفرمرابدونحاشیهودکمههایمینیمایزوماکسیمایزوبستننشانمیدهدوکاربرنمیتواندآنراتغییراندازهبدهدواگربرروی(1-Fixed single)باشدفرمراباحاشیهودکمهبستننشانمیدهدوکاربرنمیتواندآنراتغییراندازهبدهدواگربرروی(2-Sizable) باشدتمامدکمههاوحاشیهفرمرانشانمیدهد.
=Iconاینخاصیتآیکونبرنامهرامشخصمیکند
=Max buttonاینخاصیتفعالیاغیرفعالبودندکمهماکسیمایزرامشخصمیکند
=Min buttonاینخاصیتفعالیاغیرفعالبودندکمهمینیمایزرامشخصمیکند
=Mouse iconاینخاصیتشکلنشانگرموسراتعیینمیکند
=Mouse Pointerاینخاصیتنوعشکلنشانگرموسرامشخصمیکندمثلساعتشنییادستشدننشانگر
=Movableاینخاصیتمشخصمیکندکهآیاکاربراجازهداردکهفرمراجابجاکندیانه
=Pictureعکسزمینهفرمرامشخصمیکند
=ShowIn Taskbarمشخصمیکندکهبرنامهدرتسکباردیدهشودیانه
=Startup positionمحلقرارگرفتنفرمدرهنگامشروعبرنامهرامشخصمیکند
=Window stateنوعنمایشپنجرهدرهنگامشروعبرنامه(مینیمایز/ماکسیمایز/نرمال)

دستورات پایه ای برای برنامه نویسی

1-دستور شرطی if

در برنامه نويسی مواردی پیش می آيد که بخواهيم دستور یا دستوراتی، هنگامی که شرط خاصی برقرار است، توسط برنامه به اجرا در آيد. اين مورد در زندگی روزمره نيز ديده می شود؛ به عنوان مثال " اگر فردا باران نيايد، من به کوه خواهم رفت." شرط مورد نظر نيامدن باران است و عملی که قرار است انجام شود رفتن به کوه می باشد.در برنامه نویسی ویژوال بیسیک این شرط به صورت زیر نوشته می شود

If    شرطموردنظر   Then   دستورموردنظر

حالامثالخودمونرورویایندستورپیادهمیکنیم

If فردا باران نیاید    Then   من به کوه خواهم رفت

دستور if  درویژوالبیسیکبهدوصورتنوشتهمیشه

الف- معمولی: صورت معمولی دستور if  مثل مثالی هست که قبلا زدیم.در این صورت از دستور فقط یک کار برای ما انجام می شود.

If    شرط مورد نظر    Then    دستور مورد نظر

ب- دراینحالتمامیتوانیمیکیاچنددستوررااجراکنیم.بایدتوجهداشتکهدر پایاندستورهابایدکلمه End if  رابرایاتمامکاربنویسیمدرغیراینصورت برنامهپیغامخطامیدهد.

If   شرط مورد نظر    Then

دستور شماره1

دستور شماره 2

دستور شماره3

دستور شماره......

End if

دستور شرطی If & Else

گاهی اوقات نياز داريم که در صورت برقرار بودن شرط خاصی يک سری دستورات اجرا و در صورت برقرار نبودن آن شرط دسته ای ديگر از دستورات اجرا گردند. به عنوان مثال اگر فردا باران بيايد من به کوه نمی روم در غير اين صورت من به کوه خواهم رفت.

If  شرط مورد نظر   Then

دستور اول

Else

دستور دوم

End if

حالا مثال رو روی این دستور پیاده می کنیم.

If   فردا باران بیاید   Then

من به کوه نمی روم

Else

من به کوه می روم

End if

حالا ویژوال بیسیک رو اجرا کنید و از پنجره ی باز شده  New Project رو انتخاب کنید تا یک پروژه ی جدید باز شود.

وقتی پروژه ی جدید باز شد از طریق منوی سمت چپ یک Command Button به فرمتون اضافه کنید.

روی command button دو بار کلیک کنید تا پنجره ی کد نویسی باز بشه.

در این قسمت ما می خواهیم دستور if  را برسی کنیم پس کد نویسی را شروع می کنیم.در پنجره ی کدنویسی هر چقدر متن هست رو پاک کنید و به جای اون این کدهارو بزارید.

Private Sub Command1_Click()

If     50 < 100    Then    Beep

End Sub

خط اول و آخر مربوط به اینه که مشخص میکنه در چه جایی این شرط بررسی بشه که ما به برنامه گفتیم در موقعی که بر روی  command button کلیک میشه این شرط رو بررسی کن.

خط دوم هم به برنامه میگه اگر عدد 50 کمتر از 100 بود در اون صورت بوق بزن(Beep)

حالا می خواهیم دستور  If  &Else را بررسی کنیم.

مانند قبل یک پروژه ی جدید باز کنید و در یک command Button به اون اضافه کنید.

با دوبل کلیک بر روی Command Button پنجره ی کدنویسی را باز کنید و کدهای داخل اون رو پاک کنید و این کدها رو بهش اضافه کنید.

Private Sub Command1_Click()

If   50 < 100   Then

MsgBox"50 kamtaraz 100 ast"

Else

MsgBox   "50 bishtaraz 100 ast"

End If

End Sub

در خط اول و آخر مثل قبل به برنامه گفتیم که در چه جایی شرط بررسی بشه.

در خط دوم شرط مورد نظر رو نوشتیم"اگر عدد 50 کمتر از 100 بود" در اون صورت

در خط سوم دستوری رو نوشتیم که در ازای درست بودن شرط اجرا میشه پیغام "50 kamtaraz 100 ast" رو نشون بده

خط چهارم هم کلمه ی Else  یا "در غیر این صورت " رو نوشتیم

در خط پنجم هم دستوری رو نوشتیم که به ازای درست نبودن شرط اجرا میشه "پیغام 50 bishtaraz 100 astرو نشون بده"

در خط ششم هم پایان شرط رو اعلام کردیم

نکته:دستورMsgBox  براینشاندادنیکپیغاماستفادهمی شودکهدستورسادهیآنبهاینصورتاست

MsgBox"پیغام مورد نظر"

یکی از دوستان یه سوال پرسیدند که  "چطوری می تونم توی برنامم آهنگ بزارم که آدرس نخواد و با فایل exe باشه؟"

در جواب ایشون باید بگم که در ویژوال بیسیک یه سری فایل هست به نام فایل های resource  و یه  برنامه هست به نام resource editor

با استفاده از resource editor  می توان انواع و اقسام فایل ها مانند آیکون،تصویر،متن و ...... هرنوع فایل دیگه رو درون فایل اجرایی برنامه مخفی کرد و بعد اون رو فراخوانی کرد.

 حالا ویژوال بیسیک رو باز کنید و یه پروژه ی جدید بیارید.

در منوی Add-Ins روی Add-Ins Manager کلیک کنید.یه پنجره با نام Add-Ins Manager باز میشه که یه لیست داره از این لیست VB 6 Resource Editor  رو روش دوبار کلیک کنید تا جلوی اون بنویسه Loaded و بعد ok کنید تا به محیط اصلی ویژوال بیسیک برگرده

حالا همون منوی Add-Ins رو کلیک کنید،می بینید که یه گزینه ی جدید اومده به نام VB Resource Editor اونو کلیک کنید تا یه برنامه به نام VB Resource Editor باز بشه

 در پنجره ی باز شده در قسمت تولبار اون بالا میبینید که چندتا ایکون هست که اولی روش نوشتهabc، از طریق این گزینه می تونید متن رو ذخیره کنید

 اگه روش کلیک کنید می بینید که یه پنجره با نام Edit String Tables باز میشه و در اون یه محل برای ذخیره ی متن هست که می تونید شروع به تایپ متن کنید

در کنار اون ایکون یه ایکون دیگه هست که عکس ساعت شنی روشه ،از طریق این گزینه می تونید شکلک های موس یا همون Cursor با پسوند cur رو ذخیره کنید

 اگه روش کلیک کنید یه پنجره باز میشه که محل شکلک موس رو از شما می پرسه ایکون بعدی عکس یه صفحه هست که گوشه ی اون تا خورده ، از طریق این گزینه می تونید ایکون ها رو ذخیره کنید با پسوندico  و اگه روش کلیک کنید یه پنجره باز میشه که از شما ادرس ایکون رو می پرسه

 ایکون بعدی یه عکس هست که از طریق این گزینه می تونید عکس ها رو ذخیره کنید، البته فقط عکسها با پسوند bmp ، اونم مثل بقیه اگه روش کلیک کنید یه پنجره باز میشه که ارس عکس رو میپرسه

و اخرین ایکون که به صورت مربع چهار خونه هست مربوط میشه به بقیه ی فایل ها یا همون *.* و اونم مثل بقیه در صورتی که روش کلیک کنید یه پنجر باز میشه که ادرس فایل مرود نظرتون رو می پرسه

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

 حتما متوجه شدید که وقتی یه فایل رو اضافه می کردید بهش یه شماره تعلق می گرفت که معمولا این شماره هاست 101,102,103,104,.... به این شماره ها ID  فابل میگند که برای تغییر اون می تونید روش دابل کلیک کنید و در پنجره ی باز شده در قسمت id هرچی خواستید بنویسید طریقه ی استفاده از این فایل ها بستگی به نوع اون داره که تک تک اونا رو میگم

 1-اگه شما یه متن رو اضافه کرده باشید(ایکون اولی که روش نوشتهabc) باید این دستو ر رو براش بنویسید:

LoadResString(id )

که به جای id باید ایدی ی اون متن رو بنویسید. مثلا

Form1.caption = LoadResString(101)

2-اگه شما یه شکلک موس رو ذخیره کرده باشید (ایکون دوم که عکس ساعت شنی داشت) باید این دستور رو براش بنویسید

LoadResPicture(id , ResType)

در این دستور باید به جای id  ای دی فایل رو بنویسیدو به جایResTypeنوع فایل که در اینجا چون شکلک موس رو می خواید لود کنید باید عدد 2 رو به جاش بنویسید مثلا

Form1.Mouseicon= LoadResPicture(101 , 2)

3-اگه شما یک ایکون رو ذخیره کرده باشید می تونید اونو  از این طریق فراخوانی کنید

LoadResPicture( id , ResType)

اینم مثل قبل باید به جای id  ای دی فایل رو بذارید و به جایResType  نوع فایل که اینجا چون فایل ما ایکون هست از عدد 1 به جای اون استفاده کنید. مثلا

Form1.Icon = LoadResPicture( 101 , 1 )

4-اگه شما یه فایل تصویری (با پسوند bmp چهارمین ایکون که توضیح دادم)ذخیره کرده باشید از طریق این کد اونو فراخوانی کنید

LoadResPicture( id, ResType)

اینم مثل قبل باید به جای  id  ای دی فایل و به جایResTypeنوع فایل که چون فایل تصویری هست از از عدد 0 به جای اون استفاده می کنیم .مثال

Picture1.Picture = LoadResPicture( 101 , 0)

5- و در آخر فایل با هر پسوندی که خواستید(ایکون با مربع چهار خونه که توضیح دادم)

 این یکی با بقیه فرق داره اول از همه شما باید اونو لود کنید و بعدش اونو داخل یه فایل خارج از برنامتون بذارید تا بتونید از اون استفاده کنید.

 دستور اولیه ی لود کردن اینه

LoadResData(id , ResType)

حالا یه نمونه کد می ذارم و خط به خط توضیح میدم

Dim SoundBufferAs String

Buffer = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)

Open "c:custom.*" For Output As #1

Print #1, Buffer

Close #1

در خط اول ما یه متغیر از نوع string تعریف کردیم.

 درخط دوم فایلی که در resource  گذاشتیم رو تبدیل و در  buffer لود کردیم.

 در خط سوم یه فایل درست کردیم با پسوند * که شما باید به جای * نوع فایلتون رو بنویسید مثلا فایل mp3 (توجه کنید نوع فایل باید با نوع فایلی که قبلا به resource اضافه کردید یکی باشه ).

در خط چهارم محتویات buffer  که قبلا فایل مورد نظرمون رو توش لود کردیم به داخل فایلی که در خط سوم درست کردیم میریزه.

 و در خط پنجم فایلی که در خط سه درست و باز کردیم رو می بنده.

امیدوارم به دردتون خورده باشه

شما می تونید نمونه ی سورس کد این دستورات رو از اینجا دانلود کنید(در این نمونه سورس کد همه ی پنج حالت بالا استفاده شده)

یک سوال دیگه درموردچگونگیذخیرهکردنمتنیکتکستباکسدرقسمتیازهارد است.

قبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدا بايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام می شود . فرمت کلی اين دستور بصورت زير است :

Open filename [For mode] [Access access][lock] As [#]filenumber[Len=reclen]

] پارامترهایداخلکروشهاختياریهستند . [
filename نامفايلیاستکهمیخواهيمآنرابازکنيم .
modeحالتبازکردنفايلاست . اينحالتهاعبارتنداز :

• Input :فايلبعنوانورودیبازمیشود .
• Output :فايلبعنوانخروجیبازمیشود .
• Binary :فايلازنوعباينریبازمیشود .
• Append :فايلطوریبازمیشودکهبتوانبهانتهایآنچيزیاضافهکرد .
• Random

accessنوعدسترسیبهفايلرامشخصمیکند . انواعدسترسيهاعبارتنداز :

- Read : خواندنفايل
- Write : نوشتندرفايل
- ReadWrite: خواندنونوشتنفايل

lockنوعدسترسیسايربرنامههابهاينفايلرامشخصمیکند . انواعدسترسيهاعبارتنداز :

- Shared : دسترسیاشتراکی
- Lock Read
- Lock Write
- Lock Read Write

filenumberعددیاستکهويژوالبيسيکازآنبرایدسترسیبهفايلاستفادهمیکند .اينعددبايستیبرایهرفايلمنحصربفردوبين۱تا۵۱۱باشد . برایبدستآوردناولينشمارهآزادمیتوانازتابعFreeFileاستفادهکرد .
reclen:طولبافرفايلاست . اينعددبايستیاز۳۲۷۶۷کوچکترباشد .

درصورتیکهفايلیکهتوسط filename مشخصشدهوجودنداشتهوفايلبرایAppend ،Binary ،Output ويا Random بازشدهباشددراينصورتيکفايلجديدباايننامساختهمیشود .

نوشتن در فايل

 دستور Print : توسطايندستورمیتواناطلاعاتیرادرفايلقرارداد :

Print #FileNumber,WriteData

دستورفوقمحتوياتمتغيرWriteDataرادرفايلیباشمارهFileNumberمینويسد . بوسيلهدستور Print میتواناطلاعاترابصورتخطبهخطدرفايلنوشتبرایمثال :

Print #1,"Hello Visual Basic"+Vbcrlf

عبارتVbcrlfنشاندهندهکاراکترانتهایخط ( CRLF ) درويژوالبيسيکمیباشد .

پس از پايان کار با فايل برای بستن آن از دستور Close استفاده می کنيم . فرمت اين دستور بصورت زير است :

Close #filenumber

ساختیه MP3 player رو آموزشمیدم
امروز می خوام یکocxبراتون معرفی کنم که با اون میشه فایل های ام پی 3 رو توی برنامه پخش کرد
ocxبه فایل هایی گفته میشه که قبلا توسط برنامه های دیگه مثل C++,delfi,cنوشته شده و برای راحتی کار در ویژوال بیسیک استفاده میشه
اول این فایل رو از اینجا دانلود کنید
حالا ویژوال بیسیک رو اجرا کنید و در منو project قسمت components رو کلیک کنید.
در پنجره ی باز شده دکمه ی Brows رو کلیک کنید وocxرو که دانلود کردید انتخاب کنید.و بعد ok رو بزنید.
حالا می بینید که در سمت چپ پنجره ی ویژوال بیسیک دوتا ایکون اضافه شده که یکی از اونها شبیه بلندگو هست.شما باید این بلندگو رو به فرم اضافه کنید.(روی اون دوبل کلیک کنید)
خوب حالا باید یکمی کد نویسی کنید
اگر دوست دارید فایل با پسوند های mp1,mp2,mp3,wav رو پخش کنید باید کد زیر رو بنویسید

RSPMP31.PlayFile  "ادرس فایل صوتی"

اگر دوست دارید فایل در حال پخش رو PAUSE  کنید(توقف پخش به صورت موقت)باید این کد رو بنویسید

RSPMP31.PausePlayback

و اگر دوست دارید فایلی رو که PAUSE کردید رو RESUME کنید(ادامه ی پخش)باید این کد رو بتویسید

RSPMP31.ResumePlayback

اینocxامکانات زیادی داره مثل گرفتن مدت زمان فایل،تعیین نوع فایل،تبدیل فایل mp3 به wave و.....

نکته:برای اینکه برنامه ی شما روی تموم کامپیوتر ها اجرا بشه باید اینocxروی اون کامپیتر باشه یعنی باید توی پوشه ی system32 کپی کنید

خواص Label  ها

 =Auto sizeاین خاصیت در صورتی که true  باشه باعث میشه تا اندازه label به طور اتوماتیک به اندازه متن اون باشه و اگر false  باشه اندازه به صورت دستی قابل تغییر است.
 = Back Styleاگر این خاصیت مساوی 0 یا transparent  باشه label  شفاف میشه و فقط متن اون پیدا میشه و اگر 1 یا Opaque باشه label به صورت مات و غیر شفاف در میاد که رنگ اون توسط خاصیت Back color قابل تغییر است
 = BorderStyleاگر مقدار این خاصیت 0 یا None باشه label به صورت تخت Flat  تبدیل میشه و اگر مقدارش مساوی 1 یا Fixed Single باشه label به صورت 3بعدی نمایش داده میشه

 =ToolTipTextاین هم توضیحی است که با رفتن موس روی label  نمایش داده میشه

می دونستید خیلی دوستون داریم

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: