تور لحظه آخری
امروز : جمعه ، 15 تیر 1403    احادیث و روایات:  امام صادق (ع):نصيحت و خيرخواهى از حسود محال است.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

اتاق فرار

خرید ووچر پرفکت مانی

تریدینگ ویو

کاشت ابرو

لمینت دندان

ونداد کولر

صرافی ارکی چنج

صرافی rkchange

دانلود سریال سووشون

دانلود فیلم

ناب مووی

رسانه حرف تو - مقایسه و اشتراک تجربه خرید

سرور اختصاصی ایران

تور دبی

دزدگیر منزل

تشریفات روناک

اجاره سند در شیراز

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

پیچ و مهره

طراحی کاتالوگ فوری

دانلود کتاب صوتی

تعمیرات مک بوک

Future Innovate Tech

آموزشگاه آرایشگری مردانه شفیع رسالت

پی جو مشاغل برتر شیراز

قیمت فرش

آموزش کیک پزی در تهران

لوله بازکنی تهران

میز جلو مبلی

هتل 5 ستاره شیراز

آراد برندینگ

رنگ استخری

سایبان ماشین

قالیشویی در تهران

مبل استیل

بهترین وکیل تهران

شرکت حسابداری

نظرسنجی انتخابات 1403

استعداد تحلیلی

کی شاپ

خرید دانه قهوه

دانلود رمان

وکیل کرج

آمپول بیوتین بپانتین

پرس برک

بهترین پکیج کنکور

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

خرید نشادر

خرید یخچال خارجی

وکیل تبریز

اجاره سند

وام لوازم خانگی

نتایج انتخابات ریاست جمهوری

خرید سی پی ارزان

خرید ابزار دقیق

بهترین جراح بینی خانم

تاثیر رنگ لباس بر تعاملات انسانی

خرید ریبون

 






آمار وبسایت

 تعداد کل بازدیدها : 1804887305




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

آموزش ويژوال بيسيک (2)


