آموزش گام به گام ویژوال بیسیک6.0

دوست عزيز سلام
توي تاپيك قبلا يه بحثي شده تو اين آدرس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان عزیز امیدوارم منو ببخشید سرم خیلی شلوغه خودتون دیگه می دونید.
من یه مدت در امضاء خودم نوشته بودم اگر غلط املایی از من دیدین به بزرگی خدتون ببخشید . من به زبون فارسی زیاد مسلط نیستم.بازم در امضام اینو می زارم.
motv
جان شرمنده ولی باید بگم اینجا سایت نه چت روم.
----------------------
و اینکه وظیفه همه دوستان است که یکسری مسائل را گوشزد کنن فقط کار مدیران نیست.

باسلام خدمت همه دوستان
یک سئوال دارم هر که میدونه لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the data period is over
now you can remove visual studio 2005.net from your computer
کی میتونه مشکل منو حل کنه هر که میدونه لطف کنه بگه
what should i do?

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

سلام و خسته نباشی alir500 جان
یک سئوال دارم اگه میدونید لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the beta period is over
now you can remove visual studio 2005.net from your computer
-----------------------------------------------------------------------------------

please tell me
how can i solve this problem ?
request.............. request.............. request............. request

نقل قول:

---

نوشته شده توسط vorojax

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

---

دوست عزيز سلام
ميشه واضح تر بگي متوجه منظورت نشدم

رفيق چند نوع بانك اطلاعاتي داريم واسه وي بي؟
كدوم بهتره

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

من تمام سايت هارا زيرو رو كردم براي اموزش ويژوال بيسيك رو تا اينكه با اين تالار واين سايت رسيدم همين كه تايپك شما رو ديدم خيلي خوشحال شدم وقتي ديدم از همون ابتدا يعني يه تاريخچه جامع وهم چنين نحوه بازكردن يه ژروژه جديد رو ديدم خيلي خوشحال شدم اما كمي كه ژاين تر رفتم نا اميد شدم من به دانستني هاي شما ايمان كامل دارم اما من يك دي ژلم كامپوتر هستم ومي خوام براي كنكور شركت كنيم تنها زبان برنامه نويسي هم كه براي كنكور مي ايد همين ويژوال بيسيك است اما شما نگاه كنيد ما كه در رشته كامژيوتر درس مي خوانيم توري كتاب را تنظيم كردن كه بتونيم راحت برنامه نويسي كنيم وفصلها وموضوعات رو خيلي خوب طبقه بندي كردن اما اينجا اينتوري نبود دو فصل اولش بد نبود اما شما خيلي زود سراغ چيز هاي رفتيد كه براي يك حرفه اي خوب باشد امانه براي يه تازه كار
من از شما مي خواهم بر اساس اطلاعات زيادي كه در باره اين زبان برنامه نويسي داريد يك تاپك جديد باز كرده واز اول برنامه نويسي يعني يه تاريخچه نحوه باز كردن يك پروژه جديد واما اين بار كه تو اين تايپك جديد يه كم در باره نحوه كد نويسي ويكم در باره خواص اشيا وومعرفي اشيا تو ضيح بديد مسلا از همون ابتدا به معرفي انواع داده در ويژوال بيسيك ومثلا استفاده از ليبل ودر تايپك بعد نحوه تعريف و تكست باكس به پردازيد اگه اين كار را بكنيد ماهم من هم ممنونتون ميشم واز اين سردر گمي نجات يدا ميكنم ودر غير اين صورت بايد به دنبال يه سايت ديگر باشيم لطفا رو اين موضوع فكر كنيد
ممنونم كاربر تازه

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

با سلام
نيازي نيست كه خيلي تعريف و تمجيد كنم فقط مي گم كارتون درسته
1-اگه ممكنه باهر مبحثي نيز يك مثال همراه باشه چون همه در يك سطح نيستند
2- اگه ممكنه كار با بانكهاي اطلاعاتي نيز در اينجا يا جاي ديگه نيز به اون پرداخته بشه
ممنون

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

کسی به ما جواب نمیده ؟
===================
========================
یک سئوال دارم اگه میدونید لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the beta period is over
now you can remove visual studio 2005.net from your computer
-----------------------------------------------------------------------------------

please tell me
how can i solve this problem ?
request.............. request.............. request............. request

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

خيلي عاليه ادامه بدهيد
موفق باشيد

نقل قول:

---

نوشته شده توسط vorojax

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

---

بابا دمتون گرم رفقا يعني هي چكدوم نمي تونيد جواب اينو بديد! :blink:

بابا یکی به ماهم جواب بده ؟
بین این همه professional یکی نیست به من تازه وارد هم جواب بده؟
بابا دمتون گرم!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==============================
یک سئوال دارم اگه میدونید لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the beta period is over
now you can remove visual studio 2005.net from your computer
================================================== =============

please help me
how can i solve this problem ?
request.............. request.............. request............. request

آخرین ورزن ویزال بیسیک چیه؟
متشکرم

نقل قول:

---

نوشته شده توسط mike_3000 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بابا یکی به ماهم جواب بده ؟
بین این همه professional یکی نیست به من تازه وارد هم جواب بده؟
بابا دمتون گرم!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==============================
یک سئوال دارم اگه میدونید لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the beta period is over
now you can remove visual studio 2005.net from your computer
================================================== =============

please help me
how can i solve this problem ?
request.............. request.............. request............. request

---

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

خدا رو شکر بالاخره یه جایی پیدا شد که بهش پناه ببرم

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

salam
من کدی رو میخواستم که وقتی روی دکمه کلیک میکنی یه پنجره باز بشه و تاریخ شمسی رو از ما بگیره و تاریخ میلادی توی تکس باکس نشون بده
همین جور بر عکسش یعنی شمسی رو بگیره وتاریخ میلادی توی تکس باکس نشون بده
خیلی ممنونم
منتظرم
اگه میشه توی وبلاگ جواب رو بدید

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
والا فکر کنم راحتترین کار این باشه که الان حساب کنی ما چقدر با تاریخ اونا فاصله داریم!
بعد مبتونی کم و زیاد کنی
و با Msgbox نشون بدی!
-----------------------------------
البته اگه خواستی کدش رو هم من یا دوستان میذارن!
ولی صبـح

من یه سئوال دارم خیلی هم فوریه
می خواهم یه رکورد یه یه جدول در sql اضافه کنم با adodb می شه دستور وصل و دستور ایجاد رکورد جدید و آپدیتش را بگین من این کار رو با storprodure va access می توانم انجام بدم ولی نمی تونم مستقیم روی جدول های sql وصل بشم

سلام راستش خیلی سخته که بخوام تمام صفحات را بگردم و همه را بخونم کسی این آموزشهایی که تکنیک برتر نوشته را به Pdf تبدیل کرده یانه؟؟؟
ممنون!!

سلام
راستش فکر نکنم بتونم توی این قضیه به شما کمک کنم!
چون بلد نیستم!
:blush:
ایشاالله صاحب تاپیک کمک میکنه!
:D

سلام دوستان عزیز واقعا شرمنده هستم .
ولی دیگه اومد و ......
مطالب قبلیتون و هنوز نخوندم سر وقت می خونم.

سلام کسی می تونه به من بگه چه طوری به بانکهای اطلاعاتی از نوع txt یا dbf با وی بی متصل بشم
ممنون

با عرض سلام خدمت دوستان عزيز فردا pdf اين مجموعه بزرگ رو مي زارم.الان هم آماده است فقط چون رنگ و رخ ندارد مي گزارم فردا بزارم براتون.
و اينكه منتظر مجموعه بزرگتر از اين باشيد با آموزش 450 صفحه واقعي مي آيم مثل بقيه 450 صفحه اي نيست كه يكي سايز مطلب رو كرده 40 بعد آخرش هم 450 صفحه ازش در مياد اين كتاب از پاييه شروع مي شه تا نيمه حرفه اي
و يه خبر ديگه اينكه حدود 800 صفحه هم كارهاي خودم را مي خواهم بگزارم ولي اين و يكم دير تر مثلا 1ماه ديگه
ممنون
خدا حافظ

اين هم آموزش وي‍ژوال بيسيك به صورت pdf
با سلام خدمت دوستان عزيز و عرجمند
اميدوارم مورد قبولتان واقع شود به هرحال داراي نظم آنچناني نمي باشد اگر كم و كثري دارد به بزرگي خودتان ببخشيد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
استاد حجمش چقده؟

hossein_dig
خوبي عزيز يه برنامه است كه يكي از دوستان معرفي كرده بود براي سايت ايران ويج هم بود براي توابع api است كه دقيقا مشكل شما رو حل مي كنه سرچ كني تو انجمن مربوط پيدا مي كني و اينكه براي ذخيره عكس در ديتا بيس هم مطلب زياده در همين انجمن
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از لينك بالاpdfذخيره تصوير در بانك اطلاعاتي رو دانلود كنيد.

حتما یه سری بزنید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

یک وبلاگ برای آموزش فایل ها در vb

کد:

---

http://salam4000.blogfa.com/

---

سلام

تشکر یادتون نره .

آموزش گام به گام ویژوال بیسیک6.0
با سلام خدمت دوستان قرار است که در این تایپک برای دوستان آموزش گام به گام ویژوال بیسیک را بگزارم.
از مبتدی تا حرفه ای.
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
7 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تبلیغــــات [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Advertisement


[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-01-2005, 05:32 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوستان گرامی معضرت این تایپک را از فردا راه اندازی می کنم خواهشمند از دوستان عزیز و ارجمند که تا
نگزاشتن مطلب توسط تکنیک برتر که خودم باشم هیچ گونه مطلبی ارائه ندهید
ممنون
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 04:46 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
آشنایی با ویژوال بیسیک 6
تاریخچه ویژال بیسیک.
با شناختی که از تاریخچه ویژوال بیسیک بدست می آورید راحت تر می توانید از آن استفاده کنید.
شرکت مایکروسافت ویژوال بیسیک را براساس یک زبان برنامه نویسی به نام بیسیک که برای مبتدیان نوشته شده است ساخت.
زبان ویژوال بیسیک بیشتر از 35 سال به اشکال مختلف رایج بوده. در واقع طراحان این زبان می خواستند یک زبان برنامه نویسی برای استفاده مبتدیان طراحی کنند.برنامه نویسان جدید می توانند با استفاده ازبیسیک به سرعت به شرع برنامه نویسی های حرفه ای با زبان های cobol .fortran . assembler
در مقایسه به بیسیک کار بیشتری نیاز داشت.
طبیعت بصری ویژوال بیسیک
دیدید که ویژال بیسیک 6 چیزی بیشتر از یک زبان برنامه نویسی است. از ویژوال بیسیک در نام آن visualبه معنای بصری یا محیط نمایشی . است.
کار با ویژال بیسیک 6
در اولین بار که برنامه را باز می کنید با پنجره new project روبه رو می شوید در این قسمت
نوع فورم خود را انتخاب کرده ماننده activex|standardو....
این پنجره شامل 3 قسمت بوده
New:در این پنجره امکان انتخاب فورم مورد نظر شما امکان پذیر می باشد.
Existing:در این پنجره امکان انتخاب project های مختلف که در مکانهای مختلف ذخیره یا... امکان انتخاب می باشد.
Recent:در این قسمت هر projectرا که ذخیره می کنید به صورت دسته ای جمع می شود حالا یک فایلی
در درایو Dباشد حالا چه در درایو c.
DON.T SHOW THIS DIALOG IN THE FUTURE
این قسمت جلو گیری از باز شدن پینجره NEW PRIJECT می باشد.
HELP:از این قسمت وقتی امکان استفاده می باشد که نرم افزار MSDN را نصب کرده باشید.
معرفی قسمت های بیسیک.
نوار ابزار:TOOLBAR:نوار ابزار VB زیر منو قرار دارد. ویژال بیسیک کلا چهار نوار ابزار دارد:
STANDARD:این نوار ابزار زیر منو ظارهر است و پیش فرض است.
DEBUG:وقتی از ابزارهای رفع اشکال برای ردیابی و اصلاح اشکالات استفاده می کنید. این نوار ابزار ظاهر می شود.
EDIT:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد
FORM EDITOR:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد.
جعبه ابزار:TOOLBOX:
در این پنجره تمامی شئعی های مختلف برای کار بر روی فرم هستند و حتا امکان اضافه کردن به این پنجره ها می باشد.
پنجرهPROJECT:در این پنجره فرم های انتخبی شما با هر گروه و هر فرم مشخص شده است.
پنجرهPROPERTISE:
این پنجره امکان تنضیمات لازم برای هر شیئی را مشخص می کنید.
نویسنده مجید رحیمی.
پایان قسمت اول
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 8 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 04:49 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
قسمت دوم
ساخت اولین برنامه
برای درک آسان بودن نرم افزار بیسیک
الان می خواهم برایتان یک برنامه ساده بنویسم که فقط با چند خط ساده نوشته شده است .
چون الان تازه اول کار هستیم از توابع و کارهای دیگرش شروع نمی کنم.
ابتدا 2 عدد Taxtboxگزاشته از جعبه ابزار
کد زیر را در Text1 قرار داده.
If Text1.text="majid" Then
Text2.text="rahimi"
End If
کد بسیار راحتی بود.
خط اول گفتیم که اگر در Text1 نوشتند Majid
د خط دوم نوشتیم در Text2 بنویسد Rahimi
و در آخر گفتیم پایان
درک کد بالا باید آسان باشد.
ما از دستور If استفاده کردیم که در درسهای آینده خواهم گفت.
دستور بالا يك آموزش بود براي اينكه به شما نشان بدهيم كه ويژوال بيسيك چه قدر آسان مي باشد.
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 05:00 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
قسمت دوم
معرفی بری فراخوانی کامپننت ها یا شیئی ها که در قسمت toolbar میتوانید دید.
البطه خودتان هم می توانید چنین شیئی یا کامپوننت های بسازید ولی الان وقتش نیست در قسمت های بعدی آموزش می دهم.
با زدن کلید ctrl+t یا از پنجره projectبر روی coomponntes کلیک کرده .
پنجره componntes قابل مشاهده است. پنجره control کنترل ها یا کامپوننت های از قبل تعریف شده برای کار است که با کلید بر روی هر کدام اعمال خواصی را انجام می دهد.
و با کلیک بر روی browse..امکان انتخاب از داخل هارد را امکان پذیر می باشد.
فرمت این کامپوننت های ocxمی باشد.
insertabel قسمت مخصوص کامپوننت های برنامه های مختلف می باشد . مانند ماکرومدیا فلش و.....
که با انتخاب هر کدام می توانید مثالا می خواهید یک فایل فلش را در برنامهه خود بگزارید. به وسیله این کامپوننت های امکان پذیر است.مانند گزاشتن فیلم. صدا. تصاویر متحرک و ...... . . . .
که با انتخاب هر کدام در کنار toolbar نمایان می شود
ادامه دارد قسمت دوم ادامه دارد
مجید رحیمی
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 06:21 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کار با فايل در ويژوال بيسيک - بخش اول

مقدمه

بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد .
بطور کلی فايلها بر دو نوع هستند :
1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی و برخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند .
۲ - فايلهای باينری Binary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارند مانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره
ويژوال بيسيک می تواند با هر دو نوع فايل کار کند .

چگونگی باز کردن فايلها

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

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


[ پارامترهای داخل کروشه اختياری هستند . ]
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 باز شده باشد در اينصورت يک فايل جديد با اين نام ساخته می شود .
در صورتی که فايل بصورت باينری باز شده باشد پارامتر Len ناديده گرفته می شود .

چگونگی بستن فايل

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

Close #filenumber


دستور Close بدون هيچ پارامتری تمام فايلهای باز را می بندد .

کار با دايرکتوری

۱ - گرفتن Dir : توسط دستور Dir می توان نام فايلهای موجود در يک دايرکتوری را بر اساس پارامترهايي که به آن می دهيم پيدا کنيم . برای مثال :

Myfile=Dir$("c:\text\*.txt)"x


دستور فوق نام اولين فايل موجود در دايرکتوری C:\TEXT را که پسوند آنها txt باشد در متغير Myfile قرار می دهد . اگر دستور فوق را بدون پارامتر مجدداً اجرا کنيم نام دومين فايل برگرداننده می شد و الی آخر
Dir دارای يک پارامتر اختياری است که نوع فايلهای مورد نظر را نيز می توان با آن مشخص نمود . مثال :

Myfile=Dir$("c:\text\*.txt",vbNormal)x


مقادير ممکن اين پارامتر عبارتند از :
vbNormal ، vbHidden ، vbSystem ، vbDirectory
۲ - تغيير دايرکتوری : برای تغيير دايرکتوری از دستور ChDir استفاده می شود مثال :

ChDir "c:\windows\system32"x


۳ - تغيير درايو : برای تغيير درايو از دستور ChDrive استفاده می شود مثال :

ChDrive "E:"x


۴ - ساخت دايرکتوری : برای ايجاد دايرکتوری جديد از دستور MKDir استفاده می شود مثال :

MKDir "c:\MyFolder"x


۵ - حذف دايرکتوری : برای حذف دايرکتوری از دستور RmDir استفاده می شود مثال :

RmDir "C:\MyFoler"x
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 06:26 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کار با فايل در ويژوال بيسيک - بخش دوم

خواندن از فايل :

1 - دستور Input : توسط دستورهای Input و Line Input می توان محتوای فايلهای متنی و باينری را خواند .
دستور Input به دو صورت بکار می رود :
Input #Filenumber,ReadData
ReadData=Input(Charnum,Filenumber)x
دستور اول کل يک فايل را خوانده و در متغير ReadData قرار می دهد . دستور دوم ، تعداد Charnum بايت از فايلی با شماره Filenumber را خوانده و در متغير ReadData قرار می دهد .
اين دو دستور تمام کاراکترهای موجود در فايل را می خوانند . برای اينکه بتوان فايل را خط به خط خواند ، از دستور Line Input استفاده کنيد :
Line Input #Filenumber,ReadData
البته از دستور Line Input بيشتر برای خواندن فايلهای متنی استفاده می شود زيرا ممکنست در فايل باينری هيچ کاراکتر انتهای خط ( CRLF ) وجود نداشته باشد و يکباره کل فايل خوانده شود .

۲ - دستور Get : از اين دستور برای خواندن فايلهای باينری با دسترسی تصادفی ( Random Access ) استفاده میشود :
Get #Filenumber,[Recordnum%],ReadData
اين دستور رکورد شماره Recordnum را از فايلی با شماره Filenumber می خواند و در متغير ReadData قرار می دهد . علامت کروشه نشان می دهد که پارامتر Recordnum اختياری است و در صورتيکه ذکر نشود داده ها از رکورد بعدی فايل ( جائيکه اشاره گر فايل آنجا قرار دارد ) خوانده می شوند .

نوشتن در فايل :

۱ - دستور Print : توسط اين دستور می توان اطلاعاتی را در فايل قرار داد :
Print #FileNumber,WriteData
دستور فوق محتويات متغير WriteData را در فايلی با شماره FileNumber می نويسد . بوسيله دستور Print می توان اطلاعات را بصورت خط به خط در فايل نوشت برای مثال :
Print #1,"Hello Visual Basic"+Vbcrlf
عبارت Vbcrlf نشان دهنده کاراکتر انتهای خط ( CRLF ) در ويژوال بيسيک می باشد .

۲ - دستور Put : اين دستور برای نوشتن داده ها در فايلهای باينری با دسترسی تصادفی بکار می رود :
Put #FileNumber,[Recordnum],WriteData
اين دستور محتويات متغير WriteData را در رکورد شماره Recordnum قرار می دهد .

تعيين محل رکورد در فايلهای با دسترسی تصادفی :

برای منتقل کردن اشاره گر فايل به يک رکورد در يک فايل باينری با دسترسی اتفاقی ، از دستور Seek استفاده می شود . اين دستور محل يک بايت را در فايل می گيرد و اشاره گر فايل را در آنجا قرار می دهد بنابراين دستورات Put و Get می توانند با اين رکورد کار کنند :
Seek #FileNumber,RecordNumber

تشخيص انتهای فايل :

برای اينکه متوجه شويم به انتهای يک فايل رسيده ايم از دستور EOF استفاده می کنيم . اين دستور يکی از مقادير True يا False را بر می گرداند که نشان می دهد به انتهای فايلرسيده ايم يا نه . از اين تابع در حلقه های Do-While استفاده می شود :
Do While Not (EOF(FileNumer))x
.
.
.
Loop
حلقه فوق تا زمانيکه فايل موردنظر به انتها نرسيده باشد اجرا خواهد شد .

بدست آوردن طول يک فايل :

بوسيله دستور LOF می توان طول محتويات يک فايل را بدست آورد :
FileSize=LOF(FileNumber)x

بدست آوردن محل اشاره گر فايل :

توسط دستور Loc می توان محل جاری اشاره گر فايل را بدست آورد . اجرا شدن اين دستور محل اشاره گر را تغيير نمی دهد :
FilePosition=Loc(FileNumber)x
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 2 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تبلیغــــات [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Advertisement


[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 06:38 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کار با فايل در ويژوال بيسيک - بخش سوم

ساير عمليات کار با فايل :

۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
Kill "C:\Temp\MyFile.txt"x
Kill "C:\Temp\*.txt"x

۲ - انتقال فايل : برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده می شود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشد فايل تغيير نام داده می شود :
Name "C:\Temp\File1.txt" To "C:\Temp2\File2.txt"x

۳ - کپی کردن فايل : برای کپی کردن يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور FileCopy استفاده می شود :
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"x

۴ - بدست آوردن تاريخ و زمان آخرين تغيير فايل و يا زمان ايجاد فايل : برای اين کار از دستور FileDateTime استفاده می شود . ابتدا بايستی يک متغير از نوع Variant تعريف کرده و سپس توسط اين دستور تاريخ و زمان موردنظر را استخراج کنيم :
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")x

۵ - استخراج طول فايل : برای بدست آوردن طول يک فايل بر حسب بايت از دستور FileLen استفاده می شود :
FileSize=FileLen("C:\MyFile.txt")x

۶ - تغيير صفت يک فايل : برای تغيير صفت يک فايل از دستور SetAttr استفاده می شود . پارامترهای اين دستور عبارتند از :
0 : فايل معمولی
2 : فايل مخفی
4 : فايل سيستمی

SetAttr FileNumber,FileAttrib

مقابله با خطاهای کار با فايل :

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

۵۲ : شماره يا نام فايل صحيح نيست
۵۳ : فايل پيدا نشد
۵۴ : حالت فايل صحيح نيست
۵۵ : فايل قبلاً باز شده
۵۸ : فايل از قبل وجود دارد
۵۹ : طول رکورد صحيح نيست
۶۱ : ديسک پر است
۶۲ : عبور از انتهای فايل
۶۳ : شماره رکورد صحيح نيست
۷۰ : دسترسی ممنوع است
۷۱ : ديسک آماده نيست
۷۶ : مسير پيدا نشد

در هنگام مقابله با خطا بهتراست از يک ساختار Select-Case استفاده کنيد :
Select Case Err
Case 71
MsgBox "Drive is Not Ready"x
.
.
.
End Select
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 2 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 06:47 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ايجاد ساختارهاي داده اي در ويژوال بيسيک - بخش اول

مقدمه :

ساختارهاي داده اي از نظر تعداد اعضا به دو دسته استاتيک و ديناميک تقسيم مي شوند . ساختارهاي استاتيک مثل آرايه هاي يک بعدي و آرايه هاي دو بعدي ، تعداد اعضاي آنها در زمان طراحي برنامه مشخص مي شود و در طول اجراي برنامه ثابت است اما تعداد اعضاي ساختارهاي داده اي ديناميک در طول اجراي برنامه تغيير مي کند . ليست پيوندي ( LinkList ) ، پشته ( Stack ) ، صف ( Queue ) و درختهاي باينري ( Tree Binary) ، نمونه هايي از ساختارهاي داده اي ديناميک هستند .
ليست پيوندي شامل مجموعه اي از عناصر داده اي است که اضافه و حذف اعضا در هر جاي ليست ممکن است .
پشته يک ساختار داده اي مهم در کامپايلرها و سيستم هاي عامل است که عمل اضافه و حذف عناصر از ابتداي آن انجام مي شود .
صف يک ساختار داده اي است که عمل اضافه کردن از انتها و عمل حذف کردن از ابتداي آن انجام مي شود .
درختهاي دودويي براي جستجوي بسيار سريع ، ذخيره سازي داده ها و کامپايل عبارات استفاده مي شوند .

نوع داده Variant :

نوع داده variant براي متغيرهايي بکار مي رود که بطور صريح نوع آنها تعريف نشده است مثال :
Dim value As Variant
اين نوع داده مي تواند هر نوع داده اي را در خود ذخيره کند . همچنين براي ايجاد ساختارهاي داده اي مثل ليست هاي پيوندي ، صف ، پشته و درخت مناسب است .
نوع داده موجود در variant مي توان توسط توابع VarType و TypeName تعيين کرد . تابع VarType يک مقدار صحيح برمي گرداند که نشان دهنده نوع ذخيره شده در variant است .
مثال :
Dim value as Variant
value=”Hello”x
در اينصورت مقدار بازگشتي ( VarType( value برابر 4 خواهد بود .
تابع TypeName يک رشته برمي گرداند که نشان دهنده نام نوع داده ذخيره شده در variant است .

اخذ حافظه بطور ديناميک Dynamic Memory Allocation :

براي ايجاد و نگهداري ساختارهاي داده اي ديناميک بايستي در هنگام اجراي برنامه بتوان فضاي بيشتري براي نگهداري داده هاي جديد بدست آورد . با استفاده از کلمه کليدي New مي توان در ويژوال بيسيک حاقظه ديناميک گرفت :
Set NewNode=New ListNode
که ListNode يک شي از ساختار داده اي مورد نظر ماست .

کلاسهاي خود ارجاعي :

کلاس خودارجاعي نوعي کلاس است که داراي يک اشاره گر ( Pointer ) به يک شي از همان نوع کلاس باشد . براي مثال اگر کلاس ما به اسم ClistNode باشد و متغير زير را در آن تعريف کنيم ، اين کلاس يک کلاس خود ارجاعي است :
Private mNextNode as ClistNode
از mNextNode براي لينک دادن اعضاي يک ساختار داده اي ديناميک بهم استفاده مي شود ( بعبارت ديگر گره زدن يک شي از کلاس ClistNode به يک شي ديگر از همان کلاس ) . شي هاي خودارجاعي مي توانند به همديگر لينک شوند و ساختارهاي داده اي مثل ليست پيوندي ، صف ، پشته و درخت را ايجاد کنند .
شکل زير دو شي خود ارجاعي را نشان مي دهد که بصورت يک ليست بهم لينک شده اند . عبارت NULL بدين معنا است که شي خودارجاعي به شي ديگري اشاره نمي کند ( Nothing ) و نشان دهنده انتهاي ساختار داده است .
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 2 کاربر از تکنیک برتر بخاطر این مطلب مفید تشکر کرده اند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] , [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 11-02-2005, 06:53 AM # [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
كاربر فعال انجمن Visual Basic
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ عضويت: Sep 2005
پست ها: 1,694
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ايجاد ساختارهاي داده اي در ويژوال بيسيک - بخش دوم

ليست پيوندي

همانطور که گفته شد ليست پيوندي مجموعه اي از يکسري داده است که اين داده ها از نوع اشيا خودارجاعي هستند . ( هر شي خودارجاعي داراي يک متغير نوع variant براي نگهدار مقدار و يک اشاره گر به شي بعدي است ) . هر عضو ليست پيوندي را يک گره گويند . هر ليست پيوندي از طريق يک اشاره گر به اولين گره قابل دسترسي است . گره هاي بعدي از طريق قسمت لينک موجود در هر گره قابل دسترس هستند . همچنين لينک آخرين گره با Nothing تنظيم مي شود که انتهاي ليست را نشان مي دهد .
مزيت اصلي ليست هاي پيوندي نسبت به آرايه اينست که تعداد عناصر ليست پيوندي قابل تغيير است . بعبارت ديگر ليست هاي پيوندي بصورت ديناميک هستند و طول آنها قابل تغيير است اما سايز آرايه ثابت است . ( البته ويژوال بيسطک از آرايه هاي با سايز متغير نيز پشتيباني مي کند اما اين عمل تغيير سايز اتوماتيک نيست .)
عمل درج در ليست پيوندي ساده است و تنها بايستي دو اشاره گر تغيير يابد .
ليست هاي پيوندي را مي توان به سادگي با قراردادن هر عضو جديد در محل صحيح بصورت sortشده نگهداري کرد .
اعضاي ليست پيوندي در حافظه بصورت پيوسته ذخيره نمي شوند بنابراين نمي توان فوراً به هر عضو ليست دسترسي داشت ( بر خلاف آرايه ) .
براي ايجاد ليست پيوندي در ويژوال بيسيک نياز به سه کلاس است :

1 – کلاس ClistNode : کلاسي است که هر گره از ليست را توصيف مي کند :

private mNodeData as Variant
private mNextNode as ClistNode
public Property Get Data() as Variant
Data=mNodeData
End Property
Public Property Let Dta(ByVal vNewValue as Variant)x
MNodeData=vNewValue
End Property
Public Property Get NextNode() as ClistNode
Set NextNode=mNextNode
End Property
Public Property Let NextNode(Byval vNewValue as Variant)x
Set mNextNode=vNewValue
End Property



2 – کلاس Clist براي توصيف ليست پيوندي .
mFirstNode براي اشاره به اولين ClistNode و mLastNode براي اشاره به آخرين ClistNode در يک شي clist بکار می رود . زمانيکه يک Clsit ايجاد مي شود اين دو متغير با Nothing تنظيم مي شوند . روال Property Get Iterator يک شي ClistIterator برمي گرداند که مي توان از آن براي حرکت در بين اعضاي ليست استفاده کرد .

Private mFirstNode as ClistNode
Private mLastNode as ClistNode
Public Function IsEmpty() as boolean
IsEmpty=IIf(mFirstNode Is Nothing,True,False)x
End function
Public Sub InsertAtFront(insertItem as variant)x
Dim tempNode as ClistNode
If IsEmpty() then
Set mFirstNode=New ClistNode
Set mLastNode=mFirstNode
Else
Set tempNode=mFirstNode
Set mFirstNode=New ClistNode
MFirstNode.NextNode=tempNode
End if
MFirstNode.Data=insertItem
End sub
Public sub InsertAtBack(insertItem as Variant)x
Dim tempNode as ClistNode
If IsEmpty() then
Set mLastNode=New ClistNode
Set mFirstNode=mLastNode
Else
Set tempNode=mLastNode
Set mLastNode=New ClistNode
TempNode.NextNode=mLastNode
End if
MLastNode.Data=insertItem
End sub
Public function RemoveFromFront()x
Dim removeItem as Variant
If IsEmpty() then
Msgbox list is empty
RemoveFromFront=Null
Exit function
End if
RemoveItem=mFirstNode.Data
If mFirstNode Is mLastNode then
Set mFirstNode=Nothing
Set mLastNode=Nothing
Else
Set mFirstNode=mFirstNode.NextNode
End if
RemoveFromFront=removeItem
End function
Public Function RemoveFromBack()x
Dim removeItem as Variant
Dim current as ClistNode
If IsEmpty() then
Msgboc list is empty
RemovefromBack=Null
Exit function
End if
RemoveItem=mLastNode.Data
If mFirstNode Is mLastNode then
Set mFirstNode=nothing
Set mLastNode=Nothing
Else
Set current=mFirstNode
While Not current.NextNode Is mLastNode
Set current=current.NextNode
Wend
Set mLastNode=current
Current.NextNode=nothing
End if
RemoveFromBack=removeItem
End function
Public property Get Iterator() as variant
Dim iter as ClistIterator
Set iter=New ClistIterator
Iter.StartNode=mFirstNode
Set Iterator=iter
End property


عملکرد روال InsertAtFront :
a – فراخواني IsEmpty براي تعيين خالي بودن ليست
b – اگر ليست خالي باشد mFirstNode و mLastNode به New ClsitNode اشاره مي کنند .
c – اگر ليست خالي نباشد گره جديد توسط اشاره دادن tempNode به اولين گره ليست و سپس اشاره دادن mFirstNode به گره New ClsitNode و سپس اشاره دادن mFirstNode.NextNode به tempNode ساخته مي شود .
d – تنظيم mFirstNode.Data با مقدار مورد نظر
عملکرد روال InsertAtBack :
a – فراخواني IsEmpty براي تعيين خالي بودن ليست
b – اگر ليست خالي باشد mFirstNode و mLastNode به New ClsitNode اشاره مي کنند .
c – اگر ليست خالي نباشد گره جديد توسط اشاره دادن tempNode به آخرين گره ليست و سپس اشاره دادن mLastNode به گره New ClsitNode و سپس اشاره دادن tempNode.NextNode به mLastNode ساخته مي شود .
d – تنظيم mLastNode.Data با مقدار مورد نظر
عملکرد روال RemoveFromFront :
a – اگر ليست خالي باشد Null برگشت داده مي شود .
b – اگر ليست خالي نباشد داده mFirstNode به removeItem اختصاص داده مي شود .
c – اگر ليست فقط يک گره داشته باشد mFirstNode و mLastNode با Nothing مقدار دهي مي شوند و گره از ليست حذف مي شود .
d – اگر گره بيش از يک عضو داشته باشد mFirstNode برابر mFirstNode.NextNode مي شود .
e – مقدار removeItem برگشت داده مي شود .
عملکرد روال RemoveFromBack :
a – اگر ليست خالي باشد Null برگشت داده مي شود .
b – اگر ليست خالي نباشد داده mLastNode به removeItem اختصاص داه مي شود .
c – اگر ليست يک گره داشته باشد mFirstNode و mLastNode با Nothing مقدار دهي مي شوند و گره از ليست حذف مي شود .
d – اگر ليست بيش از يک گره داشته باشد متغير current برابر mFirstNode مي شود . سپس با استفاده از current روي گره هاي ليست حرکت مي کنيم تا به گره اي برسيم که به آخرين گره اشاره مي کند . سپس mLastNode را به گره اي که current به آن اشاره مي کند قرار مي دهيم و مقدار current.NextNode را Nothing مي کنيم تا بعنوان آخرين گزه ليست معرفي شود .
e – مقدار removeItem برگشت داده مي شود .

3 – کلاس ClistIterator : اين کلاس براي حرکت روي گره هاي ليست و دستکاري هر گره بکار مي رود . از حرکت کننده ها براي چاپ ليست و يا انجام دادن عملي بر روي هر عضو Clist مي توان استفاده کرد . اين کلاس داراي دو متغير از نوع ClistNode به نامهاي mBookmark و mFirstNode است . متغير mFirstNode به اولين گره در Clist اشاره مي کند و متغير mBookmark موقعيت فعلي حرکت کننده بر روي Clist را نشان مي دهد . روال Property Let StartNode اين دو متغير را مقدار دهي اوليه مي کند . تابع NextItem اگر مقدار mBookmark برابر Null باشد ، Null برگشت مي دهد و در غيراينصورت مقدار tempData را برابر mBookmark.Data و مقدار mBookmark را برابر mBookmark.NextNode قرار مي دهد . تابع HasMoreItems اگر ليست داراي چندين عضو باشد True برمي گرداند . روال ResetBookmark حرکت کننده را به ابتداي ليست منتقل مي کند .

Private mBookmark as ClistNode
Private mFirstNode as ClistNode
Public Property Let StartNode(Byval vNewValue as variant)x
Set mFirstNode=vNewValue
Set mBookmark=mFirstNode
End property
Public function NextItem()x
Dim tempData as varaint
If mBookmark Is nothing then
NextItem=Null
Else
TempData=mBookmark.Data
Set mBookmark=mBookmark.NextNode
NextItem=tempData
End if
End function
Public function HasMoreItems() as boolean
HasMoreItems=IIf(Not mBookmark Is nothing,True,False)x
End function
Public sub ResetmBookmark()x
MBookmark=mFirstNode
End sub



در بخش سوم نمونه برنامه ای را با استفاده از اين کلاسها خواهيم ساخت .
__________________
آدرس وبلايگ من
کد:
http://www.taknikbartar1.mihanblog.com/

» موضوع مقاله : آموزش کامل نحوه ایجاد ارتباط بین VB6 و Crystal Report 10 با نکات مهم .
»دانلود

کد:

---

http://mediavb.persiangig.com/DataBase/VB6_And_Crystal_Report_10.zip

---

» حجم : 840 کیلوبایت
» موضوع مقاله : آموزش کامل کار با کنترل Register Control.ocx برای مدیریت رجیستری .
»دانلود

کد:

---

http://mediavb.persiangig.com/Maghaleh/RegControl_IN_VB6.zip

---

» حجم : ۱۹۶ کیلوبایت
» موضوع مقاله : معرفی 21 تابع کارآمد API با شرح کامل نحوه استفاده از آنها در برنامه .
»دانلود

کد:

---

http://mediavb.persiangig.com/Maghaleh/21_API_Functions.zip

---

» حجم : ۱۵۴ کیلوبایت
» موضوع مقاله : آموزش نحوه پنهان کردن درایوهای موجود در My Computer و استفاده آن در برنامه .
»دانلود

کد:

---

http://mediavb.persiangig.com/Maghaleh/Hide_Drive_IN_VB6.zip

---

» حجم : ۶۵ کیلوبایت
» موضوع مقاله : ساخت برنامه نصب حرفه ای با نرم افزار InstallShield 10 برای برنامه های VB6.
»دانلود

کد:

---

http://mediavb.persiangig.com/InstallShield_Learning.zip

---

» حجم : 2.۴۰ مگابایت
» موضوع مقاله : روش ساخت کلیدهای میانبر یا HotKeys برای استفاده در سراسر برنامه .
»دانلود

کد:

---

http://mediavb.persiangig.com/Maghaleh/HotKeys_In_VB6.zip

---

» حجم : ۱۶۶ کیلوبایت

:11:امیدوارم تونسته باشم بهتون کمک کنم:11:

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

پنجره Form
قسمت عمده کار درون پنجره فرم انجام میشود ، پنجره های پس زمینه ای که کاربران می بینند همان قسمت فرم می باشد که ما به عنوان یک برنامه نویس در این قسمت طراحی خواهیم کرد.

پنجره Project
پنجره پروژه برای سازماندهی اجزای برنامه است یک برنامه تحت ویندوز ممکن است شامل چندین فایل باشد قبل از اینکه یک برنامه تحت ویندوز را ترجمه کنید تعداد فایل های مرتبط با ویژوال بیسیک ممکن است بسیار زیاد باشند لذا به کمک پنجره پروژه می توانید همه این اجزا را سازماندهی کنید.

در درون پنجره پروژه یک نوار ابزار با سه دکمه وجود دارد

Code Window پنجره کد را برای کنترل انتخاب شده نمایش می دهد
View Object پنجره فرم را برای کنترل انتخاب شده نمایش می دهد
Toggle Folders گزینه های درون پنجره پروژه را بصورت گروه درآورده یا از این حالت خارج می کند.

اشیای زیر درون پنجره پروژه وجود دارند :

(Projects)
یک برنامه ممکن است شامل چند پروژه باشد مثلا" این موضوع هنگام ساخت کنترل های Activex اتفاق می افتد. پروژه ها همواره پسوند نام فایل vbp دارند.

(Forms)
پنجره پروژه فهرستی از فرم های پروژه را نمایش می دهد. فایل های فرم همواره پسوند نام فایل frm دارند.

(Modules)
مدول های پروژه روال های عمومی با قابلیت استفاده مجدد را نگه می دارند. این روال ها از دستورات برنامه نویسی ویژوال بیسیک تشکیل می شوند. به واسطه طبیعت عام مدول می توانید یک مدول را در چند برنامه استفاده کنید. مدول ها همواره پسوند نام فایل bas دارند.

(Class Modules)
مدول های خاصی که اشیای طراحی شده برای یک پروژه را تعریف می کنند و همواره پسوند ocx دارند.

(User Modules)
اشیای سندی هستند که قسمت هایی از پروژه را توصیف می کنند و همواره پسوند dob دارند.

(Property Pages)
این صفحات درون پنجره های فرعی برگه دار وجود دارند. صفحات خاصیت درون فایلی از پروژه ظاثر می شوند و یک کنترل خاص را توصیف می کنند و همواره پسوند pag دارند.

پنجره Properties

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

سلام
چطوری میتونم یا لینک یا دکمه مثلا login رو با VB توی یک سایت اجرا بکنم؟

دوستان سلام
من یک مشکل کوچیک توی ماکروی ورد داشتم گفتم شاید باید از بچه های برنامه نویس بپرسم اما نمی دونم تو کدوم تاپیک .
دوستان من می خواستم با استفاده از ماکرو ورد اندازه متن رو تغییر بدم (اندازه فونت رو بیشتر کنم) اما ماکرو که ضبط کردم و بعد اجرا کردم هیچ اتفاقی نیفتاد کارهای دیگه رو انجام می ده این رو انجام نمیده اینهم کدش
اینهم کد ماکرو

کد:

---

Sub Macro1()
'
' Macro1 Macro
'
'
  Selection.WholeStory
  Selection.Font.Size = 18
     
   
   
End Sub

---

تو ورد 2003 من کار کرد و اندازه فونت رو بزرگ کرد

نقل قول:

---

نوشته شده توسط MR Cracker [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تو ورد 2003 من کار کرد و اندازه فونت رو بزرگ کرد

---

من توی 2007 و 2010 اجرا کردم کار نکرد