واضح آرشیو وب فارسی:سایت ریسک: View Full Version : آموزش ويژوال بيسيک (2) mazi_z_PSP08-05-2007, 12:43 PMسلام دوستان. این تاپيک برايه این ساخته شده که دوستانی که دنبال مقاله آموزشی ميگردند بتوانند در اینجا به راحتی پيدا کنن. اما متاسفانه من نميتوانم پاسخگو سوالت و مشکلات شما باشم . شما ميتوانيد در تاپيک آموزش گام به گام از تکنيک برتر سوالات خود را بپرسيد .با تشکر اینم از اولين مقاله mazi_z_PSP08-05-2007, 12:45 PMبسم الله الرحمن الرحیم با سلام دوباره از امروز آموزش وي‍ژوال بيسيك6 را دوباره آغاز ميكنيم. طي 15 جلسه مقاله بصورت پي در پي ويژوال بيسيك6 را در سطح مقدماتي آموزش داديم، از اين قسمت آموزش وي‍ژوال بيسيك6 متوسطه را آغاز خواهيم كرد. در ابتدا نكاتي را متذكر ميشوم تا در آينده چنين مشكلاتي براي شما مزاحم نباشند: 1- اگر دستور شما در يك خط جاي نگرفت شما ميتوانيد آن را به كمك زيرخط (Underline) يعني (( _ )) به چند خط تقسيم كنيد بدين صورت كه در انتهاي خط يك زيرخط قرار داده و سپس ادامه ي دستور را در خط بعدي بنويسيد مانند: If i < 1 And _ i > -5 Then البته بايد توجه داشته باشيد كه از هر قسمت دستور نميتوان آن را قطعه كرد، به عنوان مثال : Form1_ “My Form”Caption= در اين صورت شما در هنگام اجراي برنامه با خطاي دستوري يا (Syntaxt Error) مواجه خواهيد شد. اما گفته شد خطاي دستوري، بد نيست اشاره اي هرچند كوتاه به انواع خطاها داشته باشيم. خطاهاي برنامه نويسي عموما به چهار دسته خطا تقسيم ميگردند. البته تعداد خطاها بيشتر از اين چهار نوع هستند ولي ما به چهارتاي اصلي آنها در حال حاضر اشاره خواهيم كرد. الف) خطاهاي دستوري يا Syntaxt Error چيست؟ همانطوري كه از نامش پيداست هر گاه شما دستوري را بصورت غلط املايي بنويسيد و يا ساختار دستوري برنامه را نادرست درج كنيد با اين خطا مواجه خواهيد شد. از مزاياي اين خطا يافتن آسان آن و نيز تصحيح راحت آن ميباشد. اين خطا قبل از اجراي برنامه توسط مفسر كشف خواهد شد. ب) خطاهاي مقداردهي Validating Error و يا خطاهاي انتصاب Appointment : با اين خطا هنگامي مواجه ميشويد كه مقداري نادرست به متغيري نسبت دهيد، همچنين اين خطا در مواقعي نيز ميتواند رخ دهد كه به عنوان مثال شما متن يك برچسب را به عنوان عكس يك شي ImageBox تخصيص دهيد. اين خطا ها معمولا بسادگي خطاي دستوري قابل كشف نيستند اما براحتي ميتوان آنها را بر طرف كرد. در آموزش مقدماتي به شما گفته شد كه شما به كمك كليد تابعي F5ميتوانيد برنامه را اجرا (Run ) كنيد كه در اين صورت برنامه تفسير (Compile) و اجرا ميشود اما شما در حالت تفسير عادي نميتوانيد اين گونه خطاها را بيابيد و ممكن است شما برنامه اي را بسازيد و به كسي تحويل دهيد و در آنجا با آن مشكل مواجه گردند. براي يافتن اين نوع از خطاها ميتوانيد از خطاياب برنامه (Debugger) استفاده نماييد، اما راه حل ساده تري نيز وجود دارد. شما بجاي استفاده از كليد F5 از تركيب دو كليد CTRL و F5 استفاده نماييد، در اين صورت برنامه ي شما قبل از اجرا بطور كامل تفسير ميشود (Full Compile) و قبل از اجرا شما ميتوانيد چنين خطاهايي را كشف كنيد، البته نه هميشه!. ج) خطاهاي اجرايي Run Time Error : اين خطاها در هنگام اجراي برنامه رخ ميدهد و معمولا قابل كشف ميباشد. از دلايل بروز اين خطا ميتوان به فراخواني اشتباه تابع و يا عدم وجود خارجي تابع فراخواني شده، استفاده از تابعي كه در فايل DLL (Data Link Library) و يا فايلهاي نظير آن وجود ندارد يا نحوه ي استفاده از آن را اشتباه نوشته ايد، همچنين عدم سازگاري برنامه ي شما با ديگر سيستم هاي كامپيوتري نظير سيستم عامل و يا سخت افزار و دلايل بسيار ديگر، اشاره داشت. د) خطاهاي مهلك :اين نوع از خطاها همانطوري كه از ظاهر نامش پيداست بدترين نوع خطا ميباشد. متاسفانه نه ميتوان به آساني اين نوع خطا را كشف كرد و به همين دليل نميتوان به آساني آن را اصلاح نمود. ممكن است اين نوع از خطا در برنامه اي وجود داشته باشد و سالها كسي متوجه اين خطا نباشد!! حال براي اينكه بهتر با اين نوع خطا آشنا شويد مثالي ميزنم: فرض كنيد شما برنامه ي يك شركت بيمه را نوشته ايد فرمول حساب بيمه را طوري اشتباه نوشته ايد كه نه تنها محاسبه را اشتباه انجام ميدهد، بلكه بسادگي نيز قابل تشخيص نيست. شما به عنوان يك برنامه نويس خوب بايد دقت بسياري روي اين نوع از خطاها داشته باشيد و حتما پس از اتمام طراحي و پياده سازي پروژه، حتما بخش هايي نظير مثال بالا را دوباره بررسي كرده و به مسئول آن شركت نيز نشان داده و پس از تاييد و اطمينان از عدم وجود چنين خطاهايي برنامه را بصورت اجرايي توليد كرده و تحويل دهيد. 2- در يك روال يا تابع نميتوان بيش از 4091 خط دستور قرار داد. اگر تعداد خط دستورات شما بيشتر از اين مقدار بود، شما ميتوانيد آن را در چند روال يا تابع قرار دهيد. 3- سعي كنيد هميشه نام اشيا را بطور پيشفرض باقي نگذاريد، البته در برنامه هاي بزرگ. زيرا شما در برنامه ها بزرگ كه اشياء زيادي داريد با مشكلات فراواني براي يافتن شي مورد نظر مواجه خواهيد شد. 4- هميشه براي هر پروژه پوشه اي مجزا بسازيد و تمامي فايلها از قبيل خود پروژه و فرم، فونتهاي مورد استفاده،فايلهاي Dll و OCX، تصاوير و ... را در آن قرار دهيد. 5- اگر از فايلهاي OCX و نظاير آن استفاده ميكنيد حتما توانايي اجراي آن برنامه در سيستم عامل هاي مختلف را بسنجيد و در راهنماي نصب برنامه آن را متذكر شويد. 6- سعي كنيد هميشه تغييرات و تنظيمات را توسط كد نويسي انجام. به عنوان مثال اگر ميخواهيد عنوان فرم را به My Form تغيير دهيد آن را در قسمت Properties تعيين نكنيد و توسط دستور اينكار را انجام دهيد. (Form1.Caption = "My Form") 7- بهتر است اگر ميخواهيد از نام فرمي استفاده كنيد كه آن فرم، همان فرم فعال است از دستور Me بجاي نام فرم بهره بگيريد. البته اين مطلب در بخش مقدماتي اشاره شد. 8- سعي كنيد در برنامه ي خود از توابع بهره ببريد. چه توابع آماده و چه توابعي كه خودتان ايجاد ميكنيد. 9- فراگيراني كه قصد يادگيري دارند، حتما جلسات را بصورت مرتب و بدقت پيگيري كنند. دوستان عزيز 15 جلسه ي مقدماتي آموزش ويژوال بيسيك 6 را در يك فايل فشرده قرار داده ايم تا كساني كه بهر دليل به آن دسترسي نداشتند بتوانند از « ايــنـجـــا » (http://djcsaeed.persiangig.com/document/Learning_VB_1%20-%2015_Moghadamati_Computer_persianblog.rar) دانلود كرده و استفاده كنند. رمز فايل : www.computer.persianblog.com عزيزاني كه در آموزش مقدماتي مشكلي دارند حتما مشكل خود را از طريق پيغام در وبلاگ قرار داده، تا مشكل آنها بررسي گردد. از جلسه ي بعد آموزش متوسطه را بصورت عملي فرا خواهيد گرفت. موفق وسربلند باشید. mazi_z_PSP08-05-2007, 12:47 PMبسم الله الرحمن الرحیم با سلام جلسه ي قبل يعني جلسه اول آموزش متوسطه ويژوال بيسيك6، به يك سري نكات اشاره كردم تا در آينده اگر با چنين مشكلاتي مواجه شديد، براي شما دردسر ساز نباشد. يك نكته ي مهم ديگر را فراموش كردم در جلسه ي قبل بگويم. گاهي ميبينيد كه در قسمت كد نويسي شما ميتوانيد فارسي بنويسيد و كاراكترهاي فارسي به وضوح ديده ميشوند اما گاهي اين حالت تغيير كرده و شما بجاي حروف فارسي كاراكترهاي ناشناخته اي ميبينيد. براي رفع اين مشكل از منوي Tools گزينه Options... را انتخاب نماييد،‌ سپس به سربرگ دوم يعني Editor Format رفته و در سمت راست اين برگه در ليست Font ، گزينه ي Courier New (Arabic) را به عنوان زبان انتخاب نماييد. در آموزش مقدماتي شما را تا حدودي با متغيرها آشنا كرديم. اكنون بيشتر با متغيرها آشنا ميشويد: محدوده حافظه اشغالي نام متغير اعداد مثبت از 0 تا 255 1 Byte Byte اعداد از 32768- تا 32767 2 Byte Integer يكي از دو مقدار (1)True یا (0)False 2 Byte Boolean اعداد از 2147483648- تا 2147483647 4 Byte Long اعداد منفی از -3.402823E+38 تا -1.401298E-45 اعداد مثبت از 1.401298E-45 تا 3.4022823E+38 8 Byte Single اعدا منفی از -1.7976931346232E+308 تا -4.94065645841247E-324 اعدا مثبت از 4.94065645841247E-324 تا1.7976931346232E+308 8 Byte Double -922337203685477.5808 تا -922337203685477.5807 8 Byte Currency از ابتداي ژانویه سال 100 تا 31 دسامبر سال 9999 8 Byte Date اعداد بدون اعشاري از 79228162514264337593543950335- تا 79228162514264337593543950334+ اعداد اعشاري تا 28 رقم 12 Byte Decimal هر نوعي ميپذيرد. حداكثر توانايي نگهداري عددي بصورت نوع مضاعف Double ميباشد 16 Byte Variant بستگي به تعداد كاراكتر دارد. هر كاراكتر 1 بايت فضا اشغال ميكند 1 to 65400 Byte String سعي كنيد هميشه در انتخاب متغيرها دقت لازم را داشته باشيد. متاسفانه خيلي از برنامه نويسان سعي ميكنند حداقل فضاي لازم را براي متغيرها در نظر بگيرند، كه اين امر سبب مشكلاتي در آينده ميشود. شما به عنوان يك برنامه نويس خوب به اين نكته دقت كنيد كه هر روزه به قدرت پردازش و ميزان حافظه هاي كامپيوتري افزوده ميشود، پس بهتر است هميشه چيزي براي يدك همراه داشته باشيد. در طول آموزش شما بيشتر با متغيرها آشنا خواهيد شد. اكنون سراغ معرفي برخي عناصر برويم. عنصر Shape : همان طوري كه از نامش پيداست براي ترسيم شكل در فرم بكار ميرود. اين عنصر بصورت پيشفرض در پنجره ي ToolBar حالت استاندارد پروژه وجود دارد. http://djcsaeed.persiangig.com/image/Computer_Persianblog/ShapeObj.gif اين عنصر نيز مانند بقيه عناصر داراي يكسري خواص عمومي و اختصاصي ميباشد. از تفاوتهاي اصلي اين عنصر با بسياري از عناصر ديگر، عدم وجود رويداد (Event) در اين عنصر ميباشد. به بيان ساده اين عنصر رويدادي ندارد و در هنگام اجراي برنامه نميتوان كنترلي بر رويدادي از اين عنصر داشت، براي رفع اين مشكل از ترفندهايي كه در آينده به آن اشاره خواهيم كرد استفاده ميكنيم. برخي از خواص مهم عنصر Shape : خاصيت shape : اين خاصيت داراي 6 گزينه ميباشد كه با انتخاب هر يك ميتوانيم شكل مورد نظر خود را انتخاب كنيم. مقدار 0 - Rectangle : با تخصيص اين مقدار براي خصيصه ي shape از عنصر Shape شكل ما حالت مستطيل پيدا ميكند. مقدار 1 - Square : حالت مربع به شكل ما ميدهد. اين نكته لازم به ذكر است كه چون همواره طول و عرض مربع يكسان است، هميشه كمترين مقدار به عنوان طول و عرض در نظر گرفته ميشود. يعني اگر شما مقدار كمتر را براي طول مربع در نظر بگيريد طول و عرض مربع برابر طول و اگر مقدار كمتر را براي عرض در نظر بگيريد طول و عرض مربع برابر با عرض خواهد شد. مقدار 2 - Oval : شكل ما بيضي خواهد شد. مقدار 3 - Circle : عنصر ما بصورت دايره خواهد بود. قطر دايره نيز با توجه به نكته ي اشاره شده در حالت مربع (Square) تعيين ميگردد. مقدار 4 - Rounded Rectangle : اين مقدار شكل ما را بصورت مستطيل با گوشه هاي گرد ميسازد. به اين حالت مستطيل گرد گفته ميشود. متاسفانه ميزان انحناي گوشه ها، قابل تعيين نيست(همواره ثابت ميباشد). مقدار 5 - Rounded Square : شكل ما بصورت مربع گرد خواهد بود. خاصيت Width Border : به كمك اين خصيصه ميتوانيم ضخامت شكل مورد نظر را تعيين نماييم. محدوده ي اين ضخامت از 1 تا 8192 پيكسل (Pixel) ميباشد. خاصيت Border Color : رنگ حاشيه را تعيين ميكند. بقيه ي خواص را در ادامه ي آموزش متوسطه فرا خواهيد گرفت. حال سراغ عنصر ديگري برويم. عنصر ComboBox : اين عنصر داراي يك ليست ميباشد كه همواره يكي از آنها در حالت انتخاب است، مگر اينكه گزينه ي اول خالي باشد. اين عنصر نيز در پنجره ي ToolBox در حالت استاندارد وجود دارد. http://djcsaeed.persiangig.com/image/Computer_Persianblog/ComboBoxObj.gif خاصيت Sorted : يكي از دو مقدار True و يا False را ميپذيرد و مشخص ميكند كه عناصر موجود را با توجه به حروف الفبا و بصورت صعودي مرتب شده نمايش دهد يا خير. خاصيت Text : با مقداردهي به اين خصيصه ميتوان متني را كه در ابتداي ليست وجود دارد و نمايش داده ميشود را تعيين كرد. توجه كنيد كه اين خصيصه تنها متن پيشفرض اوليه را مشخص كرده و به عنوان يك گزينه در ليست محسوب نميشود. خاصيت RightToLeft : مانند خصيصه ي قبلي مقدار دو ارزشي ميپذيرد و تعيين ميكند كه گزينه ها از سمت چپ تراز (Align) گردند يا راست. براي حروف انگليسي مقدار اين خاصيت را False ميكنيم تا از چپ تراز شده و براي حروفي مانند فارسي مقدار آن را True نموده تا گزينه هاي ليست راست چين شوند. خاصيت List : به كمك اين خاصيت ميتوان در پنجره ي Properties Object گزينه هاي ليست را اضافه يا حذف كرد. براي افزودن گزينه به ليست ComboBox توسط دستور بصورت زير عمل ميكنيم: كليد F7 را فشرده تا به قسمت كدنويسي برويم. اكنون در محل دلخواه مانند رويداد Load فرم، نام عنصر ComboBox مورد نظر را نوشته سپس يك نقطه ميگذاريم، پس از آن تايپ ميكنيم AddItem و در نهايت رشته ي مورد نظر را محصور در "" مينويسيم. دقت نماييد كه با اين روش به هر ترتيبي كه بنويسيد گزينه ها نمايش داده ميشوند به شرطي كه مرتب نباشند (يعني Sorted = False). براي اينكه در محل مشخصي گزينه ي مورد نظر شما درج شود پس از انجام دادن مراحل بالا يك علامت ويرگول يا كاما (( , )) در انتهاي هر دستور قرار داده و سپس شماره ي انديس آرايه را كه از صفر شروع ميشود را ذكر كنيد. اين نكته را نيز مد نظر داشته باشيد كه همواره بزرگترين عدد آرايه كه قابل دسترس ميباشد برابر تعداد گزينه هاي ليست است. Combo1.AddItem "AA", 4 خاصيت Style : حالت سه وضعيتي دارد: مقدار 0 - DropDown Combo : در اين حالت شما هم ميتوانيد متني را وارد نماييد و هم توانايي انتخاب گزينه هاي ليست را داريد. مقدار 1 - Simple Combo : در اين حالت كاربر فقط توانايي وارد نمودن متن را داشته و نميتواند گزينه اي از ليست را برگزيند. مقدار 2 - DropDown List : اين حالت برعكس حالت قبلي است، يعني كاربر تنها ميتواند گزينه اي از ليست را برگزيند و نميتواند داده اي را وارد نمايد. جلسه ي بعد اين مطلب را ادامه خواهيم داد و نحوه ي افزودن گزينه به ليست توسط كاربر را مي آموزيد. موفق وسربلند باشید. mazi_z_PSP08-05-2007, 12:47 PMآموزش ويژوال بيسيك۶ متوسطه (بخش ۳) بسم الله الرحمن الرحیم سلام جلسه ي قبل با چند عنصر از جمله ComboBox آشنا شديد. قرار شد در اين جلسه نحوه ي افزودن گزينه به اين عنصر توسط كاربر را بياموزيد. براي اينكار شما ميتوانيد روش هاي مختلفي را بكار ببنديد. ابتدا به روش ساده تر ميردازيم. ميخواهيم فرمي داشته باشيم كه در آن يك عنصر ComboBox براي نمايش گزينه ها، يك عنصر TextBox براي تعيين عنوان گزينه ي ليست توسط كاربر و يك CommandButton براي افزودن گزينه هاي ورودي توسط كاربر به ComboBox وجود داشته باشد. در ابتدا به اين نكته توجه داشته باشيد كه در سري مقالات آموزشي، ما نام عناصر را بطور پيشفرض باقي ميگذاريم. در صورتي كه بخواهيم نام عنصري را تغيير دهيم به آن اشاره نموده و در غير اينصورت چيزي نمينويسيم. حال پس از افزودن اين سه عنصر به فرم، به رويداد كليك دكمه Command 1_Click ميرويم(بر روي دكمه دابل كليك كنيد). دليل اينكه به اين رويداد و در اين عنصر ميرويم اين است كه، قرار است هنگامي گزينه ها افزوده شود كه كاربر پس از وارد نمودن متن روي اين دكمه كليك كند. دستور افزودن گزينه را به عنصر ComboBox در جلسه ي قبل گفتيم. اما براي اينكه متن TextBox افزوده شود اينگونه مينويسيم: Combo1.AddItem (Text1.Text) به همين سادگي! اما تاكيد من بر آن است كه هميشه سعي كنيد برنامه را تا جاي ممكن كامل و كاربر پسند (استفاده ي آسان براي كاربري) بنويسيد. براي اين كار چند دستور ديگر را نيز به برنامه مي افزاييم. ميخواهيم در ابتدا (هنگام اجراي برنامه) متني در ComboBox همچنين TextBox وجود نداشته باشد، همچنين عنوان دكمه نيز مناسب با عمل انجامش تغيير يابد. براي اينكه كاربر بهتر متوجه كار برنامه شود، عنوان فرم را نيز تغيير ميدهيم. پس در رويداد Load عنصر فرم مينويسيم: Form1.Caption = "Add Item To ComboBox Object" Combo1.Text = Empty Text1.Text = Empty Command 1.Caption = "Add To List" Text1.TabIndex = 0 Combo1.TabStop = False دو خصوصيت (Property) جديد در اين دستورات مشاهده ميكنيد. TabIndex : انديس پرش، خصوصيتي است كه شامل تمامي عناصري كه قابليت تمركز (Focusable) دارند ميشود. اين خصيصه بدين معناست كه شما در فرمي شامل عناصر مختلف ميباشد هستيد و كليد Tab از صفحه كليد را ميزنيد، به ترتيب روي كدام عنصر پرش كند. چون اين شماره ها بصورت آرايه ميباشد از صفر شروع ميشود. TabStop : هرگاه مقدار False را به اين خصوصيت تخصيص دهيد، در واقع تمركز پذيري يا Focusable را از آن عنصر سلب كرده و در نتيجه هر چقدر هم كه كليد Tab را بفشاريد هيچگاه آن عنصر به اين طريق Focus نخواهد شد. حال با اين توضيحات ميخواهيم هرگاه كاربر بر روي دكمه كليك كرد، دوباره تمركز به روي عنصر Text1 برود. براي اين كار در رويداد كليك دكمه مينويسيم: Text1.SetFocus توجه داشته باشيد كه SetFocus يك متد ميباشد و نه خصوصيت. ولي لازمه ي اين متد همانطوري كه گفته شد وجود خصوصيت تمركز پذيري ميباشد. اكنون ميخواهيم به سراغ روش ديگري براي افزودن گزينه به عنصر ComboBox برويم. قصد داريم هنگامي كه كاربر روي خود اين عنصر متني را نوشت و كليد Enter يا همان Return را زد گزينه افزوده شده و متن در حال حاضر حذف شود. پس در اين فرم ما تنها نياز به يك عنصر ComboBox داريم. ابتدا دستورات را نوشته و سپس به توضيح دستورات آن ميپردازيم. براي اين كار در رويداد فشرده شدن كليد (KeyPress) عنصر ComboBoxمينويسيم: If KeyAscii = 13 Then Combo1.AddItem (Combo1.Text) Combo1.Text = Empty End If خط اول اين دستور يك شرط است كه ميگويد اگر كليد Enter فشرده شد در اين صورت دستورات داخل شرط را انجام بده. در داخل شرط ابتدا متن موجود در عنصر Combo1 را به عنوان يك گزينه افزوده و سپس متن آن را پاك ميكند. دقت كنيد كه متن Text آن را پاك ميكند و نه گزينه Item آن را. تابع KeyAscii : اين تابع شماره كليد فشرده شده بر اساس استاندارد ASCII را بر ميگرداند. در اين استاندارد شماره ي كليد Return يا Enter برابر 13 ميباشد. شما در اين دستور، براي راحتي كار و جلوگيري از اشتباه ميتوانستيد بنويسيد If KeyAscii = vbKeyReturn Then كه معادل همان دستور بود. VBKey... : هر گاه بخواهيد براي تعيين شماره كليد توابعي نظير KeyAscii, KeyCode از كد استفاده كنيد، ميتوانيد از روش ساده تري كه در ويژوال بيسيك وجود دارد استفاده نماييد. براي اين كار بجاي كداسكي مربوطه VBKey را نوشته و در ادامه نام كليد مورد نظر را درج ميكنيد. مثلا بجاي نوشتن 65 مينويسيد VBKeyA . اين كار در برخي بخش ها مشكل ساز خواهد بود. به عنوان مثال از طريق اين دستور نميتوانيد حساسيت حروف يا Key Sensitive داشه باشيد. مثلا قادر نخواهيد بود تشخيص دهيد كه كاربر كليد A را فشرده يا كليد a، همچنين در صورت استفاده از اين دستور نميتوانيد تمامي كاراكترهاي موجود مانند @, #, &, * و ... را تشخيص دهيد. در چنين حالاتي شما مجبور به استفاده از شاره كد اسكي آن خواهيد بود. اما از مزاياي ديگر استفاده از اين دستور علاوه بر راحتي تشخيص كليد، ميتوان به مقرون به صرفه بودن دستورات در بسياري مواقع اشاره كرد. براي تفهيم بيشتر به يك مثال بسنده ميكنيم. فرض كنيد شما ميخواهد هنگامي كه كاربر كليد Q را از صفحه كليد فشرد، برنامه به اتمام برسد بدون اينكه تفاوتي ميان اينكه حرف q فشرده شده يا Q و حتي زبان ديگري مثلا در فارسي حرف ض فشرده شده است وجود داشته باشد، در اين صورت از اين دستور استفاده ميكنيد VBKeyQ. به عبارت بهتر، اين دستور تنها تعيين ميكند كدام كليد از صفحه كليد فشرده شده و به حالاتي مانند نوع زبان يا روشن و خاموش بودن CapsLock كاري ندارد. از نمونه هاي استفاده شده ي بارز آن ميتوان در بسياري از برنامه ها مانند World و Photoshop اشاره داشت. شما براي ذخيره كردن در اين دو برنامه تنها از تركيب دو كليد CTRL + S استفاده ميكنيد در حالي كه برنامه تفاوتي به نوع زبان و بزرگي و كوچكي حرف ندارد. در جلسه ي بعد شما با چند عنصر ديگر آشنا خواهيد شد. موفق وسربلند باشید. Jalal08-05-2007, 01:06 PMنحوه آموزشتون فرق میکنه ؟؟؟ 20647 whisper08-05-2007, 01:35 PMمازی جان به نظر من شما وقتتو رو یه چیز دیگه بزار که تو این سایت کمتر باشه نه Vb 6! دیگه خیلی قدیمی و تکنیک برتر یه کاملشو گذاشته حداقل ویروس نویسی رو آموزش بده که اینقدر در بارش فعالیت می کنی!! mazi_z_PSP08-05-2007, 04:02 PMباشه عزيز من هم همين کار رو کردم. آموزش ويروس نويسی هستش. چون يه چند وقتی هست که تکنيک مقاله ای نذاشته من خواستم بهتر کمک کنم به دوستانی که ميخوان ياد بگيرن mazi_z_PSP08-05-2007, 04:03 PMنحوه آموزشتون فرق میکنه ؟؟؟ 20647 نه فقط سعی ميکنم مقاله ها و محتواشون فرق کنه mazi_z_PSP08-05-2007, 10:26 PMآموزش ويژوال بيسيك۶ متوسطه (بخش ۴) بسم الله الرحمن الرحیم سلام به همگي دوستان عزيزي كه سوال مطرح ميكنند، پاسخ هايشان را پس از اين در انتهاي پست ها جستجو كنند. طبيعي است كه هر يك از اعضاي محترم گروه كه پستي قرار ميدهد در پايان پست آن شخص پاسخ ها قرار ميگيرد. از دوستان عزيز خواهش دارم كه سوالات خود را كامل مطرح نمايند تا بتوانند به نتيجه ي مطلوب برسند. عنصر ListBox : از اين عنصر براي نمايش گزينه ها استفاده ميشود. از تفاوت هاي اين عنصر با ComboBox در نحوه ي نمايش و نحوه ي انتخاب گزينه ها ميباشد. شما براي نمايش گزينه ها در ComboBox بايد ليست را باز مي نموديد و همچنين در اين عنصر تنها شما قادر به انتخاب يك گزينه در هر بار انتخاب بوديد در حالي كه به كمك عنصر ListBox شما ميتوانيد بخشي يا تمامي گزينه هاي ليست را بطور همزمان مشاهده نموده و همچنين ميتوانيد با تعيين تنظيمات، قابليت انتخاب همزمان چند گزينه (Multi Selection) را داشته باشيد. از ديگر مزاياي اين عنصر قابليت ايجاد چند ستون (Multi Columns) براي نمايش گزينه ها ميباشد. عنصر ListBox بطور پيشفرض در نوار ابزار پروژه ي استاندارد وجود دارد: http://djcsaeed.persiangig.com/image/Computer_Persianblog/ListBoxObj.gif براي افزودن گزينه به ليست همانند ComboBox عمل ميكنيم List1.AddItem "List Item Title" و براي چند ستوني نمودن گزينه هاي نمايش در ليست مقدار خصوصيت Columns را با مقداري صحيح مقدار دهي مينماييم كه اين مقادير ميتواند بين صفر تا 32767 باشد. به دو نكته ي كوچك دقت نماييد كه اولا اگر تعداد ستونها صفر يا يك باشد در هر دو صورت ListBox يك ستون خواهد داشت و ثانيا اينكه تعداد ستون هايي كه تعيين ميكنيد، در واقع تعداد ستونهايي كه بطور همزمان ميتوانيد در ListBox مشاهده كنيد را تعيين كرده ايد. به عنوان مثال فرض كنيد ميخواهيم تعداد ستون هاي List1 را برابر 5 كنيم براي اين كار مينويسيم List1.Columns = 5 نكته ي مهم: در اكثر مواقع هنگامي كه شما تازه عنصر ListBox اي را ايجاد كرده ايد و مقداري را به عنوان ستون توسط كد به آن نسبت ميدهيد، هنگام اجراي برنامه با خطا مواجه ميشويد. براي رفع اين مشكل پس از ساخت ListBox ابتدا در پنجره ي Properties مقدار Columns را برابر يك قرار داده و بعد از اين ميتوانيد توسط دستور هر مقداري را در محدوده اي كه به آن اشاره شد براي تعداد ستون نسبت دهيد. خصيصه MultiSelect : اين خصوصيت داراي سه حالت ميباشد. حالت 0-None : با ا� سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1631]

bt

اضافه شدن مطلب/حذف مطلب




-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن